|
Dim Key As Integer
Key = (Int(Sqr(Len(SecretPassword) * 95)) + 21) 'For the string SecretPassword = "the toolbox", a key of 53 'would be generated using the algorithm above. 'To get real sneaky, you can play around with this code all you 'want, but this is only a start! 'Here is the magic code to do the encryption. If you'll notice, it is the same encryption code used in the 'screen saver template. Function Encrypt (Text As String, EncryptKey As Integer) Dim Temp As String, RR As Integer For RR = 1 To Len(Text) Temp$ = Temp$ + Chr$(Asc(Mid(Text, RR, 1)) Xor EncryptKey) Next RR Encrypt = Temp End Function |