Perlscript zum verschlüsseln von Texten funktioniert nicht...
lima-city → Forum → Programmiersprachen → Sonstige Programmiersprachen
anzahl
beliebigen text
code
dank
ende
fehlermeldung
funktion
http
liegen
schleife
stellen
test
text
texteingabe
umwandeln
verbessern
zeichen
-
Abend zusammen,
Bin gerade dabei ein eigentlich einfaches Perlscript zuschreiben, das einen beliebigen Text verschlüsselt:
#!/usr/bin/perl -w use strict; print "Gib hier den Text ein, den du verschlüsselt haben möchtest: n"; my $unkeyed_text=<STDIN>; my $unkeyed_ascii=ord $unkeyed_text; print "Gib hier die Anzahl der Stellen an, um die dein Text verschlüsselt werden soll: "; my $keynumber=<STDIN>; chomp $keynumber; my $keyed_ascii=$unkeyed_ascii + $keynumber; print "Das hier ist dein um $keynumber Stellen verschlüsselter Text:n";
Wenn ich das nun Ausführe und bei der Texteingabe z.B. "Das ist ein Test" eingebe, bricht das Script einfach ab, es kommt aber auch keine Fehlermeldung.
Wenn ich das nun Ausführe und bei der Texteingabe z.B. "d" eingebe, wird das Script bis zum Ende ausgeführt, aber das Verschlüsselte Text bleibt leer.
Warum?
Wer weis woran es liegt/liegen könnte darf es gerne verbessern:
http://pastebin.ca/1247273
Danke im Voraus
Beitrag geändert: 6.11.2008 22:07:54 von thundersystem -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Ah, ok, stimmt, danke, werde ich gleich mal verbessern...
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage