Mit Caesar Chiffre ent- und verschlüsseln

2 Lösungen

#33

Anfänger - Perl von Dome - 03.01.2013 um 01:30 Uhr

Schreiben Sie ein Programm, indem Sie mit Hilfe der Caesar Chiffre einen beliebigen Text ent- und verschlüsseln können. Zuvor muss der Text und die Anzahl der Verschiebung angegeben werden. Groß- und Kleinschreibung muss nicht beachtet werden.

Konsolenausgabe:

Geben Sie den Text ein: Beispielwort
Um wie viele Stellen soll verschoben werden: 1
Ergebnis: Cfjtqjfmxpsu

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von RivalofSilen (620 Punkte) - 19.03.2014 um 09:33 Uhr

Hier mein Modell!

Perl-Code

print "Bitte Wort eingeben!\n";
chop($wert = <STDIN>);
print "\nVerschiebung um wie viele Zeichen?\n";
chop($verschiebung = <STDIN>);
$wert = lc($wert);
$laenge = length($wert);
@buchstaben = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');

#Buchstaben um gewünschte Zahl verschieben
for($i=0;$i<=25;$i++){
	@verschoben[$i] = @buchstaben[$i+$verschiebung];
}

#Wort zeichenweise in Array schreiben
for($i=1;$i<=$laenge;$i++){
	@wort[$i-1]= substr($wert,$i-1,1);	
}

#gegebenes Wort in verschlüsseltes Wort umwandeln
for($i=0;$i<$laenge;$i++){
	for($k=0;$k<25;$k++){
		if(@wort[$i] eq @buchstaben[$k]){
			@wort[$i]=@verschoben[$k];
			$k=25;
		}
	}
}

print @wort;