中国电信作为元老级的国字队的流氓，实在是兢兢业业。

下发的数字校园拨号器不仅经常给你691,619之类的错误代码来提示你它的存在之外，还不会忘记在你每次连接成功的时候给你一个广告窗口。

最为可恶的是它没有LUNX版本，着对于那些想学习Linux系统的同学来说实在是一个挑战。

感谢国家队。

在这里给出VB.NET2008源码及用户名加密算法供大家参考。

Imports System.TextImports Microsoft.Win32Imports System.Security.CryptographyImports System.Text.UnicodeEncoding

‘获得时间戳

Function getTime() As String

Dim timeYear As Long

timeYear = (DateTime.Now.Year - 1970) * 365 * 24 * 36

timeYear = timeYear * 100 + DateTime.Now.Month * 30 * 24 * 3600 + DateTime.Now.Day * 24 * 3600 _

+ DateTime.Now.Hour * 3600 + DateTime.Now.Minute * 60 + DateTime.Now.Second

getTime = Hex(timeYear).ToLower

End Function

'MD5加密函数

Function getMD5Hash(ByVal strToHash As String) As String

Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider

Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)

bytesToHash = md5Obj.ComputeHash(bytesToHash)

Dim strResult As String = ""

For Each b As Byte In bytesToHash

strResult += b.ToString("x2")

Next

Return strResult

End Function

‘获得加密用户名

Function getUsername() As String

Dim tempStr As String

tempStr = getTime() & "Tyroth" & TextUserName.Text & TextPassword.Text

tempStr = getMD5Hash(tempStr)

tempStr = "~ghca" & getTime() & "2002" & Strings.Left(tempStr, 20) & TextUserName.Text

TextBox1.Text = tempStr

getUsername = tempStr

End Function