HTMLWorld - HTML, CSS, JavaScript, PHP, Java, Flash und vieles mehrHTMLWorld:   Home | Impressum
 

 
 

Anzeige 
 
HTMLWorld » Forum

Thema anzeigen - Caesar verschlüsselung entschlüsseln

 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Caesar verschlüsselung entschlüsseln

 

Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Vorheriges Thema:
Nächstes Thema:  
Autor Nachricht
shurtugal
Forumsteilnehmer


Anmeldungsdatum: 02.12.2010
Beiträge: 9

BeitragVerfasst am: 02.12.2010 20:10:40    Titel: Caesar verschlässelung entschlässeln Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
shurtugal
Forumsteilnehmer


Anmeldungsdatum: 02.12.2010
Beiträge: 9

BeitragVerfasst am: 22.12.2010 10:32:16    Titel: Geschaft Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.