Simple Password encoding by VB.NET

[Emc2]

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

 

[Walas Ba]

Dah hata vielezo hakuna mmmh

 

[Emc2]

Dah hata vielezo hakuna mmmh

Soma hizo kodi taratibu utaelewa tu ziko straight forward.