Access BooK
Before start posting on this forum you must Login. If you are a new user, kindly register first.

Join the forum, it's quick and easy

Access BooK
Before start posting on this forum you must Login. If you are a new user, kindly register first.
Access BooK
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Access BooK

All About MS Access Related Issues

  • Home
  • Latest images
  • Register
  • Log in

One way HashMD5 in VBA

2 posters

Access BooK :: MS Access :: Free VBA Codes

Go down

One way HashMD5 in VBA Empty One way HashMD5 in VBA

Post by Mani786 Wed Sep 14, 2016 10:33 pm

One way HashMD5 in VBA MS access use this simple function:
Code:

Public Function HashMD5(ByVal text As String) As String
n = 1
For i = 1 To Len(text)
    n = Sqr(n * i * Asc(Mid(text, i, 1)))
Next i
Rnd (-1)
Randomize n

For i = 1 To 16
    HashMD5 = HashMD5 & Chr(Int(Rnd * 256))
Next i
End Function


Mani786
New member
New member

Posts : 94
Points : 172
Join date : 2013-12-14

Back to top Go down

One way HashMD5 in VBA Empty Re: One way HashMD5 in VBA

Post by wasif Sat Sep 24, 2016 8:35 pm

Thanks for this usefull post.....

wasif
New member
New member

Posts : 23
Points : 39
Join date : 2014-01-18

Back to top Go down

Back to top

Access BooK :: MS Access :: Free VBA Codes

 
Permissions in this forum:
You cannot reply to topics in this forum