MD5 hash til kode

http://www.frez.co.uk/freecode.htm#md5

jeg forstår ikke særlig meget af dette eksempel....er der ikke en der bare kan skrive en winDLLsom kan beregne MD5 og som kan kaldes fra VB ?

det sagde arne_v han kunne?

Du inkluderer blot cmd5.cls i dit projekt, så kalder du MD5("en streng") når du skal beregne hash værdien.

Funktionen returnerer hash'en

jeg arbejder på den

den er faktisk færdig - nu skal jeg bare lige teste den

ok

hvornår tror du den er klar ?

20 minutter

Hvis du vil lege med den anden: add > class module > cmd5.cls

Dim md5 As CMD5
Set md5 = New CMD5
Text1.Text = md5.md5("kode")

Text1 indholder du md5 hashen til 'kode':

70375478134bc7187a0d5a0ffd59c283

ok....

hm - jeg har lidt problemer - jeg tror at du skal lege lidt med ranglens link

Nu virker det.

Men det drillede lidt. Jeg hader Unicode-ANSI-BSTR problemer !

http://www.vajhoej.dk/arne/eksperten/md5/md5.dll

Eksempel på brug:

Declare Function MD5Hash Lib "MD5" Alias "_MD5Hash@4" (ByVal s As String) As String

og

Private Sub Command1_Click()
    Text2.Text = MD5Hash(Text1.Text)
End Sub

(når der ikke er dir på lib så skal dll ligge i samme dir som exe, men det ved du
sikkert alt om)

Jeg smider også C++ koden op lidt senere.

mange tak c++ koden ???

kan jeg indsætte dette?

Declare Function MD5Hash Lib "MD5" Alias "_MD5Hash@4" (ByVal s As String) As String

Private Sub Command1_Click()
  Dim FilIndhold As String
  Dim FF As Long
  Dim strPath As String
  FF = FreeFile
  If File1.ListIndex >= 0 Then 'skal kun virke når du har MARKERET en fil
    strPath = File1.Path
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    Open strPath & File1.FileName For Input As #FF
      Line Input #FF, FilIndhold
    Close #FF
    If FilIndhold = "fjdskaj435684629/*4564*464g+254354+34*54364" And Text1.Text = MD5Hash Then
    Form2.Show
    Me.Hide
    Else
    Form2.Hide
    Me.Show
    MsgBox "Kunne ikke logge på kodeord eller fil er forkert !" & FilIndhold, vbCritical, "Fejl 1.01"
    End If
  Else
    MsgBox "Du skal først markere en fil !"
  End If
End Sub

eller hvordan bruger jeg det ?

C++ koden er til dem som selv vil compile DLL'en

declare skal i VB i et seperat module mens click hører til formen

nej

logikken er at programmet indeholder MD5Hash af det rigtige password og
så tester du:

if MD5Hash(detindtastedepassword) = "md5hashafdetrigtigepasword" then

De kan sagtens gå ind i EXE fil og se "md5hashafdetrigtigepasword" men
MD5 algoritmen gør at det ikke hjælper dem til at finde detrigtigepasword

'Ulempen' med arnes's dll er så, at dll-filen skal distribueres sammen med dit program. Eller hvis 'hax0ren' skriver sin egen md5.dll, som altid spytter din hardcoded hash ud, så kommer han også forbi din kontrol. :o)

eller de kunne ændre MD5 værdien i EXE filen

eller de kunne disaamble hele applikatione, fjerne testet og assemble

hvis folk har programmeringsmæssige talenter så er det svært at
beskytte sig godt i det scenarie

:-)

og hvad skal visualdeveloper så bruge det program til.. det er måske bare et program der skal bruges til lidt sjov.. og ikke sælges..

men som ranglen.. så ville jeg nok også bruge metode:
Kommentar: ranglen
15/04-2005 21:10:34

arne_v > Er der ikke fejl i din kode.. jeg kan ikke få den til at virke..

--------------------
Run-time error '48':
File not found: MD5
--------------------

Har også prøvet sådan:

Samme fejl
Private Declare Function MD5Hash Lib "MD5.dll" Alias "_MD5Hash@4" (ByVal s As String) As String

Samme fejl
Private Declare Function MD5Hash Lib "C:\MD5.dll" Alias "_MD5Hash@4" (ByVal s As String) As String

Jeg har testet det på både XP SP2 og NT4 SP6A.

Jeg mener ikke at der skal angives .dll

Så hvis ikke den er i PATH så prøv:

Private Declare Function MD5Hash Lib "C:\MD5" Alias "_MD5Hash@4" (ByVal s As String) As String

jo så får jeg bare: Run-time error '53': og ikke 48

Jeg har:

