Forget NetZero, get Net Hero (Updated)
### Functions updated. Now they're way faster and smaller. Took out Select Case and added InStr. ##
Ever wanted to use NetZero? Without the ZeroPort software?
Well now it's possible. NetHero will convert any existing NetZero username and password to a username and password that will work with Dial-Up Networking.
Original Author: Arachnid
Inputs
Username, Password
Assumptions
Function to use:
zEncryptUsername
zEncryptPassword
Returns
Modified Username, Encrypted Password
Code
Const Strin1 = "`-=~!@#$%^&*()_+[]{}|;':" & """" & _
",./<>?abcdefghijklmnopqrstuvwxyzABCDEFG" & _
"HIJKLMNOPQRSTUVWXYZ0123456789"
Const Strin2 = "GFEDCBAzyxwvutsrqponmlkjihgfed" & _
"cba?> "!~=-`9876543210ZYXWVUTSRQPONMLKJIH"
Function Convert(Character)
Qt = Chr(34)
Chr1 = InStr(1, Strin1, Character)
Chr2 = Mid(Strin2, Chr1, 1)
Convert = Chr2
End Function
Function CharacterToNum(Character)
CharacterToNum = InStr(1, Strin1, Character)
End Function
Function NumToCharacter(TheNumber)
NumToCharacter = Mid(Strin1, TheNumber, 1)
End Function
Function zEncryptPassword(Password)
For i = 0 To Len(Password) - 1
TheCur = Mid(Password, i + 1, 1)
Asdf = CharacterToNum(TheCur)
Asdf = Asdf - i
Asdf2 = NumToCharacter(Asdf)
Asdf3 = Convert(Asdf2)
SomeString = SomeString + Asdf3
Next i
zEncryptPassword = "0" & SomeString & "1"
End Function
Function zEncryptUsername(Username)
zEncryptUsername = "2.2.2:" & Username & "@netzero.net"
End Function
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.