Hallo ich hab mal wieder Fragen über Fragen:

Ich hab zwar noch einen aktiven Post ich erstelle jedoch einen Neuen da es sich um ein anderes Thema handelt ( hoffe das ist ok )


Also ich würde gerne einen string md5 verschlüsseln und diesen dan mit einem bereits verschlüsselten md5 string vergleichen

Den zweiten teil sehe ich nicht als Problem an jedoch konnte ich bei VBA keine Funktion finden ;(

fals ich nichts übersehen haben sollte und dies wirklich nicht so einfach ist würde ich gerne wissen ob es ein externes programm gibt das ich dan per VBA aufrufen könnte ( Ich stell mir das dan ca so vor --> md5.exe test string <-- )

ich hoffe das ich nicht mal wieder zu abstrakt denke und ihr mir helfen könnt

Also ne md5 Verschlüsselungs Methode habe ich erst gerade entdeckt. Ist jedoch ein Modul.

http://www.bullzip.com/md5/vb/md5-visual-basic.htm

Für den Fall, dass dich die Arbeitsweise interessiert, hier eine MD5-Implementierung in VBA ohne zusätzliche DLL. Hat aber den Nachteil, dass es doch etwas langsamer ist. Einfach das Modul (nach dem runterladen in .bas umbenennen) in dein Projekt importieren, der Aufruf erfolg über

Code vb:

1	Hash = MD5_string(String)

Der Doc!

Hallo DrSoong,


Ich wolte gerade deine Variante ausprobieren :

- Md5.bas ins Projekt importiert
- Neue Form erstellt
- Eine TextBox1
- Ein CommandButton1
- Ein Label1

Code :

1 2 3 4

Private Sub CommandButton1_Click() Label1.Caption = MD5_string(TextBox1) End Sub

Mit dem Ergebniss :


" Fehler beim Kompilieren: Variable nicht definiert "

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14

.....     state(3) = &H10325476     index = 0     For i = 0 To nBlks - 1         Call md5_transform(state, abMessage, index)         index = index + MD5_BLK_LEN         pPercent = Int(i / (nBlks - 1) * 60) -->[COLOR="Red"][B]        frmMain.pb1.value = 40 + pPercent[/B][/COLOR]     Next     partLen = mLen Mod MD5_BLK_LEN     index = nBlks * MD5_BLK_LEN     For i = 0 To partLen - 1 .....

hab ich irgendwas vergessen ?

Und auch hier wieder wie schon so oft besprochen:

MD5 ist kein Verschlüsselungsalgorithmus - es wird nichts verschlüsselt!

wie auch immer ich möchte einfach einen string überprüfen ob er mit einem bereits existierenden md5 string übereinstimmt

Deine Rote zeile im Code ist ein Progress bar auf der MainForm !

Der Progressbar heisst pb1 und die hauptform frmMain

Grüsse bb

danke brainbyte nun funktionier es supper danke

Sorry, hatte vergessen dass ich auch dort eine Progressbar-Aktualisierung eingebaut hatte (habe die anderen Verweise auf meine Steuerelemente entfernt). Wird nicht wieder vorkommen, werd mich zur Strafe für meine Nachlässigkeit 10 mal mit der Neunschwänzigen geißeln.


Der Doc!

Kann mit jemand sagen, wie der Code verwendet werden kann, wenn ich die md5-Checksumme für eine Datei benötige (z.B. eine exe)
Danke Sylvio

ist im Prinzip einfach, du lädst deine Datei einfach in einen String rein:

Code vb:

1 2 3 4 5 6 7 8

Dim iFile As Integer, sDatei As String, sName As String sName = "C:\DeinDatei.exe" 'Hier den Namen deiner Datei rein iFile = FreeFile 'Nächste freie Dateinummer sDatei = Space(FileLen(sName)) 'Platz festlegen Open sName For Binary As iFile 'Datei binär öffnen Get #iFile, , sDatei 'und auslesen Close iFile Hash = MD5_string(sDatei) 'Hash erzeugen

Der Doc!

Ich habe mich einen ganzen Tag mit dem Thema md5 beschäftigt. Das ist die erste Lösung die funktioniert und richtig rechnet

Danke an den Doktor!

Gruß Sylvio

Hallo,

ich bin noch neu hier,

... und habe auch ein paar Fragen, bei denen ich Hilfe brauchen könnte.

Ich wolte gerade deine Variante ausprobieren :

- Md5.bas ins Projekt importiert
- Neue Form erstellt
- Eine TextBox1
- Ein CommandButton1
- Ein Label1

Code :

1 2 3 4

Private Sub CommandButton1_Click() Label1.Caption = MD5_string(TextBox1) End Sub

Mit dem Ergebniss :


" Fehler beim Kompilieren: Variable nicht definiert "

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14

.....     state(3) = &H10325476     index = 0     For i = 0 To nBlks - 1         Call md5_transform(state, abMessage, index)         index = index + MD5_BLK_LEN         pPercent = Int(i / (nBlks - 1) * 60) -->[COLOR="Red"][B]        frmMain.pb1.value = 40 + pPercent[/B][/COLOR]     Next     partLen = mLen Mod MD5_BLK_LEN     index = nBlks * MD5_BLK_LEN     For i = 0 To partLen - 1 .....

hab ich irgendwas vergessen ?

... Die Fehlermeldung habe ich auch bekommen, weiss jemand was geändert wurde, damit der Code arbeitet?

Vielen Dank im Voraus

Pitsan

Wenn du den Thread weiter gelesen hast wirst du bemerkt haben, dass ich eine Progressbar eingebaut hatte und diese Zeile leider aus Versehen drinnen geblieben ist. Lösch sie einfach raus (kA ob noch eine weitere drinnen ist - prüf den Code einfach nach frmMain.pb1) und das ganze funktioniert.


Der Doc!

Auch nach nunmehr fast 4 vollen Jahren: Gesucht, gefunden und für gut befunden.

Danke Doc.

(sorry, normal hole ich so alte Threads nimmer hoch - aber der Post vom Doc löste grad so genial einfach mein Problem)