Windows 2000 5.00.2195
Service Pack 4

men hvis det er en Win32 dll så skulle der ikke være nogle problemmer med det..

Jeg kan se du har lavet en dll her som giver samme fejl: http://eksperten.dk/spm/420120#rid3957585

Prøv lige igen

Jeps.. så virker den.. :D

såre banalt

min web server var konfigureret til at betragte .dll filer som text filer - jeg
satte den bare om til atbetragte dem som binære filer

Hvis du bruger UPX compressor så kan den komme ned på 20kb.. ;)

når men nu til sagen..

' ---------------------------------- Form1 ----------------------------------
' Lav et nyt projekt med en Text1 og brug koden her..
' Dette program bruger du til at lave den MD5 Key som skal være i dit program.
Option Explicit

Private Declare Function MD5Hash Lib "MD5" Alias "_MD5Hash@4" (ByVal s As String) As String

Private Sub Form_Load()
  ' Den MD5 key som står i Text1.Text skal du bruge i dit program.
  Text1.Text = MD5Hash("kode") 'kode = 70375478134BC7187A0D5A0FFD59C283
End Sub
' ---------------------------------- Form1 ----------------------------------

' ------------------------------- Dit projekt -------------------------------
Option Explicit

Private Declare Function MD5Hash Lib "MD5" Alias "_MD5Hash@4" (ByVal s As String) As String

Private Sub Command1_Click()
  Dim FilIndhold As String
  Dim FF As Long
  Dim strPath As String
  FF = FreeFile
  If File1.ListIndex >= 0 Then 'skal kun virke når du har MARKERET en fil
    strPath = File1.Path
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    Open strPath & File1.FileName For Input As #FF
      Line Input #FF, FilIndhold
    Close #FF
  ' I dit projekt skal du så bruge den sådan.
  ' Fx. her skal du skrive "kode" i Text1.Text for at komme igennem.
  If FilIndhold = "fjdskaj435684629/*4564*464g+254354+34*54364" And MD5Hash(Text1.Text) = "70375478134BC7187A0D5A0FFD59C283" Then
    Form2.Show
    Me.Hide
    Else
    Form2.Hide
    Me.Show
    MsgBox "Kunne ikke logge på kodeord eller fil er forkert !" & FilIndhold, vbCritical, "Fejl 1.01"
    End If
  Else
    MsgBox "Du skal først markere en fil !"
  End If
End Sub
' ------------------------------- Dit projekt -------------------------------

er der ikke en der kan give mig den komplette kode ?

se ovenfor

er det alt ?

jeg tjekker lige om det virker....og så kan jeg lige se på hvem der skal have points

virker ikke....

Run-time error '48':
File not found: MD5

hvorfor kan den ikke finde filen ?

enten angiv sti i lib angivelsen i declare

eller have MD5.dll i samme dir som din exe

visualdeveloper > Hvis du nu starter med at downloade filen igen : http://www.vajhoej.dk/arne/eksperten/md5/md5.dll

arne_v havede lavet en fejl på sin webserver: http://www.eksperten.dk/spm/610086#rid5486400

har md5 i samme dir som exe men virker stadig ikke ?

ok virker nu...men hvad skal jeg indtaste i text1 når jeg logger på ?

prøv at skrive "kode" uden ""

det gelder kun hvis din linje ser sådan ud:

If ... And MD5Hash(Text1.Text) = "70375478134BC7187A0D5A0FFD59C283" Then


koden her : 70375478134BC7187A0D5A0FFD59C283 svare til kode

kan det ikke gøres til en lidt lettere kode som jeg evt selv kunne bestemme ?

hvordan ændrer jeg kodeordet fra "kode" uden "" til fx "peter154" ?

Private Declare Function MD5Hash Lib "MD5" Alias "_MD5Hash@4" (ByVal s As String) As String

Private Sub Form_Load()
  ' Den MD5 key som står i Text1.Text skal du bruge i dit program.
  Text1.Text = MD5Hash("peter154") '<- peter154
End Sub

If ... And MD5Hash(Text1.Text) = "Den kode du får ved at køre ovenstående kode skal du skrive her" Then

er ikke en MESTER til vb (endnu) kan du ikke indsætte det i denne kode...og så bliver det også snart tid til noget pointuddeling :

' ---------------------------------- Form1 ----------------------------------
' Lav et nyt projekt med en Text1 og brug koden her..
' Dette program bruger du til at lave den MD5 Key som skal være i dit program.
Option Explicit

Private Declare Function MD5Hash Lib "MD5" Alias "_MD5Hash@4" (ByVal s As String) As String

