Das ist zwar nicht richtig verschlüsselt, aber nicht jeder DAU kann das lesen. Es gibt Programmierer, die schreiben Passwörter unverschlüsselt in die Datenbank!!
Ich finde besser so als garnicht verschlüsselt
Edit by Agent: vb-tag eingefügt
Wer suchet der findet, wer draufklickt kommt auf den wahren Pfad!
Ich finde besser so als garnicht verschlüsselt
Visual Basic-Quellcode
- '###im programm ver-und entschlüsseln
- 'Dim re As String
- 're = Chiffre("teststring zum verschlüsseln", 128)
- '###im programm ver-und entschlüsseln
- '###im Modul
- Public Function Chiffre _
- (Original As String, bKey As Byte) As String
- Dim i As Long
- Dim bCode As Byte
- Dim bResult As Byte
- Chiffre = ""
- For i = 1 To Len(Original)
- bCode = Asc(Mid(Original, i, 1))
- bResult = bCode Xor bKey
- Chiffre = Chiffre & Chr(bResult)
- Next i
- End Function
Edit by Agent: vb-tag eingefügt
Wer suchet der findet, wer draufklickt kommt auf den wahren Pfad!
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „FlashTek“ ()