吾爱汇编

 找回密码
 立即注册

QQ登录

绑定QQ避免忘记帐号

查看: 1356|回复: 1

谁帮忙分析下源码,求思路。

[复制链接]
936478098 发表于 2018-1-13 11:28 | 显示全部楼层 |阅读模式

本站严厉禁止求脱求破行为(包含无自我分析直接求思路),如发现此类求助主题请点击“举报”,让我们共同维护优质的学习环境!


30HB
(DEFUN FIND_SERIALNUMBER (DRIVE / FILSYS VAL)
  (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
  (setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE))
  (setq VAL (VL-CATCH-ALL-APPLY 'vlax-get (LIST VAL "SerialNumber")))
  (vlax-release-object FILSYS)
  (if (VL-CATCH-ALL-ERROR-P VAL)
    (PROGN (setq VAL nil))
    (PROGN VAL)
  )
)
(DEFUN FP_CHECK_COMPUTER (/              FP_REGNUMBER
                          NUM              PP_REGNUM          REG_PATH
                          *ERROR*     COMPUTERNAME
                          CDATE              NAMES          FILE3
                          FILETIME    REG_PATH          USERDOMAIN
                          PATH
                         )
  (setq        REG_PATH
         "HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\temp"
  )
  (setq FP_REGNUMBER (VL-REGISTRY-READ REG_PATH "注册码"))
  (if
    (/=
      FP_REGNUMBER
      (RTOS (+ (/ (ATOI (RTOS (ATOI (RTOS (FIND_SERIALNUMBER "C:"))))) 3)
               8
            )
            2
            0
      )
    )
     (PROGN (ALERT (STRCAT "命令未注册,请注册!"))
            (setq NUM (RTOS (FIND_SERIALNUMBER "C:")))
            (setq
              PP_REGNUM        (RTOS (+ (/ (ATOI (RTOS (ATOI NUM))) 3) 8) 2 0)
            )
            (TEXTSCR)
            (PRINC (STRCAT "您的申请码为: " NUM))
            (setq FP_REGNUMBER (GETSTRING "\n请输入注册码:"))
            (if        (/= FP_REGNUMBER PP_REGNUM)
              (PROGN (ALERT "注册码无效!") (EXIT))
              (PROGN (VL-REGISTRY-WRITE REG_PATH "注册码" PP_REGNUM)
                     (ALERT "您已注册成功!")
              )
            )
     )
     (PROGN (PRINC "核对注册码正确"))
  )
  (setq PATH (FINDFILE "TempLoadRegdit.txt"))
  (if (/= (VL-FILE-SIZE PATH) 61)
    (PROGN (ALERT "注册文件错误") (EXIT))
  )
  (setq FILETIME (VL-FILE-SYSTIME PATH))
  (if (= FILETIME nil)
    (PROGN (ALERT "未找到注册时间") (EXIT))
  )
  (if (> (NTH 0 FILETIME) )
    (PROGN (if (> (NTH 1 FILETIME) 1)
             (PROGN (ALERT "试用已到期,请联系程序开发者!"))
             (PROGN (EXIT))
           )
    )
  )
  (setq FILE3 (OPEN PATH "W"))
  (WRITE-LINE
    "HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\temp"
    FILE3
  )
  (CLOSE FILE3)
  (PRINC)
)

1.谁帮忙翻一下这段你程序,我想跳过"试用已到期,请联系程序开发者!"  就行。
2.另外他的 if 语句 判断读取的  FILETIME 是什么东西呢。。。解释下

吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM
chinwawa 发表于 2018-1-14 05:57 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

警告:本站严惩灌水回复,尊重自己从尊重他人开始!

1层
2层

免责声明

吾爱汇编(www.52hb.com)所讨论的技术及相关工具仅限用于研究学习,皆在提高软件产品的安全性,严禁用于不良动机。任何个人、团体、组织不得将其用于非法目的,否则,一切后果自行承担。吾爱汇编不承担任何因为技术滥用所产生的连带责任。吾爱汇编内容源于网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除。如有侵权请邮件或微信与我们联系处理。

站长邮箱:SharkHeng@sina.com
站长QQ:1140549900


QQ|RSS|手机版|小黑屋|帮助|吾爱汇编 ( 京公网安备11011502005403号 , 京ICP备20003498号-6 )|网站地图

Powered by Discuz!

吾爱汇编 www.52hb.com

快速回复 返回顶部 返回列表