Private Sub Form_Load()
  ' Den MD5 key som står i Text1.Text skal du bruge i dit program.
  Text1.Text = MD5Hash("kode") 'kode = 70375478134BC7187A0D5A0FFD59C283
End Sub
' ---------------------------------- Form1 ----------------------------------

' ------------------------------- Dit projekt -------------------------------
Option Explicit

Private Declare Function MD5Hash Lib "MD5" Alias "_MD5Hash@4" (ByVal s As String) As String

Private Sub Command1_Click()
  Dim FilIndhold As String
  Dim FF As Long
  Dim strPath As String
  FF = FreeFile
  If File1.ListIndex >= 0 Then 'skal kun virke når du har MARKERET en fil
    strPath = File1.Path
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    Open strPath & File1.FileName For Input As #FF
      Line Input #FF, FilIndhold
    Close #FF
  ' I dit projekt skal du så bruge den sådan.
  ' Fx. her skal du skrive "kode" i Text1.Text for at komme igennem.
  If FilIndhold = "fjdskaj435684629/*4564*464g+254354+34*54364" And MD5Hash(Text1.Text) = "70375478134BC7187A0D5A0FFD59C283" Then
    Form2.Show
    Me.Hide
    Else
    Form2.Hide
    Me.Show
    MsgBox "Kunne ikke logge på kodeord eller fil er forkert !" & FilIndhold, vbCritical, "Fejl 1.01"
    End If
  Else
    MsgBox "Du skal først markere en fil !"
  End If
End Sub
' ------------------------------- Dit projekt -------------------------------

Udskift med denne linje:

If FilIndhold = "fjdskaj435684629/*4564*464g+254354+34*54364" And MD5Hash(Text1.Text) = "C4B00C5AE8EF5AC0EE1CE7C1673A8123" Then


Nu skal su skrive peter154 for at komme ind..

ok...men er der ikke en metode hvor jeg selv kan ændre koden ?

Er du dårlig til at læse.. jeg syntes vi har skåret det meget ud i pap.. du skal læse hvad vi skriver ellers hjælper det ikke noget..

Jo du skal lave en nyt projekt i visual basic..

' ---------------------------------- Form1 ----------------------------------
' Lav et nyt projekt med en Text1 og brug koden her..
' Dette program bruger du til at lave den MD5 Key som skal være i dit program.
Option Explicit

Private Declare Function MD5Hash Lib "MD5" Alias "_MD5Hash@4" (ByVal s As String) As String

Private Sub Form_Load()
  ' Den MD5 key som står i Text1.Text skal du bruge i dit program.
  Text1.Text = MD5Hash("kode") 'kode = 70375478134BC7187A0D5A0FFD59C283
End Sub
' ---------------------------------- Form1 ----------------------------------

ok har fundet ud af det nu... ændrer bare :
Private Sub Form_Load()
  ' Den MD5 key som står i Text1.Text skal du bruge i dit program.
  Text1.Text = MD5Hash("kode") 'kode = 70375478134BC7187A0D5A0FFD59C283
End Sub

til

Private Sub Form_Load()
  ' Den MD5 key som står i Text1.Text skal du bruge i dit program.
  Text1.Text = MD5Hash("peter155") 'kode = 70375478134BC7187A0D5A0FFD59C283
End Sub


nå men hvem skal så have pointssne ???

Ja se du kan jo godt ;)

hehe har lige lavet dette fikse program:
(husk at ligge MD5.dll i samme dir)

www.home-maker.dk/MD5-Beregner.exe

fint ik'...nå men arne_v og sjh må gerne lægge et svar...inden i morgen klokken 14.00 for der uddeler jeg pointsne ;)

fedt at i gad at lave så meget...at arne_v gad at skrive en dll fil og at du gad at sammensætte koden ;) det skal i have god karma for ;)

også et tak til dig ranglen uden din hexeditor havde jeg bare haft en binær kode...du må også gerne lægge et svar hvis du har lyst !

svar

Jeg syntes også godt du kan give ranglen nogle point for svar her fra: http://www.eksperten.dk/spm/608715

som opfølgning på 16/04-2005 11:38:53 skal jeg iøvrigt lige bemærke at one-way
systemer som f.eks. MD5 har en fordel selv tilpas snedige folk smutter
udenom. De får stadigvæk ikke fat i passwordet - og da folk har en tendens
til at bruge samme password til flere ting, så kan det være en meget værdifuld
egenskab.

sjh>

enig

ja...uddeler points i morgen kl 14... håber også han har lagt et svar !

ellers må jeg lige oprette et spg "pounts til ranglen"

ja ellers må du bare vente et par dage

ps.. til dig arne...har sendt dig en mail...til arne@vajoeg.dk om Uddanelse !

jeg har også svaret

tak ;)