توسعه نرم افزار

Perl

Moderators

danielstackoverflow
1
[...] [...] http://softafzar.net/attachment.php?attachmentid=167&d=1342803276 [...] [...]
زبان برنامه نویسی PERL (پرل) در سال ۱۹۸۷ توسط لری وال طراحی شد. این زبان به طور وسیعی ساختار خود را از زبان C و بسیاری از خصوصیات خود را مدیون زبان های AWK, LISP, SED, SH است. در حال حاضر می  توان پرل را در ...
1
2.2k
3
d0-c0theknight
با این کد میتونید تمام لینک ها و مسیر های یک سایت رو در یک فایل ذخیره کنید (مثلا اسکنر اکانتیس که یه بخش 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=<STDIN>;
print"Enter the Depth of search ...
0
1k
1
imanpajand
[...]
###########################################################################
# 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 ...
0
849
0
[...] #!/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 ...
0
905
0
[...] #!/usr/bin/perl -X
################################################################################​​##########
# Wordpress & Joomla Bruter v.1.0 ...
0
813
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 = <STDIN>;
chop($Host);
$Socket = new IO::Socket::INET(PeerAddr => $Host,
PeerPort => 80,
Proto=> 'tcp') ...
0
783
0
یه پورت اسکنر جالب به زبان پرل:smiles (52):
[...] #!/usr/bin/perl
use IO::Socket::INET;
if (!defined($ARGV [...] )) {
print 'usage: <target> <low> <high>';}
for ($x=$ARGV [...] ;$x<$ARGV [...] +1;$x++){
if (fork()){if ($sock = new IO::Socket::INET(
PeerAddr=>$ARGV [...] ,PeerPort=>$x,Proto=>'tcp'))
{ print"$x\tOPEN\n";}else{print"$x\tCLOSED\n";}
close($sock);exit;}} [...]
0
701
0
[...]
###################################
# 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 = <STDIN>; 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 = <FH>)
{
$i++;
if($i == ...
0
773
0
لطفا ابتدا لاگین کنید