关于聪明的搬运工 (1千字)

boxman用blowfish兄介绍的dodi的vb discompiler反编译出来的代码就直接
可以作为注册码生成程序，很简单。不过此软件的注册还是需要从作者那里得到
一个文件---boxman.box应该是地图文件，非常重要了，要不然即便注册成功，
也没有用。下面就是注册程序。
Function fn0428 (ByVal p0052 As String, ByVal p0054 As String, p0056
As String, p0058 As Single) As String
Dim l005C As Integer
Dim l005E As Integer
Dim l0060 As Integer
Dim l0062 As String
Dim l0064 As Integer
Dim l0066 As Variant
Dim l006A As Variant
l005E = Len(p0054)
If  p0052 = "E" Then
    Randomize
    l0064 = (p0058 * 10000 Mod 255) + 1
    l0062 = Hex$(l0064)
    If  Len(l0062) = 1 Then
        l0062 = "0" + l0062
    End If
    For l006A = 1 To Len(p0056)
        l0060 = (Asc(Mid$(p0056, l006A, 1)) + l0064) Mod 255
        If  l005C < l005E Then l005C = l005C + 1 Else l005C = 1
        l0060 = l0060 Xor Asc(Mid$(p0054, l005C, 1))
        l0062 = l0062 + Format$(Hex$(l0060), "@@")
        l0064 = l0060
    Next
ElseIf p0052 = "D" Then
    l0064 = Val("&H" + Left$(p0056, 2))
    For l006A = 3 To Len(p0056) Step 2
        l0060 = Val("&H" + Trim(Mid$(p0056, l006A, 2)))
        If  l005C < l005E Then l005C = l005C + 1 Else l005C = 1
        l0066 = l0060 Xor Asc(Mid$(p0054, l005C, 1))
        If  l0066 <= l0064 Then
            l0066 = 255 + l0066 - l0064
        Else
            l0066 = l0066 - l0064
        End If
        l0062 = l0062 + Chr(l0066)
        l0064 = l0060
    Next
End If
fn0428 = l0062
End Function
现在破解真实越来越自动化了！
                                                arbiter