[align=center] [/align] زبان برنامه نویسی PERL (پرل) در سال ۱۹۸۷ توسط لری وال طراحی شد. این زبان به طور وسیعی ساختار خود را از زبان C و بسیاری از خصوصیات خود را مدیون زبان های AWK, LISP, SED, SH است. در حال حاضر می  توان پرل را در بیش از ۴۰ سیستم عامل به کار گرفت. در ...
با این کد میتونید تمام لینک ها و مسیر های یک سایت رو در یک فایل ذخیره کنید (مثلا اسکنر اکانتیس که یه بخش Site crawler داره ) #!/usr/bin/perl use LWP::Simple; use LWP::UserAgent; use HTTP::Request; use HTTP::Response; use HTML::LinkExtor; $DEBUG=0; open(OUTPUT,">login.html")|| die "cannot open file\n"; $browser = LWP::UserAgent->new(); $browser->timeout(10); print"Enter the URL for eg: http://www.abc.com/\n"; $URL=; print"Enter the Depth of search : "; $depth=; $dep=$depth; my ...
########################################################################### # Copyright (C) 2004 by 0xSoftware Inc# # Damo@0xSoftware.com # # # # This program is free software; you can redistribute it and/or modify# # it under the terms of the GNU General Public License as published by# # the Free Software Foundation; either version 2 of the License, or# # (at your option) any ...
#!/usr/bin/perl -X if($^O =~ /Win/){ system("cls"); }else{ system("clear"); } print ("\n#######################################################\n"); print ("DAMANE2011 Joomla And WordPress Brute Force V1.0 Beta\n"); print ("########################################################\n\n\n"); use warnings; use LWP::UserAgent; use HTML::LinkExtor; use URI::URL; use HTTP::Request; ...
#!/usr/bin/perl -X ################################################################################​​########## # Wordpress & Joomla Bruter v.1.0 ...
=************************************** = Name: Get Server Header = Description:This code will get the header of the server and print it out = By: Damian myerscough = = Inputs:Host = = Returns:Server header = =This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=578&lngWId=6=for details.=************************************** #!/usr/bin/perl # # use IO::Socket; @Header; print"Enter The Host: "; $Host = ; chop($Host); $Socket = new IO::Socket::INET(PeerAddr => $Host, PeerPort => 80, Proto=> 'tcp') || die ...
یه پورت اسکنر جالب به زبان پرل:smiles (52): #!/usr/bin/perl use IO::Socket::INET; if (!defined($ARGV[2])) { print 'usage: ';} for ($x=$ARGV[1];$x$ARGV[0],PeerPort=>$x,Proto=>'tcp')) { print"$x\tOPEN\n";}else{print"$x\tCLOSED\n";} close($sock);exit;}}
################################### # SoftAfzar.Net #!/usr/bin/perl -w # Written by Enrique Hernandez # FILE I/O Example! # http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=221&lngWId=6 ################################### my ($file_buffer, $file_path, $i, $ans); print "Please enter a file to read: "; $ans = ; chomp($ans); # Make user tell us what file to read. $file_path = $ans; # If true if(open(FH, $file_path)) { # While still receiving data while($file_buffer = ) { $i++; if($i == 10) ...