[Perl] Search free anonymous proxy

#[Perl] Search free anonymous proxy
#Pastebin : http://pastebin.com/eqTWiNTz

#For : หาพร๊อกซี่ไว้ใช้งานฟรีๆละครับ แต่ลิสต์พร๊อกซี่ที่ได้ ก็ยังใช้ไม่ 100% เลย TT แต่ก็ยังดีว้า

use LWP::UserAgent;
$agent=LWP::UserAgent->new;
$agent->agent('Mozilla/8.0');
$agent->max_redirect(0);
$agent->timeout(5);

$content=$agent->get('http://www.proxylists.net/http.txt')->content;
print 'Checking http://www.proxylists.net/http.txt...';
print "\n";
$content=~s/\r//g;
open FILE,">proxylists.net_http.txt";
print FILE $content;
close FILE;

$content=$agent->get('http://www.proxylists.net/http_highanon.txt')->content;
print 'Checking http://www.proxylists.net/http_highanon.txt...';
print "\n";
$content=~s/\r//g;
open FILE,">proxylists.net_http_highanon.txt";
print FILE $content;
close FILE;

open PROXY,"proxylists.net_http.txt";
@proxy=;
close PROXY;

open PROXY,"proxylists.net_http_highanon.txt";
push(@proxy,);
close PROXY;

print 'Found all proxy... ',scalar(@proxy),"\n\n";;

foreach $z (@proxy) {
chomp($z);
($ip,$port)=split(/:/,$z);
$agent->proxy(['http'], 'http://'.$z.'/');
$content=$agent->get('http://www.opkwin.com/whatismyip.php')->content;
if ($content=~/^500/) {
print "$z Noop !!!\n";
}
elsif ($content=~/$ip/) {
print "$z Is OK...\n";
open(LOG,">>proxylists.net_available.txt");
print LOG "$z\n";
close(LOG);
}
else {
print "$z ERROR : $content\n";
}
}

#Search free proxy !!
#http://comfreedom.blogspot.com

[Perl] Facebook photo album download with perl

#[Perl] Facebook photo album download with perl
#Pastebin : http://pastebin.com/MRx8fGuV
#Usage : ' perl filename.pl username password album_url '


use LWP::UserAgent;
use HTTP::Cookies;

$user=(shift or 'email@fb_download.com');
$pass=(shift or 'password');
$album=(shift or 'http://www.facebook.com/media/set/?set=a.529237716211.2047231.4&type=3');

$cookie_jar=HTTP::Cookies->new(autosave=>1, hide_cookie2=>1);
$agent=LWP::UserAgent->new(
agent => 'Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16',
timeout => 5,
max_redirect => 0,
cookie_jar => $cookie_jar
);
$login=$agent->get('http://www.facebook.com/login.php');
$login=$agent->post('https://www.facebook.com/login.php',
[
'locale' => 'en_US',
'email' => $user,
'pass' => $pass,
'persistent' => 1
]
)->content;

if ($login!~/Incorrect Email|Incorrect username|Please re-enter your password|Cookies Required/i) {
print "Login success...\n";
$album_content=$agent->get($album)->content;
while ($album_content=~/src=(http(.+?).jpg)&/ig) {
print url_decode($1),"\n";
save(url_decode($1));
}
}
else { print "Login failed!!\n"; }


sub url_decode {
my $str=shift;
$str=~s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
return $str;
}
sub url_encode {
my $str=shift;
$str=~s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
return $str;
}
sub save {
$image=shift;
open TXT,">>FB_ablum_download.txt";
print TXT localtime." $image\n";
close TXT;

$saveimage=$agent->get($image)->content;
$image=~s/http:\/\/(.+)\///g;
open IMAGE,">$image";
binmode IMAGE;
print IMAGE $saveimage;
close IMAGE;
}

ฟู่วว ว์..

[Perl] โปรแกรมแก้เกม 24 แต้ม

พอดีว่า... ว่างจัดครับ 55+

ขอไปโพสไว้ที่ pastebin อีกที : http://pastebin.com/gqx9nGXW

sub solution {
my @num=@_;
my @opr=('+','-','*','/');
my $step;
my $output;
my $exp;
my $a;
my $b;
my $c;
foreach $step (1..8) {                                      #loop for order of operator
 foreach $a (0..3) {                                      #loop for math operator
  foreach $b (0..3) {                                      #loop for math operator
   foreach $c (0..3) {                                      #loop for math operator
    if ($step==1||$step==4||$step==6||$step==7) { $output.='('; }
    $output.=$num[0];

    $output.=$opr[$a];
    if ($step==2||$step==3) { $output.='('; }
    $output.=$num[1];
    if ($step==1||$step==6) { $output.=')'; }

    $output.=$opr[$b];
    if ($step==1||$step==5) { $output.='('; }
    $output.=$num[2];
    if ($step==2||$step==4) { $output.=')'; }

    $output.=$opr[$c];
    $output.=$num[3];
    if ($step==1||$step==3||$step==5||$step==7) { $output.=')'; }
    $exp=eval($output);
  
    if ($exp==24) {
     ++$j;
     print "[$j]   ::   $output\n";
    }
    $output='';
   }
  }
 }
}
}

