求助一个注册码的算法问题

LEEPYTK

软件为CAD的一个插件。已知信息有一组机器码和注册码：
PC8771686645798775To be filled by O.E.M.
NlO1mHwax6BH?yCyw5By?aOUc6d1wafV=JEJ4yx3N1=af1fV25ky2ywy?ywa?aqa
成功注册后，两个码会被写入注册表。cad操作过程中，若在注册表中修改注册码，功能立即失效并请求重新注册。
以及疑似注册码算法的片段（已去除原作信息及涉及功能的片段）如下，求助大佬们是否能看出算法：（PS这代码是不是倒着写的？）
文件地址：
链接：https://pan.baidu.com/s/15C9kLjGZuvEYPE4mVtt3rQ
提取码：lf0t

代码片段：
76 2C / "\n为适应代码运行需要，已将系统变量【LISPSYS】的值改为0，重启CAD后生效。\n"
75 2C / '(REGINFODELETE SN_AT SN_AT1 SN_ZW SN_ZW1 SQL VS_AT )
74 2C / "HKEY_CURRENT_USER\\SOFTWARE\\XXtools"
73 2C / "SN"
72 2C / SN_AT
71 2C / "VERSION"
70 2C / VS_AT
6F 2C / "HIJa5yKL6lUV13W9XYZ0bgj+opnMhiNcdexf8OPrvzQRSsuA?=wBq4C2DmE7kFG/tT"
6E 2C / WF::TH:RND_JIAM
6D 2C / SN_AT1
6C 2C / "HKEY_CURRENT_USER\\Software\\XXcad"
6B 2C / "Version"
6A 2C / VL-REGISTRY-WRITE
69 2C / "SN1"
68 2C / "Machine code1"
67 2C / "HKEY_CURRENT_USER\\SOFTWARE\\XXtxzt"
66 2C / SN_ZW
65 2C / SN_ZW1
64 2C / "SN2"
63 2C / "Machine code2"
62 2C / '(FOLD )
61 2C / D_QL
60 2C / VL-REGISTRY-DESCENDENTS
5F 2C / FOLD
5E 2C / VL-REGISTRY-DELETE
5D 2C / REGINFODELETE
5C 2C / "HKEY_CURRENT_USER\\Software\\XXXtools"
5B 2C / "HKEY_CURRENT_USER\\Software\\XXXsoft"
5A 2C / "HKEY_CURRENT_USER\\Software\\XXXxzt"
59 2C / ACTIONUM
58 2C / '(*ERROR* ATTSTART BGETDIST BGETNUM CHGETTE DK:PTRELATELINE EDITATT FUN-MENU GETNEWDATA HY_LOADFILELIST HY-EXIT HY-MAI_LIST_DIVIDE HY-OPENCONFIG LOADEDITMODE NEWPO NOWTIME PASS1 PASSKEY PASSWORD PDBUTTON PFLST SETDUIYING TONGBU0 TONGBU1 WF::CMD:CTL WF::CMD:CXL WF::CMD:CZF WF::CMD:DGL WF::CMD:DHL WF::CMD:DJJ WF::CMD:DXL WF::CMD:FJK WF::CMD:GJT WF::CMD:GMP WF::CMD:GQW WF::CMD:GSX WF::CMD:GX WF::CMD:GZT WF::CMD:HLF WF::CMD:HLY WF::CMD:HXL WF::CMD:HZB WF::CMD:JCD WF::CMD:LAX WF::CMD:NJX WF::CMD:PYS WF::CMD:QBL WF::CMD:QJY WF::CMD:S2P WF::CMD:SCF WF::CMD:SJH WF::CMD:SJS WF::CMD:TJS WF::CMD:XBZ WF::CMD:XCD WF::CMD:XCG WF::CMD:XGJ WF::CMD:YJX WF::CMD:ZGL WF::CMD:ZJL WF::CMD:ZM WF::CMD:ZXP WF::CMD:ZYH WF::HD:HDXLH WF::HD:UPXLH WF::STR:MD5 WF:CJXB WF:DCLREG WF:JMZCC WF:JQMHX WF:KJCF WF:LIST-SORT WF:LSDCL WF:MD5 WF:STRZLST WF:SZMM WF:XLHHX WF:ZDYK WF:ZFZB WF_DDX WF_DTSXHLP WF_GET )
57 2C / #KEYS#
56 2C / "_bak"
55 2C / '(GDLST N )
54 2C / "hfjghrdhjtyjhjrjrj"
53 2C / GDLST
52 2C / WF:SZMM
51 2C / @ITEM1
50 2C / @ITEM2
4F 2C / @ITEM3
4E 2C / "kdfgdfshgr"
4D 2C / "uygkgyhtrh"
4C 2C / WF:ZDYK
4B 2C / '(LSTSTR N STRN )
4A 2C / "jukhykghtrfgf"
49 2C / LSTSTR
48 2C / WF:ZFZB
47 2C / '(1 2 3 4 )
46 2C / '(1 2 3 5 )
45 2C / "123"
44 2C / "124"
43 2C / '(199 235 201 212 181 200 46 46 46 46 46 46 46 161 163 )
42 2C / "delay"
41 2C / @STRING
40 2C / '(A B C D F G H I K L LST R W X Y )
3F 2C / '(POSITIONI YPOUTSTRING )
3E 2C / POSITIONI
3D 2C / YPOUTSTRING
3C 2C / VL-STRING-ELT
3B 2C / STRINGTOASCII
3A 2C / '(L X )
39 2C / MD5:INT->BITS
38 2C / MD5:BITS->INT
37 2C / '(B R )
36 2C / 1.0e-08
35 2C / MD5:BITS->BYTES
34 2C / MD5:BYTES->BITS
33 2C / MD5:INT->CHAR
32 2C / MD5:BYTE->HEX
31 2C / MD5:LEFTROTATE
30 2C / @BL1
2F 2C / @BL2
2E 2C / '(R )
2D 2C / '(X )
2C 2C / MD5:UINT32_0
2B 2C / MD5:UINT32_+
2A 2C / QUOTE
29 2C / '(3614090360.0 3905402710.0 606105819 3250441966.0 4118548399.0 1200080426 2821735955.0 4249261313.0 1770035416 2336552879.0 4294925233.0 2304563134.0 1804603682 4254626195.0 2792965006.0 1236535329 4129170786.0 3225465664.0 643717713 3921069994.0 3593408605.0 38016083 3634488961.0 3889429448.0 568446438 3275163606.0 4107603335.0 1163531501 2850285829.0 4243563512.0 1735328473 2368359562.0 4294588738.0 2272392833.0 1839030562 4259657740.0 2763975236.0 1272893353 4139469664.0 3200236656.0 681279174 3936430074.0 3572445317.0 76029189 3654602809.0 3873151461.0 530742520 3299628645.0 4096336452.0 1126891415 2878612391.0 4237533241.0 1700485571 2399980690.0 4293915773.0 2240044497.0 1873313359 4264355552.0 2734768916.0 1309151649 4149444226.0 3174756917.0 718787259 3951481745.0 )
28 2C / '(7 12 17 22 7 12 17 22 7 12 17 22 7 12 17 22 5 9 14 20 5 9 14 20 5 9 14 20 5 9 14 20 4 11 16 23 4 11 16 23 4 11 16 23 4 11 16 23 6 10 15 21 6 10 15 21 6 10 15 21 6 10 15 21 )
27 2C / '(1732584193 4023233417.0 2562383102.0 271733878 )
26 2C / '(0 0 0 0 )
25 2C / CDDDDR
24 2C / '(A B C D )
23 2C / ~
22 2C / G
21 2C / '(LAMBDA (A B C ) (BOOLE 6 A B C ) )
20 2C / '(D C A B I )
1F 2C / WF:MD5
1E 2C / MOLD
1D 2C / '(FILE1 FILE2 F G H I )
1C 2C / FILE2
1B 2C / "base64"
1A 2C / "-base64"
19 2C / "cmd.exe /c"
18 2C / "StringHash.exe"
17 2C / " /A:"
16 2C / " /S:"
15 2C / "cmd.exe /c certutil -decode "
14 2C / FILE1
13 2C / "cmd.exe /c certutil -encode "
12 2C / WF::STR:MD5
10 2C / "a"
0F 2C / "j"
0E 2C / WF:XLHHX
0D 2C / '(CODE LENNUM N STRLST )
0C 2C / LENNUM
0B 2C / CODE
0A 2C / WF:JQMHX
09 2C / @DEL
08 2C / WF:STRZLST
07 2C / @OPER
06 2C / '(X1 X2 )
05 2C / '(LAMBDA (X1 X2 ) (IF (AND (ATOM X1 ) (ATOM X2 ) ) (APPLY @oper (LIST X1 X2 ) ) (APPLY @OPER (LIST (CAR X1 ) (CAR X2 ) ) ) ) )
04 2C / WF:LIST-SORT
03 2C / '(LST LST1 METH1 METH2 METH3 N UPLST WMI )
02 2C / "Select * from Win32_LogicalDisk Where DriveType = 2"
01 2C / "Select * from Win32_DiskDrive Where InterfaceType = 'USB'"
00 2C / METH3
FF 2B / PNPDEVICEID
FE 2B / "UP"
FD 2B / UPLST
FC 2B / WF::HD:UPXLH
FB 2B / '(LST N PCLST STR_HXH UPLST WF::HD:SERIAL )
FA 2B / '(DRV SER SRV WMI )
F9 2B / SER
F8 2B / "Select SerialNumber from Win32_DiskDrive"
F7 2B / DRV
F6 2B / PROP
F5 2B / "SERIALNUMBER"
F4 2B / WF::HD:SERIAL
F3 2B / PCLST
F2 2B / STR_HXH
F1 2B / UP
F0 2B / WF::ZBCPUXL
EF 2B / "PC"
EE 2B / WF:DESAME
ED 2B / WF::HD:HDXLH
EC 2B / '(NEWLST )
EB 2B / WF:CJXB
EA 2B / '(DCL_FILE DCL_ID DIALOG_RETURN DRILET DRILETFLIE ENDAPPCODE ENDPASSWORD KEY KEYS PASSWORD PFLST SQL ENDPASSWORD1 )
E9 2B / WF:JMZCC
E8 2B / "zcdhk"
E7 2B / '("Drilet" "Appcode" "password" "copycode" "accept" "cancel" )
E6 2B / PFLST
E5 2B / "Drilet"
E4 2B / WF::IMG_LOGO
E3 2B / "Appcode"
E2 2B / "password"
E1 2B / GET_TILE
E0 2B / "\n警告：电脑插入了新的U盘、移动硬盘或者SD卡及其它外接设备，导致机器码无法读取，请检查移除后重新获取！"
DF 2B / "(wf:kjcf $key $value)"
DE 2B / ACTION_TILE
DD 2B / DIALOG_RETURN
DC 2B / PASSWORD
DB 2B / ENDPASSWORD
DA 2B / "6h4X3oGYsZunwZPpcXzYGgviTb8ZloBZXp=oYn+nN0NY6JG0O0yh?YYUYUcX7g=H?y4a?I4yB5k5EaDIq5h0hYW5Yo=oUibifb2YbldV86c143iXiZ"
D9 2B / WF::TH:RND_JIEM
D8 2B / LKVL_SYS_UNICODEP
D7 2B / "NsfBdlbCb=Tg8iGAV"
D6 2B / "VIt0vi3i+iWhGXlieMLifnfbcZ"
D5 2B / WF:DCLREG
D4 2B / ENDPASSWORD1
D3 2B / ENDAPPCODE
D2 2B / SYZ-MD5
D1 2B / PASS1
D0 2B / "wl4UFyNUxUCIB6u3kyqyNVc34UB6qJ2Jel?HB6u3EJd1EaCyA1A12J45CH?yu3A1fVOlq5BJ"
CF 2B / "lacZ7Y6oXn/Z4pLozg3MInYp/gah70hYCg3p9hS05MC0xXmYf0EgzpiZ8b4ZwX3oObaMqY1pHifbiX"
CE 2B / '(KEY )
CD 2B / WF:LSDCL
CC 2B / @VALUE
CB 2B / "accept"
CA 2B / "cancel"
C9 2B / "copycode"
C8 2B / WF:S-CL-ST
C7 2B / "laCYBMT0AnGXOoUn3nmgB03itZh0R0/bzh9osZaiCiCZ2iYoAnYnopE02iWhWh70xZ4Z8hcXhY"
C6 2B / DONE_DIALOG
C5 2B / DRILET
C4 2B / WF:KJCF
C3 2B / '(DCL_LIST )
C2 2B / "zcdhk:dialog{label = \"
C1 2B / "】注册窗口\" ;"
C0 2B / "    :boxed_row {label = \"请粘贴激活码进行激活：\" ;alignment = centered ;children_fixed_width = true ;"
BF 2B / "        fixed_height = true ;fixed_width = true ;"
BE 2B / "        :column {"
BD 2B / "            :text {label = \"盘符:\" ;}"
BC 2B / "            :list_box { key = \"Drilet\" ;width = 6 ;height = 10 ;"
BB 2B / "                        fixed_height = true ;fixed_width = true ;is_tab_stop = true ;"
BA 2B / "                      }"
B9 2B / "                }"
B8 2B / "        :column {fixed_height = true ;"
B7 2B / "            :edit_box {label = \"机器码：\" ;key = \"Appcode\"; "
B6 2B / "                         edit_width = 70 ;is_enabled = false ;"
B5 2B / "            :edit_box {label = \"激活码：\" ;key = \"password\" ;edit_width = 70 ;}"
AE 2B / "        spacer_1;"
AD 2B / "        :image{key=\"Img_Logo\"; fixed_width=true; fixed_heigth=true; alignment=centered;width=20;aspect_ratio=0.7342;}"
AC 2B / "    :row {alignment = centered ;children_fixed_width = true ;fixed_width = true ;"
AB 2B / "        :button {label = \"复制\" ;key = \"copycode\" ;width = 15 ;}"
AA 2B / "        :button {label = \"激活\" ;key = \"accept\" ;width = 15 ;}"
A9 2B / "        :button {label = \"取消\" ;key = \"cancel\" ;is_cancel = true ;width = 15 ;}"
A8 2B / "    :text{key=times;}"
A7 2B / "spacer;"
A6 2B / DCL_LIST
A5 2B / DCL:MAKE
A4 2B / "HKEY_CURRENT_USER\\SOFTWARE\\XXXcad"
A3 2B / "74be16979710d4c4e7c6647856088456"
A2 2B / "j0VVZd0mqwwr6VIBCWlYUG5wa4HByqyq52Hk5DIEa?H1"
A1 2B / "LiPp4gDo5hooBXzg6h2ZYh/Xh0R0HpOoFXQbKMBZXp=oWpbifbdg9ytgrY6psb01XVh0qZBJqIw5wawJ2Hk5F57JwJN0xg"
A0 2B / PASSKEY
9F 2B / "PC1"
9E 2B / WF_XSSC
9D 2B / "eh5FDTJJ3J6hooMfQbx?Zcl"
9C 2B / "6JHpvi1h0pUoIiypeM5n8piZN0"
9B 2B / '(CMDMODE CECO OSMO )
9A 2B / WF-CWCLHS-0
99 2B / CMDMODE
98 2B / "cecolor"
97 2B / CECO
96 2B / OSMO
95 2B / GMP::NEW-LAYER
94 2B / WF:QDDCL
93 2B / WF-CWCLHS-1
92 2B / WF::CMD:GX
91 2B / '(CECO CMDMODE OSMO )
90 2B / DCL_DJJ
8F 2B / WF::CMD:DJJ
8E 2B / DCL_ZJL
8D 2B / WF::CMD:ZJL
8C 2B / '(CECO CMDMODE OSMO PW )

Bao_lai

不如直接把文件发上来给大佬们耍耍

LEEPYTK

Bao_lai 发表于 2024-4-23 08:24
不如直接把文件发上来给大佬们耍耍

已编辑帖子加入原文件下载地址，帮忙邀请一下大佬吧