home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP36 / 309X3802.TXT < prev    next >
Text File  |  1998-04-29  |  1KB  |  36 lines
  1.  
  2. Public Function XOREncryption(strCodeKey As String, _
  3.     strDataIn As String) As String
  4.  
  5. Dim lonDataPtr As Long
  6. Dim intXORValue1 As Integer
  7. Dim intXORValue2 As Integer
  8. Dim strDataOut As String
  9.  
  10. For lonDataPtr = 1 To Len(strDataIn)
  11.     ' The first value to XOR comes from the data to be
  12.     ' encrypted.
  13.     intXORValue1 = Asc(Mid$(strDataIn, lonDataPtr, 1))
  14.     ' The second value to XOR comes from the code key.
  15.     intXORValue2 = Asc(Mid$(strCodeKey, _
  16.         ((lonDataPtr Mod Len(strCodeKey)) + 1), 1))
  17.     ' The two values are XORed together to create a
  18.     ' decrypted character.
  19.     strDataOut = strDataOut + Chr(intXORValue1 Xor _
  20.         intXORValue2)
  21. Next lonDataPtr
  22.  
  23. ' The XOREncryption function returns the encrypted (or
  24. ' decrypted) data.
  25. XOREncryption = strDataOut
  26.  
  27. End Function
  28. To try out the XOREncryption routine, you can add it to a form that has three TextBox controls (Text1, Text2, and Text3) and a CommandButton control. In the CommandButton's Click event, add the following code:
  29. Dim strCodeKey As String
  30. Dim strEncryptedText As String
  31.  
  32. strCodeKey = "Wxz19hgl3Kb2dSp"
  33. strEncryptedText = XOREncryption(strCodeKey, Text1.Text)
  34. Text2.Text = strEncryptedText
  35. Text3.Text = XOREncryption(strCodeKey, strEncryptedText)
  36.