Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Caesar - Verschlüsselung
Autor: markus
Datum: 24.11.01 11:28
Hi, ich habe ein eigentlich ganz einfaches Problem, komme aber nicht auf die Lösung, folgendes: Ich habe versucht ein Programm zu schreiben das eine Zeichenkette in eine Zahlenreihe verschlüsselt. Bei dieser Verschlüsselung wandelt man jede Zahl in einen Wert um und zählt ihr eine geheime Zahl dazu. (Casear – Verschlüsselung). Unten ist der Code für die Verschlüsselung. Jetzt meine Frage, wie kann ich diesen Text wieder entschlüsseln? Dazu muss ich ja immer 3 Zahlen lesen und wieder in Buchstaben umwandeln! Ein weiteres Problem ist das die Verschlüsslung das Leerzeichen (Ascii – Nr 32) (oder anderer Werte) nicht in 032 umwandelt. (Konkret: wie setze ich bei einer zweistelligen Zahl eine Null davor?) Modul: Public Function VERCaesar(Text As String, Zahl As Long) As String Dim Lokal As Integer Dim Temp As String Dim i As Long For i = 1 To Len(Text) Temp = Mid(Text, i, 1) Lokal = Asc(Temp) Lokal = Lokal + Zahl VERCaesar = VERCaesar + CStr(Lokal) Next i End Function Form1: Private Sub cmdVerschlüsseln_Click() MsgBox (VERCaesar(Text1.Text, 5)) End Sub Vielen Dank im voraus! Markus

Caesar - Verschlüsselung	76	markus	24.11.01 11:28
Re: Caesar - Verschlüsselung	515	Dieter	24.11.01 12:04
Re: Caesar - Verschlüsselung	43	markus	24.11.01 12:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen