Forum: Object-Pascal / Delphi-Language
Delphi
by engel90,
24. Feb 2007
danke
natürlich logisch das man das dazuaddieren muss :wall:
die Funktion gibt aber leider immer noch kein Wert aus :gruebel:
Ich glaub ich werd die Funktion nochmal komplett neuschreiben, aber danke für deine Hilfe :thumb:
Gruß
engel90
Forum: Object-Pascal / Delphi-Language
Delphi
by engel90,
23. Feb 2007
Hallo,
ich habe mir eine Funktion geschrieben, um einen String mit Hilfe der Monoalphabetisches Substitution zu verschlüsseln. (Das Verfahren wird auch Caesar genannt glaub ich)
Das ist meine Funktion zum verschlüsseln:
function encode(text: AnsiString;const UnformatCharKey: Char):AnsiString;
{text = zu codierender Text; key = Schlüssel zur Alphabetsverschiebung}
{Groß-/Kleinschreibung...