中国DOS联盟

借鉴了原来Herbert Kleebauer大人的ASCODE那段

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

Last edited by yovie on 2008-1-28 at 12:11 PM ]

呵呵。修正了一下,重新发下。

顶,沙发

将楼主的　代码　保存为CMD后运行，提示：

password.com不是有效的Win32应用程序

拒绝访问

// 无奈何发表于： 2008-01-26 12:51

难道楼主是无奈何版主的马甲^_^
用人家的批处理也要看看使用说明嘛，呵呵。

呵呵.不好意思,楼上,我是忘了改那个签名了.[离版主,那是差了十万八千里呢!]
另外,4楼保存成 *.bat 试试.

-_-!!! 为什么我运行不了?