|
Vorheriges Thema: Nächstes Thema: |
Autor |
Nachricht |
shurtugal Forumsteilnehmer
Anmeldungsdatum: 02.12.2010 Beiträge: 9
|
Verfasst am: 02.12.2010 20:10:40 Titel: Caesar verschlässelung entschlässeln |
|
|
Ich habe einen Script mit dem mann einen Text mit der Bekannten Cäsarverschlüsselung ( das System mit den Zwei Alphabeten im Kreis ) Verschlüsseln kann.
Das Funktioniert auch ganz schön aber ich kann den Text nicht mehr entschlüsseln.
Der Script sieht so aus:
dim text,rot,code,tmp
text=Inputbox("Text eingeben","Caesar")
rot=InputBox("Rotation eingeben","Caesar")
for i=1 to Len(text)
tmp=Asc(Mid(text,i,1))
if tmp >= 65 and tmp <= 90 then 'ASCII 65 bis 90 = a-z
tmp = tmp + rot
if tmp > 90 then
tmp = tmp - 90 + 64
end if
elseif tmp >= 97 and tmp <= 122 then ' ASCII 97 bis 122 = A-Z
tmp = tmp + rot
if tmp > 122 then
tmp = tmp - 122 + 96
end if
end if
code=code+Chr(tmp)
next
MsgBox code,0,"Caesar"
Bitte helft mir beim entschlüsseln.[/img] |
|
Nach oben |
|
|
shurtugal Forumsteilnehmer
Anmeldungsdatum: 02.12.2010 Beiträge: 9
|
Verfasst am: 22.12.2010 10:32:16 Titel: Geschaft |
|
|
dim text,rot,code,tmp
text=Inputbox("Text eingeben","Caesar")
rot=InputBox("Rotation eingeben","Caesar")
for i=1 to len(text)
tmp=Asc(Mid(text,i,1))
if tmp >= 65 and tmp <= 90 then
tmp = tmp + rot
if tmp > 97 then
tmp = tmp - 90 + 64
end if
elseif tmp >= 97 and tmp <= 122 then
tmp = tmp + rot
if tmp > 122 then
tmp = tmp - 122 +96
end if
end if
code=code+Chr(tmp)
next
InputBox "Verschlüsselter Text:","Caesar",code+rot
So funktionierts: Mann muss den Text aus der Inputbox kopieren. Das Programm nochmals öffnen den Text eifügen die Zahl am schluss wegnehmen und die Rotation im - bereich eingeben. (Rotation = die Zahl am schluss des verschlüsselten textes.[/code][code][/code][code][/code][code][/code] |
|
Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
|
|