好吧。。被某人强迫来申请技术组。。。
希望通过。Thanks
这也勉强算是作品吧。。。。
如果需要的话。。我还做过一个病毒。。。-
- @echo off
- setlocal enabledelayedexpansion
- set p0=48&set p1=49&set p2=50&set p3=51&set p4=52&set p5=53
- set p6=54&set p7=55&set p8=56&set p9=57&set pA=65&set pB=66
- set pC=67&set pD=68&set pE=69&set pF=70
- :back
- set /p 源数=请输入序列号=
- for /f "skip=1 delims=:" %%i in ('^(echo "%源数%"^&echo.^)^|findstr /o ".*"') do set/a l=%%i-5
- if not "%l%"=="8" (echo 字符必须满足8位&goto back)
- set scanf=%源数%
- set sed=85930483
- set regcode=0
- :loop
- call set str1=%scanf:~,1%
- call set numtemp=%%p%str1%%%
- set /a regcode=%regcode%+%sed%-(1024%%(%numtemp%))
- set "scanf=%scanf:~1%"
- if defined scanf goto loop
- set 源数=%regcode%
- set /a 源数=%源数% || goto :eof
- :dosomething
- set /a 余数 = %源数% %% 16
- set /a 源数 /= 16
- call :转换 %余数%
- set 余数=%ret%
- set 计算结果=%余数%%计算结果%
- if %源数% lss 16 goto end
- goto dosomething
- :转换
- set ret=
- if "%1" == "10" set ret=A
- if "%1" == "11" set ret=B
- if "%1" == "12" set ret=C
- if "%1" == "13" set ret=D
- if "%1" == "14" set ret=E
- if "%1" == "15" set ret=F
- if %1 lss 10 set ret=%1
- goto :eof
- :end
- call :转换 %源数%
- set 源数=%ret%
- if "%源数%" == "0" set 源数=
- echo 您的注册码为=%源数%%计算结果%
- echo.
- echo 感谢您使用 BatProject
- echo.
- echo -----------------------------------
- echo 感谢BatHome上一些同学提供的帮助。。。
- echo.
- echo.欢迎访问 http://Neoix.008.net/
- set ret=
- set 源数=
- set 余数=
- set 计算结果=
- pause>nul
- start http://neoix00.freebsdhost.org/Get/reg.php
- exit
复制代码 ------------------------------------------------------------------------------------------------------------
所有的申请都应以自愿为原则,既然是有人强迫你的,那么,暂时不批准你的申请。
Batcher |