XorcyptEx (erweiterte Xor "Verschlüsselung")

[benji]

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.

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)

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