woxiangjingjing 发表于 2024-4-4 18:49:27

新手小白求救，如何跳过弹窗，注册

1.新手小白，想把原程序的弹窗去掉，直接程序里面跳过输入注册码部分， 研究了半天没研究明白 求大神指点
原程序是 弹窗，获取mac地址， 然后输入 注册码12345678   
(DEFUN REGISTER( / ADDRESS S_N ID SDT FLAG SN1 SN2 SN3 REGOK )(VL-LOAD-COM ) (DEFUN GETDATA() (setq ADDRESS (GET_TILE "mac" )) (setqS_N (GET_TILE "sn" ))) (setq STD 0) (setq FLAG T) (setq SN1 nil) (setq SN2 nil) (setq SN3 nil) (setq ADDRESS "00-00-00-00-00-00") (setq S_N "") (setq ID (LOAD_DIALOG "Reg.DCL" ))(if (< ID 0 ) (PROGN    (if (= MENU-FILE-ROOT nil ) (PROGN   (GETROOT ) )) (setq ID (LOAD_DIALOG (STRCAT MENU-FILE-ROOT "\\fas\\Reg.DCL" ) ))(if (< ID 0 ) (PROGN   (PRINC "load_dialog reg.dcl fail ,exit" ) )) )) (while (and (AND FLAG (NOT (< ID 0 ) ) ))(if (NOT (NEW_DIALOG "reg" ID ) ) (PROGN   (PRINC "open reg.dcl fail ,exit" ) )) (SET_TILE "mac" ADDRESS ) (SET_TILE "sn" S_N ) (ACTION_TILE "pick" "(set_tile \"mac\" (getmac))" ) (ACTION_TILE "accept" "(getdata) (done_dialog 1)" ) (ACTION_TILE "cancel" "(done_dialog -1)" ) (setq SDT (START_DIALOG ))(if (> SDT 0 ) (PROGN    (if (= ADDRESS "00-00-00-00-00-00" ) (PROGN   (ALERT "mac address is wrong,reget it" ) )(PROGN   (setq SN1 (CHMAC ADDRESS )) (setq SN2 (JGSN S_N ))(if (= SN2 nil ) (PROGN   (ALERT "S/N is wrong, reput it" ) )(PROGN   (setq SN2 (STRCAT SN2 (OVERDUEDATE S_N ) )) )) ))(if (AND (/= SN1 nil ) (/= SN2 nil ) ) (PROGN   (setq SN3 (CREATE_SN SN1 SN2 "add" )) (setq REGOK (WT_REG SN3 S_N ))(if REGOK (PROGN   (setq FLAG nil) (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\AutoMenu" "regcount" REGOK ) (ALERT "register successfully" ) )) )) )(PROGN   (setq FLAG nil) )) ) (UNLOAD_DIALOG ID ) REGOK)

uualice2020 发表于 2024-4-4 19:29:38

把这个代码全部去掉

xiao1984 发表于 2024-4-4 21:50:33

不会去除注册信息，你这代码怎么反编译出来的；要是想把自己的程序里面加入注册机代码，这段代码里缺少了DCL文件。

czb203 发表于 2024-4-5 12:23:32

建议永久封号

有区别吗 发表于 2024-4-5 16:59:00

跳过简单,直接去注册表里写这个REGOK的键值呗.
只不过鬼知道这个REGOK人家原来是怎么实现的;P

kozmosovia 发表于 2024-4-5 18:12:11

小白反编译，还是让他慢慢琢磨比较好，毕竟反编译省下来的时间，还得需要琢磨给还回去
页: [1]
查看完整版本: 新手小白求救，如何跳过弹窗，注册