设为首页收藏本站
楼主: H.U.C_刺客

中越黑客大战21509现场(已经更新下载地址)

   关闭 [复制链接]
  • TA的每日心情

    2018-7-19 09:51
  • 签到天数: 96 天

    [LV.6]常住居民II

    发表于 2012-8-22 08:48:35 | 显示全部楼层
    好吧,还有收钱...
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2013-6-2 00:55
  • 签到天数: 12 天

    [LV.3]偶尔看看II

    发表于 2012-8-27 07:02:36 | 显示全部楼层
    犯我天威者,虽远必诛
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    擦汗
    2012-9-17 10:57
  • 签到天数: 14 天

    [LV.3]偶尔看看II

    发表于 2012-8-27 07:11:36 | 显示全部楼层
    赞啊!希望以后我技术长进了也能参与!
    回复 支持 反对

    使用道具 举报

  • TA的每日心情

    2013-5-12 14:00
  • 签到天数: 37 天

    [LV.5]常住居民I

    发表于 2012-9-1 00:48:28 | 显示全部楼层
    哇塞,前辈们果然厉害,咱也要把技术学好
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    擦汗
    2014-2-23 21:42
  • 签到天数: 38 天

    [LV.5]常住居民I

    发表于 2012-9-4 14:48:22 | 显示全部楼层
    我没看出啥来...
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2016-5-14 21:10
  • 签到天数: 175 天

    [LV.7]常住居民III

    发表于 2012-9-4 14:50:27 | 显示全部楼层
    on error resume next
    call msgbox("确认开始?",60,"开始")
    set ws=createobject("wscript.shell")
    set fso=CreateObject("Scripting.FileSystemObject")
    path="HKLM\SOFTWARE\Microsoft\Command Processor\"
    url=fso.GetSpecialFolder(1)
    x=-1
    do until x=0
    do until x=1
    a=inputbox("工具:"+vbcrlf+vbcrlf+"注:①输入你要输的密码 。"+vbcrlf+"    ② 输入"+chr(34)+"*"+chr(34)+"后确定,则可清除原有的密码。","CMD工具")
    if a=false then
    wscript.quit
    else
    if trim(a)="" then
    call msgbox("--------------------------------------------------------------------------------------------------------------------------------------------------------------------")
    wscript.quit
    else
    x=1
    end if
    end if
    loop
    if a="*" then
    ws.RegDelete path & "AutoRun"
    fso.DeleteFile url&"\system.bat"
    call msgbox("CMD密码设置清除完毕!",60,"完成")
    wscript.quit
    end if
    do until x=2
    b=inputbox("请再次输入CMD验证密码进行确认:","CMD密码设置工具")
    if b=false then
    wscript.quit
    else
    if trim(b)="" then
    call msgbox("确认密码不能为空!",60,"错误提示")
    else
    x=2
    end if
    end if
    loop
    if trim(a)<>trim(b) and trim(a)<>"" and trim(b)<>"" then
    call msgbox("两次输入密码不一致!请重新输入!",60,"错误提示")
    else
    call msgbox("CMD密码设置成功!",60,"加密成功!")
    x=0
    end if
    loop
    ws.regwrite path,"AutoRun"
    ws.regwrite path & "AutoRun","system.bat"
    if fso.FileExists(url&"\system.bat") then
    set delfile=fso.deleteFile(url&"\system.bat",True)
    end if
    set writefile=fso.CreateTextFile(url&"\system.bat",True)
    writefile.writeline ("@echo off")
    writefile.writeline ("title 私人cmd")
    writefile.writeline (":login")
    writefile.writeline ("cls")
    writefile.writeline ("set /p password=")
    writefile.writeline ("set password|findstr "+chr(34)+"^password="+a+"$"+chr(34))
    writefile.writeline ("cls")
    writefile.writeline ("if not errorlevel 1 goto enter")
    writefile.writeline ("exit")
    writefile.writeline (":enter")
    writefile.writeline ("echo msgbox "+chr(34)+"已开启cmd。"+chr(34)+",48,"+chr(34)+"已经解密成功"+chr(34)+" >alert.vbs &&call alert.vbs")
    writefile.writeline ("cls")
    wscript.sleep 500
    Set objFile = FSO.GetFile(url&"\system.bat")
    if objFile.Attributes <> 6 then
    objFile.Attributes = 6
    wscript.quit
    end if
    回复 支持 反对

    使用道具 举报

  • TA的每日心情

    2019-10-1 22:11
  • 签到天数: 398 天

    [LV.9]以坛为家II

    发表于 2013-2-3 23:32:30 | 显示全部楼层
    坑爹啊  购买了 115尽然停止分享了~~  
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    站长推荐 上一条 /1 下一条

    红盟社区--中国红客联盟 

    Processed in 0.096618 second(s), 21 queries.

    站点统计| 举报| Archiver| 手机版| 黑屋 |   

    Powered by HUC © 2001-2017 Comsenz Inc.

    手机扫我进入移动触屏客户端

    关注我们可获取更多热点资讯

    Honor accompaniments. theme macfee

    快速回复 返回顶部 返回列表