免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 3107 | 回复: 11
打印 上一主题 下一主题

■请教用perl写过exploit的朋友■ [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2007-01-11 03:29 |只看该作者 |倒序浏览
本帖最后由 plbb18_cu 于 2010-06-09 15:15 编辑

已经解决

论坛徽章:
0
2 [报告]
发表于 2007-01-11 10:02 |只看该作者
你还是别写EXP了吧,就你目前的水平。
先好好学习打下点基础。

论坛徽章:
0
3 [报告]
发表于 2007-01-11 10:13 |只看该作者
没写过metasploit的插件,不清楚怎么搞,metasploit里这些东西好像不用自己写的
要shellcode你也可以去他的网站上在线生成
而且你的那个函数也不是用来生成shellcode的,他只是生成类似随机字符的东西

  1. sub PatternCreate {
  2.     my ($length) = @_;
  3.     my ($X, $Y, $Z);
  4.     my $res;

  5.     while (1)
  6.     {
  7.         for my $X ("A" .. "Z") { for my $Y ("a" .. "z") { for my $Z (0 .. 9) {
  8.            $res .= $X;
  9.            return $res if length($res) >= $length;

  10.            $res .= $Y;
  11.            return $res if length($res) >= $length;

  12.            $res .= $Z;
  13.            return $res if length($res) >= $length;
  14.         }}}
  15.     }
  16. }

复制代码


真正的东西在lib/Msf下面

论坛徽章:
0
4 [报告]
发表于 2007-01-11 10:15 |只看该作者

论坛徽章:
0
5 [报告]
发表于 2007-01-13 23:15 |只看该作者

谢谢指点

原帖由 dajun 于 2007-1-11 10:13 发表
没写过metasploit的插件,不清楚怎么搞,metasploit里这些东西好像不用自己写的
要shellcode你也可以去他的网站上在线生成
而且你的那个函数也不是用来生成shellcode的,他只是生成类似随机字符的东西
[code]
...


可能是我的问题表述有问题,我不是问生成shellcode的问题,只是问字符串格式转化问题,

以上字符用以计算exploit攻击字符偏移量.帖子我重新编辑了一下,感谢朋友的热心回复.

关于MSF插件编写我正在学习,手头有一些详细的资料.苦于对perl不熟悉啊,恶补之!!!

[ 本帖最后由 plbb18 于 2007-1-13 23:32 编辑 ]

论坛徽章:
0
6 [报告]
发表于 2007-01-13 23:28 |只看该作者
原帖由 dajun 于 2007-1-11 10:15 发表
http://metasploit.com:55555/PAYLOADS


谢谢这位兄弟,我原来的问题表述不清楚,已经重新编辑了一下帖子.

我问的不是生成shellcode的问题,只是一个简单的字符串格式转化问题.

转化前生成的是每4个连续字节都不相同的长字符串,用来计算exploit攻击字符的偏移量.

因为对perl刚刚接触,但恰恰又遇到这个问题,所以发帖提问.见笑了.^_^

论坛徽章:
0
7 [报告]
发表于 2007-01-13 23:40 |只看该作者

问题已经解决

问题已经解决!把代码贴出来,有能力的朋友试着用perl实现一下吧!期待......
  1. <head>
  2. <script>
  3. function change()
  4. {
  5.         var strRes = "";
  6.         var strSrc = document.all.src.value;
  7.         var intBaseLen = document.all.baseLen.value;
  8.         var intMaxLen = document.all.maxLen.value;
  9.         var intLinelen = intBaseLen * intMaxLen;

  10.         var srcLen = strSrc.length;
  11.         var beginIndex = 0;
  12.         if(isNaN(srcLen) || isNaN(intLinelen))
  13. {
  14.         alert("输入错误");
  15. }
  16. else
  17. {
  18.         while((srcLen / intLinelen) > 1)
  19.         {
  20.                 strRes = strRes + "\""+ strSrc.substr(beginIndex,intLinelen) + "\""+

  21. cChar.value + "\n";
  22.                 beginIndex = beginIndex + intLinelen;
  23.                 srcLen = srcLen - intLinelen;
  24.         }
  25.         if(srcLen > 0)
  26.         {
  27.                 strRes = strRes + "\""+ strSrc.substr(beginIndex,intLinelen) + "\""+

  28. cChar.value + "\n";
  29.         }
  30.         document.all.res.value = strRes;
  31. }
  32. }
  33. </script>
  34. <style>
  35. body
  36. {
  37. margin:0px;
  38. font-size:12px;
  39. }
  40. </style>
  41. </head>
  42. <center>
  43. <h1 style="margin-top:20px;">字符格式转换</h1>
  44. <span>基本长度:</span><input type="text" style="font-size:12px;" id="baseLen"

  45. /><span>最大长度:</span><input type="text" style="font-size:12px;" id="maxLen" />

  46. <span>连接符:</span><input type="text" style="font-size:12px;" id="cChar" /><br />
  47. <textarea id="src" style="height:200px;width:60%"></textarea><br />
  48. <input type="button" id="to"  value="....." onclick="change()" style="margin-

  49. top:10px;"/>
  50. <hr />
  51. <textarea id="res" style="height:200px;width:60%"></textarea><br />
  52. </center>
复制代码

[ 本帖最后由 plbb18 于 2007-1-13 23:41 编辑 ]

论坛徽章:
0
8 [报告]
发表于 2007-01-15 16:53 |只看该作者
本帖最后由 plbb18_cu 于 2010-06-09 15:17 编辑

。。。。。。

论坛徽章:
0
9 [报告]
发表于 2007-01-16 09:34 |只看该作者
俺不懂js

论坛徽章:
0
10 [报告]
发表于 2007-01-17 12:05 |只看该作者
期待perl高手的指点和参与
最好给出perl实现的代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP