Hallo,

also mein Problem ist folgendes, ich habe in VB ein kleines
Tool geschrieben mit dem man Texte ver. bzw. entschlüsseln kann. Leider geht es bis jetzt nur mit einzelnen Buchstaben. Also keine ganzen Texte: Hierfür benutze ich folgenden Code:

If Text1.Text = "..." Then Text2.Text = "..."

(...) ist natürlich durch einen Buchstaben ersetzt. Ich hoffe jemand kann mir helfen.

Habe ich Dich richtig verstanden, dass Du gewissermassen fertige Ver- und Entschlüsselungsroutinen suchst? Denn ein blosser Textvergleich führt zu nichts...

Wie wäre es damit?
Mogelpower=0007702030030210402005060070000800909088090451108410096

Verschlüsselung:
Diese Funktion führt eine einfache, aber relativ effektive Verschlüsselung durch. Allerdings ist der verschlüsselte Text länger als der Originaltext (aber das stört ja niemanden):

Function Encrypt(ByVal InPw As String) As String

  Dim i As Integer

  Dim Q As Integer

  Dim f As Integer

  Dim n As Long

  Dim OutPw As String

  

  If InPw = "" Then

    Encrypt = ""

    Exit Function

  End If



  For i = 1 To Len(InPw) 'Quersumme berechnen

    Q = Q + Asc(Mid$(InPw, i, 1))

  Next

  Q = Q / i

  For i = 1 To Len(InPw)

     f = Fix(Asc(Mid$(InPw, i, 1)) * i / Q)

     OutPw = OutPw + Format$(f, "00") 

     OutPw = OutPw + Format$((Asc(Mid$(InPw, i, 1)) * i Mod Q), "000")

  Next i

  OutPw = OutPw + Format$(Len(InPw), "00")

  OutPw = OutPw + Format$(Q, "000")

  If Len(InPw) < 4 Then

    OutPw = Format$(Rnd(134) * 999, "0000") + OutPw

  End If

  Encrypt = OutPw



End Function

Entschlüsselung
Ungekehrt solls natürlich auch funktionieren:

Function Decrypt(ByVal OutPw As String) As String

  On Error GoTo DecryptErr

  Dim i As Integer

  Dim Q As Integer

  Dim InPw As String

  Dim xmali As Long

  Dim f As Long

  Dim j As Long

  Dim L As Long



  Q = Val(Right$(OutPw, 3))

  L = Val(Mid$(OutPw, Len(OutPw) - 4, 2))

  If L < 4 Then

    OutPw = Mid$(OutPw, 5, Len(OutPw))

  End If

  For j = 1 To Len(OutPw) - 5 Step 5

    i = i + 1

    f = Val(Mid$(OutPw, j, 2))

    xmali = Val(Mid$(OutPw, j + 2, 3)) + Q * f

    InPw = InPw + Chr$(xmali / i)

  Next

  Decrypt = InPw

  Exit Function



DecryptErr:



End Function

PS: Ein paar Zeilen kannst Du zusammenfassen, ich habs wegen der Umbrüche im Forum etwas 'zerlegt'.

Viel Spass damit...

Kann sein das du mich richtig verstanden hast,
aber irgendwie vesrtehe ich dich nicht.
Wie meinst du das denn mit "Denn ein blosser Textvergleich führt zu nichts..." ?
Wieso sollte es denn nicht zu etwas führen?

Ist doch ganz einfach. Nimm die 2 Funktionen und hau sie in Dein Projekt rein. Fertig. Einfacher kann ichs Dir nicht machen...

Der Code ist selbsterklärend. Du könntest natürlich auch mit einer Verschiebung des Zeichencodes arbeiten (aus 65 wird 100, aus 66 101 usw...), aber diese Methode ist unsicher³.

Vielen Dank FormatC.
Mal ein ganz großes Lob an dich das du einem bei
solchen Problemen immer so schnell helfen kannst.

Gern geschehen. Naja, nach ein paar Jahren sammelt sich so das Eine oder Andere an, da kann man es halt einfach mal schnell aus der Schublade holen *fg*
Hauptsache funzt...