|
| Autor |
Nachricht |
Ja!lB!rD_
Coder
Anmeldedatum: 09.06.2007
Beiträge: 79
|
PW in md5 hash verschlüsseln
Verfasst am: 24.08.2007, 11:45 |
|
|
Hey
Also mich würde mal interessieren ob der source für das verschlüsseln eines pw in md5 schwierig ist 
Also ist das ein source mit 5 zeilen oder 50 und mehr? 
P.S hab mir schon überlegt, ob ichs in offtopic posten soll aber naja....
EDIT: ich hab die Board eigene SuFu wie auch auf HS genutzt 
[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam |
|
| |
|
 |
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 24.08.2007, 11:53 |
|
|
Ist nur eine Zeile.
| Code: |
md5hash = oMD5.CalculateMD5("Passwort")
|
Naja. Ganz reichen tut das noch nicht. xD
Du brauchst noch diese Klasse hier:
http://www.vb-x.org/viewtopic.php?t=236
Und dann mußt du oMD5 global deklarieren
| Code: |
Private oMD5 as clsMD5
[/code
Und auch noch:
[code
Private Sub Form_Load()
Set oMD5 = New clsMD5
End Sub
|
| Code: |
Private Sub Form_Unload(Cancel As Integer)
Set oMD5 = Nothing
End Sub
|
Das wars dann.  ^^
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
Zuletzt bearbeitet von ZiG_ am 19.12.2007, 10:31, insgesamt einmal bearbeitet |
|
| |
|
|
Ja!lB!rD_
Coder
Anmeldedatum: 09.06.2007
Beiträge: 79
|
Verfasst am: 24.08.2007, 13:25 |
|
|
hmmm...werds mir mal genauer anschauen.
Sieht aber schon recht gut aus
merciiiiiii....
[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam |
|
| |
|
|
Amethyst_
Poster
Anmeldedatum: 24.02.2007
Beiträge: 172
|
Verfasst am: 25.08.2007, 15:11 |
|
|
Falls es einer nicht hinbekommt..so wie ich zuerst.. xD
[vb:1:4e51a695f6]Private oMD5 As CMD5
Private Sub Command1_Click()
Dim md5hash As String
md5hash = oMD5.MD5(Text1.Text)
l1.AddItem md5hash
End Sub
Private Sub Form_Load()
Set oMD5 = New CMD5
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set oMD5 = Nothing
End Sub[/vb:1:4e51a695f6]
Text1
Commandbutton1
Listbox l1
 |
|
| |
|
|
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 25.08.2007, 18:27 |
|
|
| Amethyst hat Folgendes geschrieben: | Falls es einer nicht hinbekommt..so wie ich zuerst.. xD
[vb:1:08e16d2df5]Private oMD5 As CMD5
Private Sub Command1_Click()
Dim md5hash As String
md5hash = oMD5.MD5(Text1.Text)
l1.AddItem md5hash
End Sub
Private Sub Form_Load()
Set oMD5 = New CMD5
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set oMD5 = Nothing
End Sub[/vb:1:08e16d2df5]
Text1
Commandbutton1
Listbox l1 |
geht nicht 
 |
|
| |
|
|
Amethyst_
Poster
Anmeldedatum: 24.02.2007
Beiträge: 172
|
Verfasst am: 25.08.2007, 18:46 |
|
|
" geht nicht  "
Sei doch so nett und sag den fehler.
|
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 25.08.2007, 19:07 |
|
|
| Code: |
Private oMD5 As clsMD5
Private Sub Command1_Click()
Dim md5hash As String
md5hash = oMD5.CalculateMD5(Text1.Text)
l1.AddItem md5hash
End Sub
Private Sub Form_Load()
Set oMD5 = New clsMD5
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set oMD5 = Nothing
End Sub
|
Zuletzt bearbeitet von ZiG_ am 19.12.2007, 10:32, insgesamt 2-mal bearbeitet |
|
| |
|
|
Amethyst_
Poster
Anmeldedatum: 24.02.2007
Beiträge: 172
|
Verfasst am: 25.08.2007, 19:35 |
|
|
Hmm..bei mir musste ich das clsMD5 in CMD5 ändern. 
|
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 25.08.2007, 19:47 |
|
|
Die Klasse sollte natürlich den dementsprechenden Namen haben.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 19.12.2007, 10:13 |
|
|
Ist es möglich, den Text aus einer Text Box md5 codiert in eine Datei zu schreiben ohne jedoch den angezeigten bzw. eingegebenen Text zu verändern?
Bis jetzt habe ich es nur so gelößt, dass er die Passwort eingabe codiert direkt im Eingabefeld anzeigt.
| Code: | Private Sub cmd_write_Click()
Dim md5hash As String
md5hash = oMD5.MD5(txt_pwd.Text)
txt_pwd.Text = md5hash
Open "sam.ini" For Append As #1
Print #1, "Account: "; txt_accname.Text
Print #1, "Email: "; txt_email.Text
Print #1, "Password: "; txt_pwd.Text
Print #1, ""
Print #1, "================"
Print #1, ""
Close #1
End Sub |
Edit: Habe es gerade gelößt mit einem unsichtbaren Label
| Code: | Private Sub cmd_write_Click()
Dim md5hash As String
md5hash = oMD5.MD5(txt_pwd.Text)
lbl_md5.Caption = md5hash
Open "sam.ini" For Append As #1
Print #1, "Account: "; txt_accname.Text
Print #1, "Email: "; txt_email.Text
Print #1, "Password: "; lbl_md5.Caption
Print #1, ""
Print #1, "================"
Print #1, ""
Close #1
End Sub |
|
|
| |
|
|
Registrieren
Login
