by Zinna Pro (2 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(5 Votes)
The main purpose is to access Netzero through my Windows CE Device.
But can also be used to Access NetZero Faster, and without the banners.
This program allows you to convert your current netzero account so you don't have to use the netzero software.
You can surf at faster speeds because there are no banners loading,
just enter your username and password and it will tell you the codes to set in a Dial Up account.
To use on 3.0.4 change the version to 0:3.0.4
Check out https://pass.ezcpufix.com for an online version. Use an Active X enabled browser!
Inputs
To use on 3.0.4 change the version to 0:3.0.4
Assumes
Very Detailed Code Source.
Easy For Everyone.
Web Based version at http://pass.ezcpufix.com
Code Returns
The Valid Dial-Up Username and Password for netzero.
To use on 3.0.4 change the version to 0:3.0.4
Side Effects
To use on 3.0.4 change the version to 0:3.0.4
API DeclarationsFunction Pass(password)
Key1 = "`-=~!@#$%^&*()_+[]\{}|;':" _
& """" & ",./<>?abcdefghijklmnopqrstuvwxyzABCDEFG" _
& "HIJKLMNOPQRSTUVWXYZ0123456789"
Key2 = "GFEDCBAzyxwvutsrqponmlkjihgfed" _
& "cba?>& "!~=-`9876543210ZYXWVUTSRQPONMLKJIH"
For i = 1 To Len(password)
A = Mid(password, i, 1)
B = InStr(1, Key1, A)
C = B - (i - 1)
D = Mid(Key2, C, 1)
E = E + D
Next i
If E = "" Then
Else
Pass = "0" & E & "1"
End If
End Function
Function User(Username, Version)
If Username = "" Then
User = ""
Else
If Version = "" Then
User = "2.2.2:" & Username & "@netzero.net"
Else
User = Version & ":" & Username & "@netzero.net"
End If
End If
End Function
To Use on Netzero Zeroport 3.0.4 change the version to 0:3.0.4
This would cause netzero to connect.
Download Camaro's NetZero 3.0.4 DUN Creator (Updated for Netzero 3.0.4) (396 KB)
VBcoders