Basic Online MD5 Cracker
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
$md5 = shift;
$lwp = LWP::UserAgent->new;
$lwa = $lwp->get('http://md5.rednoize.com/?p&s=md5&q='.$md5);
$hash = $lwa->content;
print "Result : $hash";
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
$md5 = shift;
$lwp = LWP::UserAgent->new;
$lwa = $lwp->get('http://md5.rednoize.com/?p&s=md5&q='.$md5);
$hash = $lwa->content;
print "Result : $hash";
if ($svrmsg=~/all@!talk (.*)/)
{
$message=$1;
{if ($svrmsg=~/^\:$owner\!/){&talk;} # ส่งเข้า Sub
}
}
###### ใช้ Sub
sub talk{
print $connect "PRIVMSG ".$channel." :$message\r\n";
}
ที่มา : http://icheernoom.blogspot.com/2011/08/perl-sub-irc.html
โดย : ICheer_No0M
txtblk='\e[0;30m' # Black - Regular
txtred='\e[0;31m' # Red
txtgrn='\e[0;32m' # Green
txtylw='\e[0;33m' # Yellow
txtblu='\e[0;34m' # Blue
txtpur='\e[0;35m' # Purple
txtcyn='\e[0;36m' # Cyan
txtwht='\e[0;37m' # White
bldblk='\e[1;30m' # Black - Bold
bldred='\e[1;31m' # Red
bldgrn='\e[1;32m' # Green
bldylw='\e[1;33m' # Yellow
bldblu='\e[1;34m' # Blue
bldpur='\e[1;35m' # Purple
bldcyn='\e[1;36m' # Cyan
bldwht='\e[1;37m' # White
unkblk='\e[4;30m' # Black - Underline
undred='\e[4;31m' # Red
undgrn='\e[4;32m' # Green
undylw='\e[4;33m' # Yellow
undblu='\e[4;34m' # Blue
undpur='\e[4;35m' # Purple
undcyn='\e[4;36m' # Cyan
undwht='\e[4;37m' # White
bakblk='\e[40m' # Black - Background
bakred='\e[41m' # Red
badgrn='\e[42m' # Green
bakylw='\e[43m' # Yellow
bakblu='\e[44m' # Blue
bakpur='\e[45m' # Purple
bakcyn='\e[46m' # Cyan
bakwht='\e[47m' # White
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Regular Colors
Black='\e[0;30m' # Black
Red='\e[0;31m' # Red
Green='\e[0;32m' # Green
Yellow='\e[0;33m' # Yellow
Blue='\e[0;34m' # Blue
Purple='\e[0;35m' # Purple
Cyan='\e[0;36m' # Cyan
White='\e[0;37m' # White
# Bold
BBlack=’\e[1;30m’ # Black
BRed=’\e[1;31m’ # Red
BGreen=’\e[1;32m’ # Green
BYellow=’\e[1;33m’ # Yellow
BBlue=’\e[1;34m’ # Blue
BPurple=’\e[1;35m’ # Purple
BCyan=’\e[1;36m’ # Cyan
BWhite=’\e[1;37m’ # White
# Underline
UBlack=’\e[4;30m’ # Black
URed=’\e[4;31m’ # Red
UGreen=’\e[4;32m’ # Green
UYellow=’\e[4;33m’ # Yellow
UBlue=’\e[4;34m’ # Blue
UPurple=’\e[4;35m’ # Purple
UCyan=’\e[4;36m’ # Cyan
UWhite=’\e[4;37m’ # White
# Background
On_Black=’\e[40m’ # Black
On_Red=’\e[41m’ # Red
On_Green=’\e[42m’ # Green
On_Yellow=’\e[43m’ # Yellow
On_Blue=’\e[44m’ # Blue
On_Purple=’\e[45m’ # Purple
On_Cyan=’\e[46m’ # Cyan
On_White=’\e[47m’ # White
# High Intensty
IBlack=’\e[0;90m’ # Black
IRed=’\e[0;91m’ # Red
IGreen=’\e[0;92m’ # Green
IYellow=’\e[0;93m’ # Yellow
IBlue=’\e[0;94m’ # Blue
IPurple=’\e[0;95m’ # Purple
ICyan=’\e[0;96m’ # Cyan
IWhite=’\e[0;97m’ # White
# Bold High Intensty
BIBlack=’\e[1;90m’ # Black
BIRed=’\e[1;91m’ # Red
BIGreen=’\e[1;92m’ # Green
BIYellow=’\e[1;93m’ # Yellow
BIBlue=’\e[1;94m’ # Blue
BIPurple=’\e[1;95m’ # Purple
BICyan=’\e[1;96m’ # Cyan
BIWhite=’\e[1;97m’ # White
# High Intensty backgrounds
On_IBlack=’\e[0;100m’ # Black
On_IRed=’\e[0;101m’ # Red
On_IGreen=’\e[0;102m’ # Green
On_IYellow=’\e[0;103m’ # Yellow
On_IBlue=’\e[0;104m’ # Blue
On_IPurple=’\e[10;95m’ # Purple
On_ICyan=’\e[0;106m’ # Cyan
On_IWhite=’\e[0;107m’ # White
How to use
print "\e[1;34m *0*\r\n";
sub testperl {
my $testperl = shift;
print $testperl;
}
Now we can use the subroutine just as any other built-in function:
testperl("test perl language");
#!/usr/bin/perl
use IO::Socket;
$irc='irc.example.net';
$nick='ตั้งชื่อบอท';
$owner='ชื่อคนใช้บอท';
$channel='#channel';
########################################################################
system('cls');
print "\n [+] Connection To $irc Please Wait ...\n\n";
########################################################################
$connect=IO::Socket::INET->new(PeerAddr=>$irc,
PeerPort=>'6667',
Proto=>'tcp',
Timeout=>60) or die "[!] Couldnt Connect To $irc\n\n";
#########################################################################
print $connect "USER xxx xxx xxx xxx\r\n";
print $connect "NICK ".$nick."\r\n";
print $connect "JOIN ".$channel."\r\n";
######################- Loop Connection -##############################
while ($svrmsg=<$connect>) {
if ($svrmsg=~m/^\:(.+?)\s+433/i) {
die "NickName in use";
}
print $svrmsg;
if ($svrmsg=~m/^PING (.*?)$/gi) {
print $connect "PONG ".$1."\r\n";
print "PONG ".$1."\r\n";
}
########################################################################
if ($svrmsg=~/Where you from ?/) {
if ($svrmsg=~/^\:$owner\!/) {
print $connect “PRIVMSG “,$channel,” :I’m Form Thailand\r\n”;
}
}
}
ที่มา : http://icheernoom.blogspot.com/2011/06/basic-irc-bot-with-perl.html
โดย : ICheer_No0M
หลายๆท่านที่เริ่มหัดเขียน assembly อาจเคยพบปัญหานี้ คือการจำคำสั่งของแอสแซม และปัญหาที่ตามมาคือ “จำไม่ค่อยได้” เพราะคำสั่งมันแค่ 3 ตัว แต่ถ้าเรารู้ว่าคำสั่งนั้นเต็มๆมันคืออะไร มันก็จะจำได้ง่ายขึ้นครับ (:
ตัวอย่าง
JNA Jump If Not Above JNAE Jump If Not Above or Equal JNB Jump If Not Below JNBE Jump if Not Below or Equal JNC Jump If No Carry JNE Jump If Not Equal JNF Jump if No Flag JNG Jump if Not Greater than JNGE Jump If Not Greater or Equal JNL Jump If Not Less
เขียนโดย : sornram9254
CSS : ความลับที่คุณอาจไม่เคยรู้ [เกี่ยวกับ script ที่ฝังมากับ host(ฟรี) ใครรู้แล้วขออภัยครับ : ) ]
และวิธีนี้เหมาะกับเว็บเล็กๆ ที่ไม่ค่อยมีไรมากนะครับ
เคยรำคารกันไหม ที่โฮสฟรีๆ ชอบมีโฆษณากวนใจ ที่โฮสฝัง script มา แก้ก็ไม่ได้
วันนี้ผมมีวิธีแก้ครับ(อาจจะไม่ได้ทุกเจ้า) โดยใช้เจ้า CSS
เริ่มแรกนะครับ ให้เราหา script ที่โฮสฟรีทั้งหลายฝังเอาไว้ก่อน ยกตัวอย่างของ freewebhostingarea.com แล้วกันนะครับ จะได้โค้ดนี้มา
<!– Free Web Hosting Area Start –>
<center><script type=”text/javascript” src=”hxxp://users.freewebhostingarea.com/a/l3b.js”></script></center><br>
<center><a target=”_blank” href=”hxxp://www.freewebhostingarea.com”><img src=”hxxp://users.freewebhostingarea.com/i/freehosting.png” border=”0″ width=”88″ height=”15″ alt=”Free Web Hosting”></a></center><br>
<noscript><br><center><font color=’#000000′ face=’Verdana’ style=’font-size: 11px; background-color:#FFFFFF’><a target=’_blank’ href=’hxxp://www.freewebhostingarea.com’><font color=’#000000′>Free Web Hosting</font></a></font></center></noscript>
<!– Free Web Hosting Area End –>
อันนี้จะเจอฝงอยู่คือ iframe (มาจากไฟล์ users.freewebhostingarea.com/a/l3b.js )
เราก็แค่เพิ่มโค้ดนี้ลงไปในไฟล์ css ซะ
iframe{ display: none; visibility: hidden; }
และถ้าในเว็บเราดันต้องใช้ iframe ด้วย ก็ควรใช้การกำหนด id หรือ class เพิ่มเข้าไปแทนนะครับ เช่น
<iframe id=’iframe’ src=’#’></iframe>
#iframe{ display: block; visibility: visible; background:#fff; }
written by : sornram9254
สำหรับท่านที่ต้องการเขียนโปรแกรม แล้วใช้ component browser แต่ไม่ต้องการใช้ของ IE ก็สามารถทำได้ดังนี้
1. ขั้นแรกให้เข้าไปที่ MozillaControl download แล้ว install ให้เรียบร้อย
2.เข้าโปรแกรม Visual Basic แล้วทำการ add component ให้เรียบร้อย
Visual Basic.NET
The Mozilla Browser control should be usable from any automation control container. This includes Visual Basic .NET, so follow these steps to add the control to your VB project:
- Install the control / or compile it and ensure it is registered.
- In the “View” menu, click “Toolbox”
- Click the “Components” tab
- Right-click anywhere in the “Toolbox” and click “Customize Toolbox…”
- In the “COM Components” tab, check the “MozillaBrowser Class” and click “OK”
- The Mozilla Browser control should now appear as “Browser” in the “Toolbox” for insertion into any application. (Click and drag onto your form)
Visual Basic 6
The Mozilla Browser control should be usable from any automation control container. This includes Visual Basic, so follow these steps to add the control to your VB project:
- Install the control / or compile it and ensure it is registered.
- Right mouse over the VB control bar and select “Components…”.
- Choose “MozillaControl 1.0 Type Library” from the list of controls
- The Mozilla Browser control should now appear in the toolbar for insertion into any application
Once the control is inserted, you should be able to directly call the events, methods and properties it exposes. The latest control source contains an example VB project called VBrowse.
Note: Save your project often! Bugs in the alpha-quality Mozilla will crash your development environment and will wipe out any unsaved work you may have.
3. ในการเรียกใช้ Component firefox ให้ใช้ Code ดังนี้ (ตัวอย่าง)
Private Sub Form_Load()
MozillaBrowser1.Navigate (“http://www.google.co.th”)
End Sub
4. ตัวอย่างผลลัพธ์
สำหรับข้อเสียคือ ในเครื่องผู้ใช้โปรแกรมจำเป็นต้องลง Component MozillaControl ด้วย ถ้าไม่เช่นนั้น จะไม่สามารถใช้โปรแกรมที่เราเขียนขึ้นได้
ตัวอย่างเครื่องที่ไม่ได้ติดตั้ง MozillaControl จะเป็นลักษณะนี้
ข้อเสียอีกอย่างคือ Component ตัวนี้ยังไม่รองรับคุณลักษณะ css บางคำสั่ง เช่น text-shadow ฯลฯ
ดังนั้นเมื่อเราเขียนโปรแกรมเสร็จ เวลาแจกจ่ายโปรแกรม เราต้องให้เครื่องผู้ใช้ติดตั้ง MozillaControl ด้วย
ข้อมูลเพิ่มเติม : http://www.iol.ie/~locka/mozilla/control.htm
By : Sornram9254