Delphi-PRAXiS - Software-Projekte der Mitglieder

[K]

Software-Projekte der Mitglieder » Projekte von "Sascha_OW"

Projekte suchen

Anzeige-Eigenschaften

Projekte 1 bis 1 von 1

OpenSource-Projekte können jetzt auch auf unserem GitHub-Repository veröffentlicht werden. Hier klicken für weitere Infos.

Erstellt von Sascha_OW, 2. Mär 2006 Kleine Verschlüsselung

function verschüssel (Wort: string) : string; var i,f,x:integer; test, test1, test2 : string; begin test := ''; For i := 1 to length(wort) do begin test := Test+ '#' + Inttostr(Ord(Wort)) + '#'; test2 := Inttostr(Ord(Wort)) + '#'; For f := Length(test2) to 9 do begin x := random (215) +36;

16 Kommentar(e), last comment by von DP-Maintenance