saving encrypted text in registry..

[jeba]

Hi there!

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

[kedaman]

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

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]