论坛: 编程破解 标题: 谁能给我写个逆运算的代码出来 复制本贴地址    
作者: [hcz]    论坛用户   登录
Public Function Crypt(zhucema, salasana)
    Dim t, sana, x1, G, TT, Crypted
    On Error Resume Next
   
    For t = 1 To Len(salasana)
        sana = Asc(Mid(salasana, t, 1))
        x1 = x1 + sana
    Next

    x1 = Int((x1 * 0.1) / 6)
    salasana = x1
    G = 0

    For TT = 1 To Len(zhucema)
        sana = Asc(Mid(zhucema, TT, 1))
        G = G + 1

        If G = 6 Then G = 0
            x1 = 0

            If G = 0 Then x1 = sana - (salasana - 2)

                If G = 1 Then x1 = sana + (salasana - 5)

                    If G = 2 Then x1 = sana - (salasana - 4)

                        If G = 3 Then x1 = sana + (salasana - 2)

                            If G = 4 Then x1 = sana - (salasana - 3)

                                If G = 5 Then x1 = sana + (salasana - 5)
                                    x1 = x1 + G
                                    Crypted = Crypted & Chr(x1)
    Next
    Crypt = Crypted
End Function


以上是运算过程.

地主 发表时间: 05-08-18 01:51

回复: [hcz]   论坛用户   登录
我要把注册码算成注册号

B1层 发表时间: 05-08-18 16:05

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号