Simple Password encoding by VB.NET

Emc2 · 2014-01-18T05:48:23+00:00

Friend Shared Function PasswordToKeyCode(ByVal Password As String) As Long Dim i As Integer Dim hold As Long For i = 1 To Len(Password) Select Case (Asc(Left(Password, 1)) * i) Mod 4 Case Is = 0 hold = hold + (Asc(Mid(Password, i, 1)) * i) Case Is = 1 hold = hold - (Asc(Mid(Password, i, 1)) * i) Case Is = 2 hold = hold + (Asc(Mid(Password, i, 1)) * _ (i - Asc(Mid(Password, i, 1)))) Case Is = 3 hold = hold - (Asc(Mid(Password, i, 1)) * _ (i + Len(Password))) End Select Next i Return hold End Function

Thread starter Emc2
Start date Jan 18, 2014

Emc2

JF-Expert Member

Jan 18, 2014

Walas Ba

JF-Expert Member

Jan 18, 2014

Emc2

JF-Expert Member

Jan 18, 2014

Thread starter
#3

You must log in or register to reply here.

Facebook X Bluesky LinkedIn Reddit WhatsApp Email Link

Educational, Tech & Prof
Tech, Gadgets & Science Forum

Our Community

JamiiCheck
JamiiVoices
JamiiStories
JamiiData
JamiiCourses
JamiiShop
JamiiSocial
Premium Content
Start Discussion

Regional Communities

Tanzania
Uganda
Kenya

JamiiForums uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.

Accept Learn more…

Back

Top Bottom

Forums

New posts