SHOW:
|
|
- or go back to the newest paste.
| 1 | #!/usr/bin/perl | |
| 2 | # FCKeditor Grabber , Coded by CrashBandicot FUck ALl Haters , Noob , Lamers , Nationalist , Zionist , Leecher | |
| 3 | # Fuck All Noobs Copying my script :3 | |
| 4 | # Gr33tz All Staff Exploit4arab , M-A , xmjhad , danzo & all friend | |
| 5 | # FUcking Serveur .il | |
| 6 | # This Beta | |
| 7 | ||
| 8 | use HTTP::Request; | |
| 9 | use LWP::Simple; | |
| 10 | use LWP::UserAgent; | |
| 11 | ||
| 12 | ||
| 13 | if ($^O =~ /MSWin32/) {system("cls"); system("color a");
| |
| 14 | }else { system("clear"); }
| |
| 15 | print "\n\t FCKeditor Grabber\n"; | |
| 16 | print "\t result in connector.txt"; | |
| 17 | print "\n\t .Usage : perl $0 list.txt.\n\n"; | |
| 18 | ||
| 19 | open(tarrget,"<$ARGV[0]") or die "$!"; | |
| 20 | while(<tarrget>){
| |
| 21 | chomp($_); | |
| 22 | $target = $_; | |
| 23 | if($target !~ /http:\/\//) | |
| 24 | {
| |
| 25 | $target = "http://$target"; | |
| 26 | } | |
| 27 | $websss = $target."FCKeditor/editor/filemanager/connectors/asp/"; | |
| 28 | $website = $target."FCKeditor/editor/filemanager/connectors/asp/connector.asp"; | |
| 29 | $nigga = "$target/FCKeditor/editor/filemanager/browser/default/browser.html?connector=$website"; | |
| 30 | $req=HTTP::Request->new(GET=>$websss); | |
| 31 | $ua=LWP::UserAgent->new(); | |
| 32 | $ua->timeout(30); | |
| 33 | $response=$ua->request($req); | |
| 34 | if($response->status_line=~ /403/ ) | |
| 35 | ||
| 36 | {
| |
| 37 | print "\n[+]$target => FCK & Connector Detected \n"; | |
| 38 | open (TEXT, '>>connector.txt'); | |
| 39 | print TEXT "=================\n$nigga\n"; | |
| 40 | close (TEXT); | |
| 41 | } | |
| 42 | else{
| |
| 43 | print "\n[+]$target => Try Other Path of FCK...\n"; | |
| 44 | $wbs1 = $target."FCKeditor/editor/filemanager/browser/default/connectors/asp/"; | |
| 45 | $fuckaa = "$target/FCKeditor/editor/filemanager/browser/default/browser.html?connector=connectors/asp/connector.asp"; | |
| 46 | $reqq=HTTP::Request->new(GET=>$wbs1); | |
| 47 | $uaa=LWP::UserAgent->new(); | |
| 48 | $uaa->timeout(30); | |
| 49 | $responsee=$uaa->request($reqq); | |
| 50 | if($responsee->status_line=~ /403/ ) {
| |
| 51 | ||
| 52 | print "\n[+]$target => Path 2: FCK & Connector Detected \n"; | |
| 53 | open (TEXTt, '>>connector.txt'); | |
| 54 | print TEXTt "=================\n$fuckaa\n"; | |
| 55 | close (TEXTt); | |
| 56 | ||
| 57 | ||
| 58 | }else { print "\n [+]$target => 404 Not Found\n";}
| |
| 59 | ||
| 60 | ||
| 61 | } | |
| 62 | } |
