[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 老刘1号 于 2017-7-2 11:12 编辑

先来个暴力枚举(VBS):
  1. With CreateObject("MSXML2.XMLHTTP")
  2. .Open "POST", "http://bbaass.tk/math/", False
  3. .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  4. .Send "send=reg&username=老刘"
  5. End With
  6. For i = 1 to 100
  7. If math(i) = "=" then msgbox "Win!The number is "&i
  8. next
  9. Function Math(num)
  10. With CreateObject("MSXML2.XMLHTTP")
  11. .Open "POST","http://bbaass.tk/math/", False
  12. .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  13. .send "send=Answer&math=" & num & "&username=老刘"
  14. Math = Split(Split(.responseText,",")(2),"""")(3)
  15. End With
  16. End Function
复制代码
1

评分人数

TOP

回复 6# bbaa
回复 5# codegay

    晕,我说嘛

TOP

本帖最后由 老刘1号 于 2017-7-2 17:56 编辑

取平均数递归法
在19楼是最新的防溢出与更改的版本:http://www.bathome.net/redirect.php?goto=findpost&ptid=44616&pid=200845

TOP

本帖最后由 老刘1号 于 2017-7-2 17:57 编辑

回复 10# happy886rr


    改进了下,欢迎测试

TOP

回复 13# codegay


    确实崩了,楼主说的……
vbs表示下标越界

TOP

本帖最后由 老刘1号 于 2017-7-2 18:02 编辑

回复 1# bbaa
回复 18# codegay
回复 15# happy886rr
取平均数递归法,最多计算6次就可得出结果
欢迎测试~(存Bat)
  1. '&cls&@echo off&cscript -nologo -e:vbscript "%~0"&pause&exit
  2. With CreateObject("MSXML2.XMLHTTP")
  3. .Open "POST", "http://bbaass.tk/math/", False
  4. .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  5. .Send "send=reg&username=老刘"
  6. End With
  7. Do
  8. Bisection -1,101,0
  9. Loop
  10. Sub Bisection(low,high,s)
  11. Mid_=(High+Low)\2
  12. if s<=7 then
  13. Select Case Cstr(Math(Mid_))
  14. Case "="
  15. wscript.echo "Win!The number is "&Mid_
  16. Case ">"
  17. WScript.Echo ">,so try "&Low&","&Mid_
  18. Bisection Low,Mid_,s+1
  19. Case "<"
  20. WScript.Echo "<,so try "&Mid_&","&High
  21. Bisection Mid_,High,s+1
  22. End Select
  23. end if
  24. End Sub
  25. Function Math(num)
  26. With CreateObject("MSXML2.XMLHTTP")
  27. .Open "POST","http://bbaass.tk/math/", False
  28. .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  29. .send "send=Answer&math=" & num & "&username=老刘"
  30. Math = Split(Split(.responseText,",")(2),"""")(3)
  31. End With
  32. End Function
复制代码
1

评分人数

TOP

本帖最后由 老刘1号 于 2017-7-2 17:55 编辑

回复 20# happy886rr


    嗯,猜20多次是因为服务端数字变更了(正常最多7次)
下标越界是服务器没返回JSON,导致无法分割得到符号
尴尬的是,0和100不在范围里面(失误,已修正)……
总之就是递归然后除2取整
当时一脑抽就用的递归而不是循环╮(╯_╰)╭
算是自己研发的变种了吧
感谢大佬鼓励<v<

TOP

回复 22# bbaa


    晕,早说啊
算了,就酱紫吧~
懒得动手了~

TOP

回复 24# reKonquer


    同志,你再不开我就超了你哈~

TOP

本帖最后由 老刘1号 于 2017-7-19 13:46 编辑

回复 58# codegay


    额,我的代码一直没换
就19楼的,连tokens变换都没检测,递归也没优化为循环(2星期前的代码……现在懒得修改了)
只是把数的变换检测的值调到20次,范围扩大到0-10000了

TOP

晕,服挂了

TOP

回复 63# codegay


    ???难道是
传说中的
SQL注入攻击?

TOP

看来修好了

TOP

回复 67# codegay


    这个单引号……服

TOP

Codegay,拿出你的干货
什么方法?

TOP

返回列表