http://digitalpbk.blogspot.com/2007/01/get-smart-against-phishing.html
now its our turn to get smart and fight back.Common methods of phishingMost phishing scams start from fake
e-mails that arise from compromised mail servers across the world, or from zombie computers called botnets. Phishing mails will be asking for confidential data like PIN numbers, Bank account id and passwords, or anything personal. There would be some links in the mail that redirects to some compromised server, which would be very similar to the legitimate site.Another common scam is someone ...
Published 5 years, 4 months ago
http://digitalpbk.blogspot.com/2008/06/perl-download-manager.html
Perl Download Manager
IntroThis is my PERL downloader program, with resume.Only works if SERVER has Parts enabled.Well pretty much thats it #!/usr/bin/perluse strict;use threads;use threads::shared;use HTTP::Request;use HTTP::Response;use Math::Round qw(nearest);use LWP;exit unless(defined $ARGV[0] && -
e $ARGV[0]);open HND,$ARGV[0];NEXT:while(my $url = ){ my $file = substr($url,rindex($url,"/")+1); $file =~ s/%20/_/g; chomp $url; exit if($url eq "" || $file eq ...
Published 3 years, 11 months ago
http://digitalpbk.blogspot.com/2007/06/orkut-mass-scrapper-scrap-all-friends.html
; } $cnt = $mech->response->as_string; #$cnt =~ m/showing 1-15 of (.*?)/g; #print " $1"; open APP,">$file"; $grabed=0; printf("%-25s","Grabbed: $grabed "); for($page=2;;$page++) { while($cnt =~ m/Profile\.aspx\?uid=(.*?)">()*([^)*/g) { $grabed++; print APP "\n$1>$3"; } print
"\e[25D"; printf("%-25s","Grabbed: $grabed "); sleep(3); if($mech->find_link(text_regex => qr ...
Published 4 years, 11 months ago