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.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source 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
Original Comments (3)
Recovered from Wayback Machine