Camaro's NetZero 3.0.4 DUN Creator (Updated for Netzero 3.0.4)

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 http://pass.ezcpufix.com for an online version. Use an Active X enabled browser!

Original Author: CamaroMan

Inputs

To use on 3.0.4 change the version to 0:3.0.4

Assumptions

Very Detailed Code Source.
Easy For Everyone.
Web Based version at http://pass.ezcpufix.com

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 Declarations

Function 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.

About this post

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

Comments

No comments have been added for this post.

You must be logged in to make a comment.