XorcyptEx (erweiterte Xor "Verschlüsselung")
Verfasst: 15.02.2009 17:48
Heyho!!
Hab mich mal mit Xor "Verschlüsselung" auseinandergesetzt. Da ich finde, das simples Xoring zu unsicher ist, habe ich eine Funktion geschrieben, die immerhin den Klartext nicht erkennen lässt.
Bei normalem Xor wird einem Zeichen nur ein neuer Wert zugewiesen (ähnlich dem Caesar algo).
Freue mich über Feedback.
PS.: Ist sicher nichts tolles/besonders coded, aber ich beschäftige mich auch erst seit heute mit Verschlüsselungsalgorithmen
Hab mich mal mit Xor "Verschlüsselung" auseinandergesetzt. Da ich finde, das simples Xoring zu unsicher ist, habe ich eine Funktion geschrieben, die immerhin den Klartext nicht erkennen lässt.
Code: Alles auswählen
Procedure.s XorcyptEx(string.s, cryptnumber, steps)
key = cryptnumber + Len(string)
For c = 1 To Len(string)
char.s = Mid(string, c, 1)
char.s = Chr(Asc(char) ! key)
out.s + char
key - steps
Next
ProcedureReturn out
EndProcedure
retex.s = XorcyptEx("test", 19, 12)
Debug XorcyptEx("test", 19, 12)
Debug XorcyptEx(retex, 19, 12)Freue mich über Feedback.
PS.: Ist sicher nichts tolles/besonders coded, aber ich beschäftige mich auch erst seit heute mit Verschlüsselungsalgorithmen