Search Tools Links Login

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 130 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.