中国DOS联盟

1. @echo off&cls
   
2. chcp 437>nul&graftabl 936>nul
   
3. for /f "delims=: tokens=1" %%i in ('findstr /i /n "^:writepass$" "%~f0"') do set line=%%i
   
4. <"%~f0" more +%line%|debug>nul
   
5. set "ps="
   
6. set n=0
   
7. set /p=请输入密码:<nul
   
8. :start
   
9. if %n%==256 (
   
10. echo  &&goto e
    
11. ) else (
    
12. for /f "delims=" %%i in ('password.com') do (
    
13. if "%%i"=="?" goto e
    
14. set "q=%%i"
    
15. if "%%i" equ "?" (call :p "%%i") else (
    
16. if "%%i" lss "? " (GOTO :start)
    
17. set /p=*<nul
    
18. set /a n+=1
    
19. if "%%i" geq "? " call set "ps=%%ps%%%%q:~1%%"
    
20. )))
    
21. goto start
    
22. 
    
23. :p
    
24. if not "%ps%" equ "" (
    
25. set "ps=%ps:~0,-1%"
    
26. SET /p=  <nul
    
27. )
    
28. GOTO :eof
    
29. 
    
30. :e
    
31. :::Here you can do what you wanna do:::
    
32. echo.
    
33. echo 密码为:"%ps%"
    
34. del password.com
    
35. pause>nul
    
36. goto :eof
    
37. ::下面的请不要随意修改::
    
38. :writepass
    
39. A
    
40. MOV DX,111
    
41. MOV AH,09
    
42. INT 21
    
43. MOV AH,01
    
44. INT 21
    
45. MOV AH,4C
    
46. INT 21
    
47. INT 20
    
48. DB '?'24 0D 0A 1A
    
49. 
    
50. R CX
    
51. 108
    
52. N password.com
    
53. W
    
54. Q
    
55. 
    

Yovie发表于： 2008-01-26 12:51