【原创】贴个注册机源码

Eddy 发布于2009-12-3 13:17:14 分类: 原创破解 已浏览loading 网友评论0条 我要评论

以防丢失……

代码:

Option Explicit

Private Sub Command1_Click()
Text2.Text = Key(FileLen("D:\xxxx.xml"), Text1.Text)
End Sub


Private Function Key(ByVal myText As String, ByVal passWord As String) As String
Dim loc3 As String
Dim loc4 As Long
Dim loc1 As Integer
Dim loc2 As Long
loc1 = 1
loc3 = ""
loc4 = 0
Do While loc1 <= Len(passWord)
    loc4 = loc4 + Asc(Mid(passWord, loc1, 1))
    loc1 = loc1 + 1
Loop

loc1 = 1
Do While loc1 <= Len(myText)
    loc2 = loc4 + Asc(Mid(myText, loc1, 1))
    loc3 = loc3 + Str(loc2) + "-"
    loc1 = loc1 + 1
Loop
Key = Mid(loc3, 1, Len(loc3) - 1)
End Function

已经有(0)位网友发表了评论,你也评一评吧!
原创文章如转载,请注明:转载自Eddy Blog
原文地址:http://www.rrgod.com/crack/186.html     欢迎订阅Eddy Blog

记住我的信息,下次不用再输入 欢迎给Eddy Blog留言