Encrypt
Function Encipher(InText as String, Password as Integer) as String Rnd -(Abs(Password)) For i = 1 To Len(InText) Encipher = Encipher & Chr(Asc(Mid(InText, i, 1)) Xor Int(Rnd * 255)) Next End Function
Function Encipher(InText as String, Password as Integer) as String
Rnd -(Abs(Password))
For i = 1 To Len(InText)
Encipher = Encipher & Chr(Asc(Mid(InText, i, 1)) Xor Int(Rnd * 255))
Next
End Function
( encrypt.html )- by Paolo Puglisi
- Modifica del 17/12/2023