my $a;
my $b;
my $c;
my $d;
my @num;
$j=0;

if ($^O eq 'MSWin32') { system('cls'); }
else { system('clear'); }
print "\n   === [24 Points : Solution] ===\n";
print "    By AssazziN [14/05/2011] \n\n";
print "   Enter number (Ex. 1 3 4 6) : ";
chomp($input=);
($num[0],$num[1],$num[2],$num[3])=$input=~/^(\d)\s(\d)\s(\d)\s(\d)$/;
unless ($num[0]&&$num[1]&&$num[2]&&$num[3]) { print "Format error !"; exit(0); }



foreach $a (0..3) {
foreach $b (0..3) {
 if ($b==$a) { next; }
 foreach $c (0..3) {
  if ($c==$a||$c==$b) { next; }
  foreach $d (0..3) {
   if ($d==$a||$d==$b||$d==$c) { next; }
   solution($num[$a],$num[$b],$num[$c],$num[$d]);
  }
 }
}
}
print "Not found solution !!\n" if ($j==0);

## Code Grean Grean By AssazziN

เขียนเสร็จก็งงกับตัวเองครับ อ่านแล้วงงงงยังไงไม่รู้ ฮ่าๆๆ

เสริม ภาพประกอบตอนทำครับ ตอนใส่วงเล็บนะ ตรงบรรทัด foreach $step (1..8) {

[Perl] โปรแกรมสุ่มเลขบัตร ปชช ไทย (GUI)

เขียนไว้นานละครับ  ไฟล์มันอยู่ลึก เพิ่งหาเจอ  ตอนนี้ก็ลืมไปหมดละ 55+

ขอโพสไว้ที่ pastebin ด้วยละกัน  :  http://pastebin.com/UtgRrD1s

use Win32::GUI();

sub makeTSSN {
$id[0]=int(rand(8))+1;
$last=$id[0];
foreach $z (2..12) {
   $id[$z-1]=int(rand(9));
   $tmp[$z-1]=$id[$z-1]*(14-$z);
   $last+=$tmp[$z-1];
}
$last=11-($last%11);
if ($last==11) {
   $last=1;
}
elsif ($last==10) {
   $last=0;
}
$key=join('',@id);
$key.=$last;
#return $key;
return "$id[0]-$id[1]$id[2]$id[3]$id[4]-$id[5]$id[6]$id[7]$id[8]$id[9]-$id[10]$id[11]-$last";
}

$main=Win32::GUI::Window->new(
   -name   => 'Main',
   -width  => 350,
   -height => 200,
   -title => "TSSN By AssazziN : 24.11.2010",
);
$main->AddLabel(
   -name => "Text",
   -left => 100,
   -top => 20,
   -width => 150,
   -height => 20,
   -text => "Thai ID Gen : AssazziN",
);
$main->AddTextfield(
   -name   => "TextField",
   -left   => 70,
   -top    => 60,
   -width  => 200,
   -height => 25,
   -prompt => "ID Gen : ",
   -text => &makeTSSN,

);
$main->AddButton(
   -name    => 'Button',
   -text    => 'Ok',
   -default => 1,
   -ok      => 1,
   -width   => 60,
   -height  => 20,
   -left    => $main->ScaleWidth() - 200,
   -top     => $main->ScaleHeight() - 50,
);


$main->Show();
Win32::GUI::Dialog();
exit(0);
sub Main_Terminate {
   return -1;
}

sub Button_Click {
   #$main->AddLabel(
   #-text => &makeTSSN,
#);
   $main->TextField->Text(&makeTSSN);


   print &makeTSSN,"\n";
   return 0;
}



:D

Shellcode Generator

print "shellcode : ";
chomp($data=);
@values=split(undef,$data);
foreach $val (@values) {
print '\x';
print unpack(H8,"$val");
}

--------------------------------------------------------

print "shellcode : ";
chomp($data=);
@data=split(//,$data);
foreach (@data) {
$_=~s/(.)/sprintf("%x",ord($1))/eg;
print "\\x$_";
}

How to find php.ini on linux

Use this command : find / -name "*php.ini*" to get path php.ini

;D

ข้อความที่พิมพ์ด้วยมือเพียงข้างเดียว [ไทย]

ข้อความที่พิมพ์ด้วยมือเพียงข้างเดียว [ไทย]
ข้อความต่อไปนี้ คือข้อควาที่สามารถพิมพ์ได้ด้วยมือขวาเพียงข้างเดียว WooW

สามัคคี มีวินัย ใฝ่วิชา

!!!