免服务器验证QQ号注册の东拼西凑源代码
本帖最后由 yanshengjiang 于 2025-1-16 18:23 编辑有些程序使用本地保存注册信息，有的程序使用加密狗验证，有的程序绑定QQ号或者QQ群。
这里我探讨一种方式进行网络在线验证。
该方式用到了大海老师的获取网页内容的代码。
判断用户是否是注册的验证代码为：(try-get-url "https://gitee.com/yan1986/zhucema/raw/master/README.en.md")
(wcmatch (try-get-url "https://gitee.com/yan1986/zhucema/raw/master/README.en.md")"*1987*")
原理：在https://gitee.com内新建仓库，将用户的机器码写入README.en.md。不需要计算、转换注册码，单纯判断程序所有者有没有把用户的机器码保存在仓库内。
不知道有没有bug，希望能得到大佬的指点。
本帖最后由 kozmosovia 于 2025-1-16 12:44 编辑
直接读取原始数据对应的连接地址即可获得内容.
不需要给每个用户建仓库，自己建一个仓库，一个文件保存所有数据就行了。
本帖最后由 yanshengjiang 于 2025-1-16 18:59 编辑
糅合各位大佬的程序，现在可以用QQ号来注册程序了。
(DEFUN MAI_LISTTOSTREAM(OUT_FILE INTLIST / ADODB)
(setqINTLIST
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray 17 (CONS 0 (1- (LENGTH INTLIST))))
INTLIST ) 8209 ))
(setq ADODB (vlax-get-or-create-object "adodb.stream"))
(vlax-put-property ADODB 'TYPE 1)
(vlax-invoke ADODB 'OPEN)
(vlax-put ADODB 'POSITION 0)
(vlax-invoke-method ADODB 'WRITE INTLIST)
(vlax-invoke ADODB 'SAVETOFILE OUT_FILE 2)
(AND ADODB (vlax-invoke ADODB 'CLOSE))
(AND ADODB (vlax-release-object ADODB))
(PRINC))
(if(null(findfile "d:/ReadTencentqqId.dll"))
(MAI_LISTTOSTREAM "d:/ReadTencentqqId.dll" (append'( 077 090 144003 004 255 255 184 064 128 014 031 186 014180 009 205 033 184 001 076 205 033 084 104 105 115 032 112 114 111 103 114 097 109 032 099 097 110 110 111 116 032 098 101 032 114 117 110 032 105 110 032 068 079 083 032 109 111 100 101 046 013 013 010 036 080 069 076 001 003242 013 099 094 224002 033 011 001 011 020 006 062 051 032 064 016032 002 004 004 128 002 003064 133 016 016 016 016 016 240 050 075 064 192 002 096 012 184 049 028 032 008 008 032 072 046 116 101 120 116 068 019 032 020 002 032 096 046 114 115 114 099 192 002 064 004 022 064 064 046 114 101 108 111 099 012 096 002 026 064 066 032 051 072 002005144 036 040 013 001 027 048 006093 002 001 017040 006 010 111 007 010 010 006 111 008 010 011 006 111 009 010 012 114 001 112 115 010 010 013 009 114 053 112 111 011 010009 208 016 001 040 012 010 023 111 013 010008 009 111 014 010 019 004 017 004 111 015 010 032 236 019 254 001 019 011 017 011 045 005 056 247 001 008 111 016 010 019 005 007 111 017 010 111 018 010 019 006017 006 017 004 111 019 010 023 111 020 010 116 016 001 019 007 017 007 018 005 040 021 010 111 022 010017 007 111 023 010 019 008 115 024 010 019 009017 009 022 018 008 040 025 010 019 012 018 012 040 026 010 018 008 040 025 010 019 012 018 012 040 027 010 115 028 010 035 035 035 111 029 010017 009 023 018 008 040 030 010 019 012 018 012 040 026 010 018 008 040 025 010 019 012 018 012 040 027 010 115 028 010 035 035 035 111 029 010017 009 024 018 008 040 030 010 019 012 018 012 040 026 010 018 008 040 030 010 019 012 018 012 040 027 010 115 028 010 035 035 035 111 029 010017 009 025 018 008 040 025 010 019 012 018 012 040 026 010 018 008 040 030 010 019 012 018 012 040 027 010 115 028 010 035 035 035 111 029 010017 009 023 111 031 010017 009 111 032 010017 006 007 111 033 010 023 111 020 010 116 033 001 019 010 017 010 017 009 111 034 010 038 017 006 017 009 023 111 035 010017 009 017 005 111 022 010 222 020 017 009 020 254 001 019 011 017 011 045 008 017 009 111 036 010220017 007 017 005 111 022 010017 006 111 037 010 222 020 017 006 020 254 001 019 011 017 011 045 008 017 006 111 036 010220042 065 052 002 176 109 001 029 002 020 002 122 205 001 071 002 020 027 048 003190 002 017040 006 010 111 007 010 010 006 111 008 010 011 006 111 009 010 012 114 001 112 115 010 010 013 009 114 053 112 111 011 010009 208 016 001 040 012 010 023 111 013 010008 009 111 014 010 019 004 017 004 111 015 010 032 236 019 254 001 019 008 017 008 045 002 043 091 008 111 016 010 019 005 007 111 017 010 111 018 010 019 006017 006 017 004 111 019 010 023 111 020 010 116 016 001 019 007 017 007 018 005 040 021 010 111 022 010017 006 111 037 010 222 020 017 006 020 254 001 019 008 017 008 045 008 017 006 111 036 010220042 001 016 002119049 168020 019 048 004166 003 017114 139 112 010 114 141 112 020 040 003 006 011 007 022 254 001 022 254 001 019 006 017 006 045 006020 019 005 043 125 032001 115 040 010 012 032001 115 040 010 013 043 086007 008 008 111 041 010 040 004 006 038 008 111 042 010 114 181 112 111 043 010 022 254 001 019 006 017 006 045 045008 111 042 010 031 095 111 044 010 019 004 008 111 042 010 017 004 023 088 008 111 045 010 017 004 089 023 089 111 046 010 010 043 011007 022 254 002 019 006 017 006 045 160 006 019 005 043017 005 042 030 002 040 047 010 042 030 002 040 047 010 042 066 083 074 066 001001 012 118 052 046 048 046 051 048 051 049 057 005108 220 003 035 126 072 004 080 006 035 083 116 114 105 110 103 115 152 010 192 035 085 083088 011 016 035 071 085 073 068 104 011 192 001 035 066 108 111 098 002 001 071 021 002 020 009 250 037 051022 001 037 003 009 011 047 007 003 001 004 001 003 010001 006072065006130118010223189006094 001 068 001 006138 001 119 001 023158 001 006205 001 173 001 006237 001 173 001 014061 002 036 002 014126 002 084 002 014175 002 138 002 014214 002 138 002 010245 002 189014040 003 011 003 014058 003 011 003 010095 003 189006110 003 065006115 003 065014167 003 011 003 014196 003 011 003 014209 003 011 003 010003 004 233 003 010044 004 189010086 004 189010115 004 189010137 004 189010146 004 189010173 004 189010192 004 189010223 004 189010232 004 233 003 010009 005 233 003 010092 005 189006146 005 065006204 005 173 005 014246 005 036 002 006034 006 065 001 001001001016029029005001001001016044 005001009080 032 150079010001240 034 150098010001 128145 032 107014001 128150 032 144020003 128150 032 158028006 128150 032 168020008204 035 150236034011126 036 134 024 252040012134 036 134 024 252040012 001002 001 002014 001 001027 001 002032 001 003041 001 001027 001 002045 001 001050 001 002002 001 003055 001 001065 001 033252044041252049057252055065252040073252044081194 002 073089223 002 078097254 002 083097047 003 088121252044121078 003 044137133 003 093121151 003 100113186 003 107161222 003 114113012 004 119105063 004 124185098 004 129153124 004 134193155 004 139177165 004 119225180 004 148225202 004 154241252040233240 004 159249253 004 164249003 005 164001 001 252168241017 005 174233029 005 159241042 005 185225053 005 040105073 005 134009 001 109 005 190193122 005 197017 001 158 005 040193166 005 040025 001 252044033 001 252044017252055017012 006 032 001 009025 006 036 001 041 001 041 006 040 001 041 001 050 006 045 001 017058 006 032 001 041 001 069 006 050 001 009252040032043060046011068 001 046019140 001 046027149 001 046035158 001 064043233224059 001 011 001 204247056 001 223 005 002 001 007234 005 001 001 009144001 001 011158001070 001 013168001004 128 011 002 004 001056 019001 181 019001 026 002 060 077 111 100 117 108 101 062077 121 116 101 115 116 102 117 110 099 116 105 111 110 046 100 108 108065 112 112 065 110 100 068 111 099 069 118 101 110 116077 121 065 115 115 101 109 098 108 108 121109 115 099 111 114 108 105 098083 121 115 116 101 109079 098 106 101 099 116071 101 116 069 120 116 101 110 116 115 065 098 111 117 116 085 099 115085 067 083 066 066 079 088 050070 105 110 100 087 105 110 100 111 119083 121 115 116 101 109 046 084 101 120 116083 116 114 105 110 103 066 117 105 108 100 101 114071 101 116 087 105 110 100 111 119 084 101 120 116071 101 116 087 105 110 100 111 119071 101 116 067 108 097 115 115 078 097 109 101065 099 100 098 109 103 100065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 068 097 116 097 098 097 115 101 083 101 114 118 105 099 101 115082 101 115 117 108 116 066 117 102 102 101 114082 101 097 100 084 101 110 099 101 110 116 113 113 073 100046 099 116 111 114108 112 067 108 097 115 115 078 097 109 101108 112 087 105 110 100 111 119 078 097 109 101104 119 110 100108 112 083 116 114 105 110 103099 099 104119 067 109 100104 087 110 100110 077 097 120 067 111 117 110 116114 098083 121 115 116 101 109 046 082 117 110 116 105 109 101 046 086 101 114 115 105 111 110 105 110 103084 097 114 103 101 116 070 114 097 109 101 119 111 114 107 065 116 116 114 105 098 117 116 101083 121 115 116 101 109 046 068 105 097 103 110 111 115 116 105 099 115068 101 098 117 103 103 097 098 108 101 065 116 116 114 105 098 117 116 101068 101 098 117 103 103 105 110 103 077 111 100 101 115083 121 115 116 101 109 046 082 117 110 116 105 109 101 046 067 111 109 112 105 108 101 114 083 101 114 118 105 099 101 115067 111 109 112 105 108 097 116 105 111 110 082 101 108 097 120 097 116 105 111 110 115 065 116 116 114 105 098 117 116 101082 117 110 116 105 109 101 067 111 109 112 097 116 105 098 105 108 105 116 121 065 116 116 114 105 098 117 116 101077 121 116 101 115 116 102 117 110 099 116 105 111 110097 099 099 111 114 101 109 103 100065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 082 117 110 116 105 109 101067 111 109 109 097 110 100 077 101 116 104 111 100 065 116 116 114 105 098 117 116 101065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 065 112 112 108 105 099 097 116 105 111 110 083 101 114 118 105 099 101 115 046 067 111 114 101065 112 112 108 105 099 097 116 105 111 110065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 065 112 112 108 105 099 097 116 105 111 110 083 101 114 118 105 099 101 115068 111 099 117 109 101 110 116 067 111 108 108 101 099 116 105 111 110103 101 116 095 068 111 099 117 109 101 110 116 077 097 110 097 103 101 114068 111 099 117 109 101 110 116103 101 116 095 077 100 105 065 099 116 105 118 101 068 111 099 117 109 101 110 116068 097 116 097 098 097 115 101103 101 116 095 068 097 116 097 098 097 115 101065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 069 100 105 116 111 114 073 110 112 117 116069 100 105 116 111 114103 101 116 095 069 100 105 116 111 114080 114 111 109 112 116 069 110 116 105 116 121 079 112 116 105 111 110 115083 101 116 082 101 106 101 099 116 077 101 115 115 097 103 101066 108 111 099 107 082 101 102 101 114 101 110 099 101084 121 112 101082 117 110 116 105 109 101 084 121 112 101 072 097 110 100 108 101071 101 116 084 121 112 101 070 114 111 109 072 097 110 100 108 101065 100 100 065 108 108 111 119 101 100 067 108 097 115 115080 114 111 109 112 116 069 110 116 105 116 121 082 101 115 117 108 116071 101 116 069 110 116 105 116 121080 114 111 109 112 116 082 101 115 117 108 116080 114 111 109 112 116 083 116 097 116 117 115103 101 116 095 083 116 097 116 117 115065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 071 101 111 109 101 116 114 121077 097 116 114 105 120 051 100103 101 116 095 067 117 114 114 101 110 116 085 115 101 114 067 111 111 114 100 105 110 097 116 101 083 121 115 116 101 109084 114 097 110 115 097 099 116 105 111 110 077 097 110 097 103 101 114103 101 116 095 084 114 097 110 115 097 099 116 105 111 110 077 097 110 097 103 101 114084 114 097 110 115 097 099 116 105 111 110083 116 097 114 116 084 114 097 110 115 097 099 116 105 111 110079 098 106 101 099 116 073 100103 101 116 095 079 098 106 101 099 116 073 100068 066 079 098 106 101 099 116079 112 101 110 077 111 100 101071 101 116 079 098 106 101 099 116073 110 118 101 114 115 101069 110 116 105 116 121084 114 097 110 115 102 111 114 109 066 121069 120 116 101 110 116 115 051 100103 101 116 095 071 101 111 109 101 116 114 105 099 069 120 116 101 110 116 115080 111 108 121 108 105 110 101080 111 105 110 116 051 100103 101 116 095 077 105 110 080 111 105 110 116103 101 116 095 088103 101 116 095 089080 111 105 110 116 050 100065 100 100 086 101 114 116 101 120 065 116103 101 116 095 077 097 120 080 111 105 110 116115 101 116 095 067 108 111 115 101 100083 101 116 068 097 116 097 098 097 115 101 068 101 102 097 117 108 116 115103 101 116 095 067 117 114 114 101 110 116 083 112 097 099 101 073 100066 108 111 099 107 084 097 098 108 101 082 101 099 111 114 100065 112 112 101 110 100 069 110 116 105 116 121065 100 100 078 101 119 108 121 067 114 101 097 116 101 100 068 066 079 098 106 101 099 116073 068 105 115 112 111 115 097 098 108 101068 105 115 112 111 115 101067 111 109 109 105 116083 121 115 116 101 109 046 082 117 110 116 105 109 101 046 073 110 116 101 114 111 112 083 101 114 118 105 099 101 115068 108 108 073 109 112 111 114 116 065 116 116 114 105 098 117 116 101117 115 101 114 051 050 046 100 108 108070 105 110 100 087 105 110 100 111 119 065076 105 115 112 070 117 110 099 116 105 111 110 065 116 116 114 105 098 117 116 101103 101 116 095 067 097 112 097 099 105 116 121084 111 083 116 114 105 110 103083 116 114 105 110 103067 111 110 116 097 105 110 115073 110 100 101 120 079 102103 101 116 095 076 101 110 103 116 104083 117 098 115 116 114 105 110 103 051 010083101108101099116032098108111099107032114101102101114101110099101058032 085 010083101108101099116101100032111098106101099116032105115032110111116032097032098108111099107032114101102101114101110099101046 001039 067084088079080067111110110116105111110095067108097115115 007 079080095 154 157 089 170 137 168 086 070 186 235 141 096 118 009 188 255008 183 122 092 086 025 052 224 137 003 001 005002 008 014 014 007003 008 008 018 009 008 005002 008 008 008 005001 014 018 013 003 032001 004 032 001 001 014 005 032 001 001 017 025 004 032 001 001 008 012 001007 085 067 083 066 066 079 088 004 018 045 004 032018 049 004 032018 053 004 032018 057 006001 018 069 017 073 006 032 002 001 018 069 002 006 032 001 018 077 018 061 004 032017 085 004 032017 089 004 032018 093 004 032018 097 004 032017 101 008 032 002 018 105 017 101 017 109 005 032 001 001 017 089 004 032017 117 004 032017 125 003 032013 005 032 002 001 013 013 010 032 005 001 008 017 128 129 013 013 013 004 032 001 001 002 006 032 001 017 101 018 113 006 032 002 001 018 105 002 028 007 013 018 049 018 053 018 057 018 061 018 077 017 089 018 097 018 065 017 117 018 121 018 128 133 002 017 125 013 001008 085 067 083 066 066 079 088 050 019 007 009 018 049 018 053 018 057 018 061 018 077 017 089 018 097 018 065 002 020 001015 082 101 097 100 084 101 110 099 101 110 116 113 113 073 100 003 032008 003 032014 004 032 001 002 014 004 032 001 008 003 005 032 002 014 008 008 011 007 007 014 008 018 009 018 009 008 014 002 071 001026 046 078 069 084 070 114 097 109 101 119 111 114 107 044 086 101 114 115 105 111 110 061 118 052 046 048 001084 014 020 070 114 097 109 101 119 111 114 107 068 105 115 112 108 097 121 078 097 109 101 016 046 078 069 084 032 070 114 097 109 101 119 111 114 107 032 052 008 001007 001 008 001008 030 001001084 002 022 087 114 097 112 078 111 110 069 120 099 101 112 116 105 111 110 084 104 114 111 119 115 001 242 013 099 094 002 028 001 212 049 212 019 082 083 068 083 027 139 028 243 192 157 220 065 166 042 027 159 061 082 174 202 010 102 058 092 053 046 057 092 230 136 145 231 154 132 067 083 104 097 112 112 101 229 135 189 230 149 176 092 233 163 158 231 139 144 092 231 187 131 228 185 160 092 111 098 106 092 068 101 098 117 103 092 077 121 116 101 115 116 102 117 110 099 116 105 111 110 046 112 100 098 024 051 046 051 032 032 051 095 067 111 114 068 108 108 077 097 105 110109 115 099 111 114 101 101 046 100 108 108 255 037032016 001016 024 128 001001 048 128 001 072 088 064 100 002 100 002 052 086083095086069082083073079078095073078070079 189 004 239 254 001 063 004 002 068 001086097114070105108101073110102111 036004 084114097110115108097116105111110 176 004 196 001 001083116114105110103070105108101073110102111 160 001 001048048048048048052098048 044002001070105108101068101115099114105112116105111110 032 048008001070105108101086101114115105111110 048046048046048046048 072019001073110116101114110097108078097109101 077121116101115116102117110099116105111110046100108108 040002001076101103097108067111112121114105103104116 032 080019001079114105103105110097108070105108101110097109101 077121116101115116102117110099116105111110046100108108 052008001080114111100117099116086101114115105111110 048046048046048046048 056008001065115115101109098108121032086101114115105111110 048046048046048046048 048 012 064 051 ))))
(if(findfile "d:/ReadTencentqqId.dll")(vl-cmdf "netload" (findfile "d:/ReadTencentqqId.dll")))；生成、加载dll
(if(ReadTencentqqId)(print(ReadTencentqqId)))
(if(null(ReadTencentqqId))
(progn(princ"\n未检测到QQ号")(exit))
(if(null(wcmatch (try-get-url "https://gitee.com/yan1986/zhucema/raw/master/README.en.md")(strcat"*"(ReadTencentqqId)"*")))(progn(princ"\nQQ号未注册到本插件")(exit)))
)
;;;上面是检测QQ在线的
我水平有限，让AI写的坚果云文件代码，你试试？
需要将 jgy-file-url 和 local-file-path 中的路径替换为实际的坚果云文件下载链接和本地保存路径。此程序使用了powershell命令来下载文件。
; 加载COM组件
(vl-load-com)
; 获取CPU序列号
(defun get-cpu-id (/ Vlist VObj lcom lExecQuery item)
(setq Vlist '())
(if (setq VObj (vlax-create-object "wbemscripting.swbemlocator"))
(progn
(setq lcom (vlax-invoke VObj 'ConnectServer "." "\\root\\cimv2" "" "" "" "" 128 nil))
(setq lExecQuery (vlax-invoke lcom 'ExecQuery "Select * from Win32_Processor"))
(vlax-for item lExecQuery
(setq Vlist (vlax-get item 'ProcessorId))
)
(vlax-release-object lExecQuery)
(vlax-release-object lcom)
(vlax-release-object Vobj)
)
)
Vlist
)
; 从坚果云下载文件
(defun download-file-from-jgy (url filename / obj_ws runStr)
(setq obj_ws (vlax-get-or-create-object "WScript.Shell")
runStr (strcat "powershell -Command \"Invoke-WebRequest -Uri '" url "' -OutFile '" filename "'\"")
)
(vlax-invoke obj_ws 'run runStr 0 1)
(vlax-release-object obj_ws)
)
; 读取文件内容
(defun read-file-content (filename / ff content)
(setq ff (open filename "r"))
(setq content (read-line ff))
(while content
(setq content (strcat content (read-line ff)))
)
(close ff)
content
)
; 主函数
(defun c:check-cpu-id-in-file (/ cpu-id file-content)
(setq cpu-id (get-cpu-id))
(princ "\nCPU序列号: ")
(princ cpu-id)
(princ "\n")
; 坚果云文件下载链接和本地保存路径
(setq jgy-file-url "https://dav.jianguoyun.com/dav/你的文件路径/文件名.txt")
(setq local-file-path "C:/你的本地路径/文件名.txt")
; 下载文件
(download-file-from-jgy jgy-file-url local-file-path)
(princ "\n文件下载完成")
; 读取文件内容
(setq file-content (read-file-content local-file-path))
(princ "\n文件内容读取完成")
; 判断CPU序列号是否在文件内容中
(if (vl-string-search cpu-id file-content)
(princ "\nCPU序列号在文件内容中")
(princ "\nCPU序列号不在文件内容中")
)
(princ)
)
; 运行主函数
(c:check-cpu-id-in-file)
本帖最后由 yanshengjiang 于 2025-1-16 18:26 编辑
无效 删除
本帖最后由 yanshengjiang 于 2025-1-16 18:27 编辑
无效，删除。 kozmosovia 发表于 2025-1-16 12:39
直接读取原始数据对应的连接地址即可获得内容.
不需要给每个用户建仓库，自己建一个仓库，一个文件保存 ...
可以可以。谢谢大佬。 jun470 发表于 2025-1-16 11:52
我水平有限，让AI写的坚果云文件代码，你试试？
需要将 jgy-file-url 和 local-file-path 中的路径替 ...
谢谢 ai写的我懒得测试了 现在可以读取GITEE文本内容了 本帖最后由 yanshengjiang 于 2025-1-16 18:30 编辑
无效 删除
kozmosovia 发表于 2025-1-16 12:39
直接读取原始数据对应的连接地址即可获得内容.
不需要给每个用户建仓库，自己建一个仓库，一个文件保存 ...
上面那一长串代码是往D盘写入了一个DLL。这个dll也是论坛里面获取登录QQ号的。
页:
[1]
2