saving encrypted text in registry..

Hi there! ;)

Is there a method to save the password just like that(encrypetd form) in registry.
Please help me.
Jeba.

Of course there is!
I'm posting up the registry part later on my homepage but here's the encrypting part:

Code:

---

Function Simplecrypt(text As String) As String
Dim ab() As Byte
    ab = StrConv(text, vbFromUnicode)
    For n = 0 To UBound(ab)
        ab(n) = 256 - ab(n)
    Next n
    Simplecrypt = StrConv(ab, vbUnicode)
End Function

Function Cryptkey(text As String, key As String) As String
Dim ab1() As Byte, ab2() As Byte, keylen%
    ab1 = StrConv(text, vbFromUnicode)
    ab2 = StrConv(key, vbFromUnicode)
    For n = 0 To UBound(ab1)
        ab1(n) = ab1(n) Xor ab2(n Mod Len(key))
    Next n
    Cryptkey = StrConv(ab1, vbUnicode)
End Function

---

Simplecrypt is about 5 times faster but keycrypt's safer as you can encrypt against a key

[Edited by kedaman on 05-22-2000 at 02:15 PM]