Random Scripts

[paxnWo]

[PERL]Simple Source Grabber

use LWP::Simple;

print "[+] Enter site location.\n";

print "[+] Format: 'google.com'\n";

chomp($input = <>);

$site = 'http://www.'.$input.'/';

$source = get($site);

print "[+] Connecting to ".$input.".\n";

print "[+] Extracting site source code.\n";

$_ = $site;

/http:\/\/www.(.*)\//i;

open (FILE, ">".$1.".txt");

print FILE "# Neutralise - Simple Source Grabber\n\n\n";

print FILE $source;

close (FILE);

print "[+] Saving to file ".$1.".txt\n";

print "[+] Done!\n";

exit;

[PERL]Website Visitor Faker

use LWP::Simple;

print "Website Visitor Faker\n";

print "coded in perl by Athleone\n\n";

print "Type the website you want to fake visits to.\n";

print ">";

$site=<STDIN>;

print "Checking whether site is valid...";

chomp($site);

$check=get($site);

if($check ne "")

{

print "Site $site valid.\n\n";

}

else

{

die "Site $site not valid.\n\n";

}

print "Type the number of visits you want added.\n";

print ">";

$visitz=<STDIN>;

chomp($visitz);

for($i=1;$i<=$visitz;$i++)

{

get($site);

print "Visited site $i time(s)....\n";

}

print "Done.";

[paxnWo]

[PERL]Email / URL Ripper

Extrage toate URL'urile si mailurile dintr-un fisier, cauta duplicatele si le sorteaza alfabetic in doua fisiere. Poate fi folosit direct pe db dumps fara sa extragi inainte nimic.

use strict;

my (@URLS,@MAILS);

my $file = $ARGV[0];

open(INPUT,$file) or die "cant open input: $!";

while (<INPUT>) {

push @URLS,"$1\n" if m#((?:ht|f)tps?://(?:[:\@a-z\-_./0-9\%\?]+))#ig;

push @MAILS,"$1\n" if m/([a-z_\-.0-9]+@[a-z_\-.0-9]+)/ig;

}

close(INPUT);

open(URLOUT,">$file"."_urls.txt");

print URLOUT uniq(sort(@URLS));

close URLOUT;

open(MAILOUT,">$file"."_emails.txt");

print MAILOUT uniq(sort(@MAILS));

close MAILOUT;

sub uniq {

my @IQ = @_;

my @UNIQ;

my $prev = '';

foreach (@IQ){

unless($_ eq $prev){

push @UNIQ,$_;

}

$prev = $_;

}

return @UNIQ;

}

[paxnWo]

[paxnWo]

[paxnWo]

nu mai eram nevoit sa fac mai multe posturi daca nu era setata limita de 10k caractere. nu se considera multiposting pentru ca nu'i offtopic si nici nu cersesc. e ceva folositor

[MrRip]

sunt folositoare ... ms mult