by Arachnid (2 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(4 Votes)
### 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.
Inputs
Username, Password
Assumes
Function to use:
zEncryptUsername
zEncryptPassword
Code Returns
Modified Username, Encrypted Password
VBcodersConst 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