Board logo

标题: [网络工具] 【福利】百度刷抢红包代码,赶紧去抢房抢车 [打印本页]

作者: caruko    时间: 2013-2-12 12:38     标题: 【福利】百度刷抢红包代码,赶紧去抢房抢车

本帖最后由 caruko 于 2013-2-12 14:23 编辑

代码使用了几个第三方工具
curl.exe  强大的网页提交工具,可以去百度搜索下载;

gdi.exe   批处理显示图片(用于显示验证码,使用自动验证码识别的可以不用下载 );  论坛-第三方工具 可以找到下载,本人编写的那个,记得更改文件名为 gdip.exe(系统本身有gdi.exe);

cut.exe  论坛第三方找到的,用于截取字符的工具;

conset   论坛中有的第三方工具,方便获取curl输出用。

Calendar  论坛第三方工具,方便日期加减;

iconv.exe    UTF-8 转编码工具,论坛有




使用代码,记得更改代码前几行中的 手机号,生日等:

关于:自动验证码识别,测试过UUWISE平台的(包含了非API代码),所以目前只能识别4个字的验证码,5字识别会失败!(需要使用API才能准确识别); 另外该平台付费,一个码大约1分钱,大家可以手动输码,有全自动要求的可以联系本人QQ:195319013。
因为没有打开网页,如果刷到奖品,需要使用fidder更改响应,才能拿奖。
得奖信息存在 prize.txt 中; 经测:奖品ID 215,201 没有领取必要。
  1. @echo off
  2. setlocal ENABLEDELAYEDEXPANSION
  3. ::下面一行为本机代理,fidder调试用
  4. ::set "daili=-x 127.0.0.1:8888"
  5. ::下面2行为 UUWISE 自动输码账户
  6. ::set username=....
  7. ::set password=...
  8. set ag=-A  "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0; BOIE9;ZHCN)"
  9. ::填入手机号码
  10. set phone=手机号
  11. ::起始日期
  12. set Bday=1980-01-01
  13. ::循环多少次日期
  14. set max=10
  15. :loop
  16. set /a k+=1
  17. for /f "skip=2 tokens=1-3 delims=年月日 " %%a in ('Calendar /A !Bday! 00:00:00 1 00:00:00') do (
  18. set /a yy=%%a,mm=%%b+100,dd=%%c+100
  19. set "Bday=%%a-%%b-%%c"
  20. set "nday=!yy!!mm:~-2!!dd:~-2!"
  21. )
  22. if !k! geq !max! exit
  23. :main
  24. conset /d @  >nul
  25. conset /d _  >nul
  26. set "@phone=!phone!"
  27. set "@birth=!nday!"
  28. call :putUser
  29. ::call :search
  30. call :topic
  31. call :lottery
  32. echo,!nday!
  33. call :拿奖 && goto :loop
  34. echo,剩余抽奖次数:!@count!
  35. if !@count! geq 1 (
  36. goto :main
  37. ) else (
  38. goto :loop
  39. )
  40. goto :eof
  41. :putUser
  42. echo,验证用户...
  43. 2>nul curl !ag!  !daili!  -b cookies.txt -c cookies.txt -d "phone=!@phone!&birth=!@birth!&validcode=!@validcode!&valid=!@valid!&_r=0.7948380977831662" -e http://www.baidu.com/chunjie/show/welcome http://www.baidu.com/chunjie/submit/checkusr |iconv -f utf-8 -c|conset _rjson=
  44. for /f "tokens=2-7 delims={}:," %%a in ('conset /v _rjson') do  (
  45. if %%b=="4001" echo,"生日错误!"
  46. if %%b=="4002" echo,"手机号错误!"
  47. if %%b=="4003" (
  48. echo,"验证码错误!";
  49. call :getCoed
  50. call :putUser
  51. )
  52. if %%b=="5001" echo,"unable"
  53. if %%b=="6001" echo,"系统繁忙,请稍后再试^_^"
  54. if %%b=="0" (
  55. set /a auto=0
  56. echo,验证成功,得到搜索字串..
  57. call :stv %%c %%d
  58. call :stv %%e %%f
  59. )
  60. )
  61. set "@cookie=CJKEY=!@key!;CJEGG=1;CJPHONE=!@phone!;CJBIRTH=!@birth!"
  62. goto :eof
  63. :getCoed
  64. echo,获取验证码...
  65. 2>nul curl !ag!  !daili!  --cookie "!@cookie!" -b cookies.txt "http://www.baidu.com/chunjie/data/valid?phone=!@phone!&birth=!@birth!&_r=0.2951152564330317" |conset _rjson=
  66. for /f "tokens=1-3 delims={}," %%a in ('conset /v _rjson') do  (
  67. for /f "tokens=1,2 delims=:" %%A in ("%%a") do (
  68. call :stv %%A %%B
  69. )
  70. for /f "tokens=1,2 delims=:" %%A in ("%%b") do (
  71. call :stv %%A %%B
  72. )
  73. for /f "tokens=1* delims=:" %%A in ("%%c") do (
  74. call :stv %%A %%B
  75. )
  76. )
  77. 2>nul curl !ag!  !daili!  "!@validUrl!" >code.jpg
  78. gdip "/t:cmd /c" code.jpg*250*150
  79. set /p @valid=请输入验证码:
  80. goto :eof
  81. :search
  82. echo,开始搜索,取得cookie...
  83. for /f "delims=" %%a in ('echo,!@query!^|urlencode.bat') do set "@query_URL=%%a"
  84. 2>nul curl !ag!  !daili! -I  -c cookies.txt -e "http://www.baidu.com/chunjie/show/welcome"  "http://www.baidu.com/s?bhjc=zl&wd=!@query!" |findstr "Set-Cookie"|conset @Set-Cookie=
  85. for /f "tokens=1* delims=:" %%a in ('conset /v @Set-Cookie') do (
  86. for /f "tokens=1 delims=; " %%A in ("%%b") do (
  87. set @%%A
  88. set "@cookie=!@cookie!;%%A"
  89. )
  90. )
  91. goto :eof
  92. :topic
  93. echo,获取KEY...
  94. 2>nul curl !daili!  -H "Cookie: !@cookie!" --cookie "!@cookie!" -c cookies.txt -e "http://www.baidu.com/s?bhjc=zl&wd=!@query_URL!" http://www.baidu.com/chunjie/show/topic >topic.txt
  95. cut topic.txt  {errNo });|conset @top=
  96. set @top=errNo!@top!
  97. for %%a in (!@top!) do (
  98. for /f "tokens=1,2 delims=:" %%A in ("%%a") do (
  99. call :stv top_%%A %%B
  100. )
  101. )
  102. goto :eof
  103. :lottery
  104. echo,获取礼品...
  105. set /a ff=0
  106. 2>nul curl !daili!  -H "Cookie: !@cookie!" --cookie "!@cookie!" -c cookies.txt -d "key=!@top_nextKey!&key1=areyoucheating&_r=0.8628629175014569"  -e   http://www.baidu.com/chunjie/show/topic http://www.baidu.com/chunjie/submit/lottery|iconv -f utf-8 -c|conset @prize=
  107. set @prize=!@prize::{=!
  108. set @prize=!@prize:{=!
  109. set @prize=!@prize:}=!
  110. set @prize=!@prize: =!
  111. for %%D in (!@prize!) do (
  112. for /f "tokens=1,2 delims=:" %%a in ("%%D") do (
  113. call :stv %%a %%b
  114. )
  115. )
  116. goto :eof
  117. :拿奖
  118. if not "!@prizeid!"=="" (
  119. msg * "你中奖了!注意拿奖!"
  120. echo,================================>>prize.txt
  121. set @>>prize.txt
  122. echo,================================>>prize.txt
  123. exit /b 0
  124. )
  125. exit /b 1
  126. :stv
  127. set "@%~1=%~2"
  128. goto :eof
  129. :自动识别验证码
  130. echo,正在自动识别验证码...
  131. curl -F "__EVENTTARGET=" -F "__EVENTARGUMENT=" -F "__VIEWSTATE=/wEPDwUKLTE3NDE4NzE0NQ9kFgJmD2QWAgIDD2QWAgIBDxYCHgdlbmN0eXBlBRNtdWx0aXBhcnQvZm9ybS1kYXRhFgICCw8WAh4EVGV4dAVL5rWL6K+V56ev5YiG5Y+v5ZCR5a6i5pyN6aKG5Y+W44CCPGEgaHJlZj0nVXNlclJlZy5hc3B4Jz7njJvlh7vmiJHms6jlhow8L2E+ZGSzCjPNYUlhvk8bVKkIiv+SjYK/eQ==" -F "__EVENTVALIDATION=/wEWBAKKjaLKDgKlhNbxBQKqw6i0BAKyjrOQAs5tN9SZNKrbdIQmtQWmWarKLf/a" -F "ctl00$ContentPlaceHolder1$txtUser=!username!" -F "ctl00$ContentPlaceHolder1$txtPass=!password!" -F "ctl00$ContentPlaceHolder1$file1=@code.jpg;type=image/jpeg" -F "ctl00$ContentPlaceHolder1$btnRecognize=开始识别" http://www.uuwise.com/OnlineDemo.aspx |conset _rjson=
  132. for /f "tokens=2,4 delims=:,)" %%a in ('conset /v _rjson') do (
  133. set "@valid=%%a"
  134. set "codeid=%%b"
  135. set "codeid=!codeid:'=!"
  136. copy code.jpg log\%%a_%%b.jpg
  137. echo,%%a,%%b,!date!!time!>>yzm.log
  138. )
  139. exit /b 0
复制代码

作者: caruko    时间: 2013-2-14 08:52

坑爹啊。。。
刷了近5000次,才刷到9个我买网10元券,一个百度音乐短期VIP...
作者: caruko    时间: 2013-2-14 09:22

坑爹啊。。。
刷了近5000次,才刷到9个我买网10元券,一个百度音乐短期VIP...




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2