warum meckert 4.0 da neuerdings rum:
Code: Alles auswählen
Procedure.s Decrypt(STR.s)
DefType.l i, C <---------------------------------------
DefType.s tmp, erg
For i = 1 To Len(STR)
tmp = Mid(STR, i, 1)
C = Asc(tmp) - 13
If C < 0
C = C + 255
EndIf
erg = erg + Chr(C)
Next
ProcedureReturn erg
EndProcedure