Hejsan

Har sökt och letat och provat men får inte fram nått bra :(

Jag vill kunna kryptera en text/sträng med ett lösenord om sen ska man, med det lösenordet kunna få tillbaks texten/strängen som den var, men ändas med det lösenordet.

Nån som har nått tips på hur jag ska göra eller var jag ska leta för jag hittar inget själv :(

Tack på förhand!

Det här är den enklaste varianten på XOR kryptering:
<code>
Public Function Kryptera(ByVal Test As String, Key As String) As String
Dim Data() As Byte
Dim KeyData() As Byte
Dim Index As Long
Dim KeyIndex As Long
Data = StrConv(Test, vbFromUnicode)
KeyData = StrConv(Key, vbFromUnicode)
For Index = 0 To UBound(Data)
Data(Index) = Data(Index) Xor KeyData(KeyIndex)
KeyIndex = KeyIndex + 1
If KeyIndex > UBound(KeyData) Then KeyIndex = 0
Next
Kryptera = StrConv(Data, vbUnicode)
End Function
</code>