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

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Temas
Páginas: 1 ... 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 [29] 30 31 32 33 34 35 36 37 38 39 40 41 42
281  Foros Generales / Noticias / Mujer de 75 años casi corta todo el internet de Armenia con una pala en: 7 Abril 2011, 06:02 am
A veces uno se queda con la idea de que internet está “en la nube” y nos olvidamos de que en realidad, estamos conectados por unos cables que van por debajo del mar en la mayoría de los casos.

En Armenia, la conexión a internet viene en un 90% desde Georgia a través de un cable. Y accidentalmente, una mujer georgiana de 75 años que estaba cavando en busca de metales cortó el cable subterráneo de fibra óptica y le quitó internet a casi todo el país vecino. La mujer buscaba cobre, para venderlo después como chatarra.

Como consecuencia, 3,2 millones de personas se quedaron 5 horas sin internet, lo que provocó bastante caos para quienes requerían el servicio para trabajar. Algunas partes de la misma Georgia y de Azerbaiyán también se vieron afectadas.

El Ministerio del Interior de Georgia debió salir a dar explicaciones respecto del incidente. La mujer fue detenida cuando se descubrió el problema, aunque debido a su avanzada edad se la puso en libertad más tarde. De todos modos, puede enfrentar una condena de hasta 3 años por daños a la propiedad.

Mientras tanto, en los medios locales ya bautizaron a la señora como la "hacker de la pala"

 :xD

Fuente:
http://www.fayerwayer.com/2011/04/mujer-de-75-anos-casi-corta-todo-el-internet-de-armenia-con-una-pala/
282  Foros Generales / Foro Libre / ¿Alguien conoce este tema musical? en: 14 Enero 2011, 17:39 pm
ando buscando el nombre de este tema para usarlo en otro video pero no se su nombre ni lo he podido encontrar, alguien lo conoce o tiene alguna pista para poder seguir buscando?



gracias de antemano.
283  Programación / .NET (C#, VB.NET, ASP) / Unir dos XmlNodeList en uno solo en vb.net en: 12 Enero 2011, 20:23 pm
Habrá alguna forma mas efectiva que no sea haciendo un foreach procesando nodo por nodo del objeto XML para unir dos XmlNodeList?

el problema es que tengo un directorio con múltiples bases de datos y el sistema los argará todos y para procesar todo después quiero tener una sola variable y no un array de variables, normalmente podría mantener un array de XmlNodeList pero quiero buscar una alternativa que me permita unirlos talves con alguna función u operador.

Código
  1.            Dim DBArch As String, DBs() As String
  2.            DBs = Directory.GetFiles(DBURL, "*.xml", SearchOption.AllDirectories)
  3.  
  4.            Dim DBXML(DBs.Length) As XmlDocument
  5.            Dim DBNodo(DBs.Length) As XmlNodeList
  6.            Dim Id As Integer = 0
  7.            For Each DBArch In DBs
  8.                DBXML(Id).Load(DBArch)
  9.                DBNodo(Id) = DBXML(Id).SelectNodes("/AutoRemoveXDB/item")
  10.                Id = Id + 1
  11.            Next
  12.  
  13.            DB = DBNodo ' Acá debería unir el array de DBNodo solamente en DB.
284  Programación / PHP / SuperCaptcha animada by WHK en: 8 Enero 2011, 22:34 pm
hace tiempo hize un sistema de captcha utilizando la clase gifencoder que estuve usando en algunos sistemas mios, pero quiero compartilo xD

demo:






descarga: http://test.drawcoders.net/captcha/captcha.zip

rutas:
Código:
C:\xampp\htdocs\captcha>tree /f
Listado de rutas de carpetas
El número de serie del volumen es 00000200 BAEF:7637
C:.
│   index.php

└───includes
        captcha_fuente(bad).ttf
        captcha_fuente(beatnik).ttf
        captcha_fuente(belweb).ttf
        captcha_fuente(BERTRAMN).ttf
        captcha_fuente(butch).ttf
        captcha_fuente(cadellin).ttf
        captcha_fuente(candles).ttf
        GIFEncoder.class.php

captcha.php
Código
  1. <?php
  2. $captcha = new captcha();
  3.  
  4. if((int)$_GET['seg'] == 0){
  5. $captcha->mostrar(0);
  6. }elseif((int)$_GET['seg'] == 2){
  7. $captcha->mostrar(2);
  8. }else{ /* 1 */
  9. $captcha->mostrar(1);
  10. }
  11.  
  12. class captcha{
  13. var $dir_data;
  14.  
  15. function __construct(){
  16.  $this->dir_data = './includes/';
  17. }
  18.  
  19. function obtener_hash(){
  20.  return $_SESSION['CAPTCHA'];
  21. }
  22.  
  23. function establecer_hash(){
  24.   array('o','0','i','l','1','y','s','5','8','7','t','6','b','d','u','q','2','z'),
  25.   array('f','r','p','w','x','k','9','a','3','a','m','w','f','3','e','h','c','n'),
  26.   substr(sha1(time().rand(0,100)), 0, 4)
  27.  ));
  28.  $_SESSION['CAPTCHA'] = $hash;
  29.  return $hash;
  30. }
  31.  
  32. function color_azar($handle){
  33.  return imagecolorallocate($handle, rand(0,255), rand(0,255), rand(0,255));
  34. }
  35.  
  36. function crear_frame($buffer, $fuente, $seguridad = 1){
  37.  /* Configuraciones */
  38.  $alto = 25;
  39.  $ancho = 160;
  40.  $lineas = 30;
  41.  
  42.  $handle = imagecreate($ancho, $alto);
  43.  
  44.  if($seguridad <= '1'){ /* Seguridad igual o menor a 1 */
  45.   $blanco = imagecolorallocate($handle, 255, 255, 255);
  46.   $negro  = imagecolorallocate($handle, 51, 51, 51);
  47.  }elseif($seguridad >= '2'){ /* Seguridad igual o mayor a 2 */
  48.   $blanco = imagecolorallocate($handle, rand(0, 255), rand(0, 255), rand(0, 255));
  49.   $negro  = imagecolorallocate($handle, rand(0, 255), rand(0, 255), rand(0, 255));
  50.  }
  51.  
  52.  /* Agrega las lineas */
  53.  if($seguridad >= '1'){ /* Seguridad igual o mayor a 1 */
  54.   for($cuenta = 1; $cuenta <= $lineas; $cuenta++){
  55.    imageline($handle, rand(0,$ancho), 0, rand(0,$ancho), 25, $this->color_azar($handle));
  56.   }
  57.  }
  58.  
  59.  imagettftext($handle, 20, 0, 22, 22, $negro, $fuente, strtoupper($buffer));
  60.  ob_end_clean(); /* Elimina la declaración de inicio de buffers anteriores en el motor */
  61.  ob_start(); /* Comienza a capturar buffer */
  62.  imagegif($handle); /* Crea imagen */
  63.  $retorno = ob_get_contents(); /* Vuelca el contenido a la variable */
  64.  imagedestroy($handle); /* Libera memoria */
  65.  ob_end_clean(); /* Destruye el buffer */
  66.  return $retorno; /* Retorna el buffer de la imagen */
  67. }
  68.  
  69. function mostrar($seguridad = 1){
  70.  /* Seguridad va del 0 al 2 */
  71.  $string = $this->establecer_hash();
  72.  include($this->dir_data .'GIFEncoder.class.php');
  73.  $cantidad_frames = 10;
  74.  $fuente = glob($this->dir_data .'/captcha_fuente(*).ttf');
  75.  $fuente = $fuente[(int)rand(0, count($fuente) - 1)];
  76.  
  77.  for($cuenta = 0; $cuenta <= $cantidad_frames; $cuenta++){
  78.   $buffer = $this->crear_frame($string, $fuente, $seguridad);
  79.   $rutas_frames[$cuenta] = sys_get_temp_dir().'/'.md5(microtime().rand(10, 500)).'.gif';
  80.   file_put_contents($rutas_frames[$cuenta], $buffer);
  81.   unset($buffer);
  82.  }
  83.  
  84.  $gif = new GIFEncoder($rutas_frames, false, 0, 2, 0, 0, 0, 'url');
  85.  
  86.  foreach($rutas_frames as $eliminar){
  87.   @unlink($eliminar);
  88.  }
  89.  
  90.  header('Content-type: image/gif');
  91.  echo $gif->GetAnimation();
  92.  exit;
  93. }
  94.  
  95. }
  96.  
  97. ?>

GIFEncoder.class.php
Código
  1. <?php
  2. /*
  3. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  4. ::
  5. :: GIFEncoder Version 2.0 by László Zsidi, http://gifs.hu
  6. ::
  7. :: This class is a rewritten 'GifMerge.class.php' version.
  8. ::
  9. ::  Modification:
  10. ::   - Simplified and easy code,
  11. ::   - Ultra fast encoding,
  12. ::   - Built-in errors,
  13. ::   - Stable working
  14. ::
  15. ::
  16. :: Updated at 2007. 02. 13. '00.05.AM'
  17. ::
  18. ::
  19. ::
  20. ::  Try on-line GIFBuilder Form demo based on GIFEncoder.
  21. ::
  22. ::  http://gifs.hu/phpclasses/demos/GifBuilder/
  23. ::
  24. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  25. */
  26.  
  27. Class GIFEncoder {
  28. var $GIF = "GIF89a"; /* GIF header 6 bytes */
  29. var $VER = "GIFEncoder V2.05"; /* Encoder version */
  30.  
  31. var $BUF = Array ( );
  32. var $LOP =  0;
  33. var $DIS =  2;
  34. var $COL = -1;
  35. var $IMG = -1;
  36.  
  37. var $ERR = Array (
  38. ERR00=>"Does not supported function for only one image!",
  39. ERR01=>"Source is not a GIF image!",
  40. ERR02=>"Unintelligible flag ",
  41. ERR03=>"Does not make animation from animated GIF source",
  42. );
  43.  
  44. /*
  45. :::::::::::::::::::::::::::::::::::::::::::::::::::
  46. ::
  47. :: GIFEncoder...
  48. ::
  49. */
  50. function GIFEncoder (
  51. $GIF_src, $GIF_dly, $GIF_lop, $GIF_dis,
  52. $GIF_red, $GIF_grn, $GIF_blu, $GIF_mod
  53. ) {
  54. if ( ! is_array ( $GIF_src ) && ! is_array ( $GIF_tim ) ) {
  55. printf ( "%s: %s", $this->VER, $this->ERR [ 'ERR00' ] );
  56. exit ( 0 );
  57. }
  58. $this->LOP = ( $GIF_lop > -1 ) ? $GIF_lop : 0;
  59. $this->DIS = ( $GIF_dis > -1 ) ? ( ( $GIF_dis < 3 ) ? $GIF_dis : 3 ) : 2;
  60. $this->COL = ( $GIF_red > -1 && $GIF_grn > -1 && $GIF_blu > -1 ) ?
  61. ( $GIF_red | ( $GIF_grn << 8 ) | ( $GIF_blu << 16 ) ) : -1;
  62.  
  63. for ( $i = 0; $i < count ( $GIF_src ); $i++ ) {
  64. if ( strToLower ( $GIF_mod ) == "url" ) {
  65. $this->BUF [ ] = fread ( fopen ( $GIF_src [ $i ], "rb" ), filesize ( $GIF_src [ $i ] ) );
  66. }
  67. else if ( strToLower ( $GIF_mod ) == "bin" ) {
  68. $this->BUF [ ] = $GIF_src [ $i ];
  69. }
  70. else {
  71. printf ( "%s: %s ( %s )!", $this->VER, $this->ERR [ 'ERR02' ], $GIF_mod );
  72. exit ( 0 );
  73. }
  74. if ( substr ( $this->BUF [ $i ], 0, 6 ) != "GIF87a" && substr ( $this->BUF [ $i ], 0, 6 ) != "GIF89a" ) {
  75. printf ( "%s: %d %s", $this->VER, $i, $this->ERR [ 'ERR01' ] );
  76. exit ( 0 );
  77. }
  78. for ( $j = ( 13 + 3 * ( 2 << ( ord ( $this->BUF [ $i ] { 10 } ) & 0x07 ) ) ), $k = TRUE; $k; $j++ ) {
  79. switch ( $this->BUF [ $i ] { $j } ) {
  80. case "!":
  81. if ( ( substr ( $this->BUF [ $i ], ( $j + 3 ), 8 ) ) == "NETSCAPE" ) {
  82. printf ( "%s: %s ( %s source )!", $this->VER, $this->ERR [ 'ERR03' ], ( $i + 1 ) );
  83. exit ( 0 );
  84. }
  85. break;
  86. case ";":
  87. $k = FALSE;
  88. break;
  89. }
  90. }
  91. }
  92. GIFEncoder::GIFAddHeader ( );
  93. for ( $i = 0; $i < count ( $this->BUF ); $i++ ) {
  94. GIFEncoder::GIFAddFrames ( $i, $GIF_dly [ $i ] );
  95. }
  96. GIFEncoder::GIFAddFooter ( );
  97. }
  98. /*
  99. :::::::::::::::::::::::::::::::::::::::::::::::::::
  100. ::
  101. :: GIFAddHeader...
  102. ::
  103. */
  104. function GIFAddHeader ( ) {
  105. $cmap = 0;
  106.  
  107. if ( ord ( $this->BUF [ 0 ] { 10 } ) & 0x80 ) {
  108. $cmap = 3 * ( 2 << ( ord ( $this->BUF [ 0 ] { 10 } ) & 0x07 ) );
  109.  
  110. $this->GIF .= substr ( $this->BUF [ 0 ], 6, 7 );
  111. $this->GIF .= substr ( $this->BUF [ 0 ], 13, $cmap );
  112. $this->GIF .= "!\377\13NETSCAPE2.0\3\1" . GIFEncoder::GIFWord ( $this->LOP ) . "\0";
  113. }
  114. }
  115. /*
  116. :::::::::::::::::::::::::::::::::::::::::::::::::::
  117. ::
  118. :: GIFAddFrames...
  119. ::
  120. */
  121. function GIFAddFrames ( $i, $d ) {
  122.  
  123. $Locals_str = 13 + 3 * ( 2 << ( ord ( $this->BUF [ $i ] { 10 } ) & 0x07 ) );
  124.  
  125. $Locals_end = strlen ( $this->BUF [ $i ] ) - $Locals_str - 1;
  126. $Locals_tmp = substr ( $this->BUF [ $i ], $Locals_str, $Locals_end );
  127.  
  128. $Global_len = 2 << ( ord ( $this->BUF [ 0  ] { 10 } ) & 0x07 );
  129. $Locals_len = 2 << ( ord ( $this->BUF [ $i ] { 10 } ) & 0x07 );
  130.  
  131. $Global_rgb = substr ( $this->BUF [ 0  ], 13,
  132. 3 * ( 2 << ( ord ( $this->BUF [ 0  ] { 10 } ) & 0x07 ) ) );
  133. $Locals_rgb = substr ( $this->BUF [ $i ], 13,
  134. 3 * ( 2 << ( ord ( $this->BUF [ $i ] { 10 } ) & 0x07 ) ) );
  135.  
  136. $Locals_ext = "!\xF9\x04" . chr ( ( $this->DIS << 2 ) + 0 ) .
  137. chr ( ( $d >> 0 ) & 0xFF ) . chr ( ( $d >> 8 ) & 0xFF ) . "\x0\x0";
  138.  
  139. if ( $this->COL > -1 && ord ( $this->BUF [ $i ] { 10 } ) & 0x80 ) {
  140. for ( $j = 0; $j < ( 2 << ( ord ( $this->BUF [ $i ] { 10 } ) & 0x07 ) ); $j++ ) {
  141. if (
  142. ord ( $Locals_rgb { 3 * $j + 0 } ) == ( ( $this->COL >> 16 ) & 0xFF ) &&
  143. ord ( $Locals_rgb { 3 * $j + 1 } ) == ( ( $this->COL >>  8 ) & 0xFF ) &&
  144. ord ( $Locals_rgb { 3 * $j + 2 } ) == ( ( $this->COL >>  0 ) & 0xFF )
  145. ) {
  146. $Locals_ext = "!\xF9\x04" . chr ( ( $this->DIS << 2 ) + 1 ) .
  147. chr ( ( $d >> 0 ) & 0xFF ) . chr ( ( $d >> 8 ) & 0xFF ) . chr ( $j ) . "\x0";
  148. break;
  149. }
  150. }
  151. }
  152. switch ( $Locals_tmp { 0 } ) {
  153. case "!":
  154. $Locals_img = substr ( $Locals_tmp, 8, 10 );
  155. $Locals_tmp = substr ( $Locals_tmp, 18, strlen ( $Locals_tmp ) - 18 );
  156. break;
  157. case ",":
  158. $Locals_img = substr ( $Locals_tmp, 0, 10 );
  159. $Locals_tmp = substr ( $Locals_tmp, 10, strlen ( $Locals_tmp ) - 10 );
  160. break;
  161. }
  162. if ( ord ( $this->BUF [ $i ] { 10 } ) & 0x80 && $this->IMG > -1 ) {
  163. if ( $Global_len == $Locals_len ) {
  164. if ( GIFEncoder::GIFBlockCompare ( $Global_rgb, $Locals_rgb, $Global_len ) ) {
  165. $this->GIF .= ( $Locals_ext . $Locals_img . $Locals_tmp );
  166. }
  167. else {
  168. $byte  = ord ( $Locals_img { 9 } );
  169. $byte |= 0x80;
  170. $byte &= 0xF8;
  171. $byte |= ( ord ( $this->BUF [ 0 ] { 10 } ) & 0x07 );
  172. $Locals_img { 9 } = chr ( $byte );
  173. $this->GIF .= ( $Locals_ext . $Locals_img . $Locals_rgb . $Locals_tmp );
  174. }
  175. }
  176. else {
  177. $byte  = ord ( $Locals_img { 9 } );
  178. $byte |= 0x80;
  179. $byte &= 0xF8;
  180. $byte |= ( ord ( $this->BUF [ $i ] { 10 } ) & 0x07 );
  181. $Locals_img { 9 } = chr ( $byte );
  182. $this->GIF .= ( $Locals_ext . $Locals_img . $Locals_rgb . $Locals_tmp );
  183. }
  184. }
  185. else {
  186. $this->GIF .= ( $Locals_ext . $Locals_img . $Locals_tmp );
  187. }
  188. $this->IMG  = 1;
  189. }
  190. /*
  191. :::::::::::::::::::::::::::::::::::::::::::::::::::
  192. ::
  193. :: GIFAddFooter...
  194. ::
  195. */
  196. function GIFAddFooter ( ) {
  197. $this->GIF .= ";";
  198. }
  199. /*
  200. :::::::::::::::::::::::::::::::::::::::::::::::::::
  201. ::
  202. :: GIFBlockCompare...
  203. ::
  204. */
  205. function GIFBlockCompare ( $GlobalBlock, $LocalBlock, $Len ) {
  206.  
  207. for ( $i = 0; $i < $Len; $i++ ) {
  208. if (
  209. $GlobalBlock { 3 * $i + 0 } != $LocalBlock { 3 * $i + 0 } ||
  210. $GlobalBlock { 3 * $i + 1 } != $LocalBlock { 3 * $i + 1 } ||
  211. $GlobalBlock { 3 * $i + 2 } != $LocalBlock { 3 * $i + 2 }
  212. ) {
  213. return ( 0 );
  214. }
  215. }
  216.  
  217. return ( 1 );
  218. }
  219. /*
  220. :::::::::::::::::::::::::::::::::::::::::::::::::::
  221. ::
  222. :: GIFWord...
  223. ::
  224. */
  225. function GIFWord ( $int ) {
  226.  
  227. return ( chr ( $int & 0xFF ) . chr ( ( $int >> 8 ) & 0xFF ) );
  228. }
  229. /*
  230. :::::::::::::::::::::::::::::::::::::::::::::::::::
  231. ::
  232. :: GetAnimation...
  233. ::
  234. */
  235. function GetAnimation ( ) {
  236. return ( $this->GIF );
  237. }
  238. }
  239. ?>
285  Programación / .NET (C#, VB.NET, ASP) / Nickmania sourcecode en: 19 Noviembre 2010, 10:25 am
Hola, les dejo elcódigo fuente de nickmania por si le interesa a alguien.
Está en vb.net

http://www.megaupload.com/?d=RGE2DOO0



clase funciones.vb:
Código
  1. Imports System.Text
  2.  
  3. Public Class Funciones
  4.  
  5.    Public Function Convertir(ByVal Buffer As String, ByVal Tipo As String) As String
  6.        Try
  7.            If Tipo = "decimal" Then
  8.                Return AscW(Buffer).ToString
  9.  
  10.            ElseIf Tipo = "hexadecimal" Then
  11.                Return UCase(Hex(AscW(Trim(Buffer)))).ToString
  12.  
  13.            ElseIf Tipo = "html" Then
  14.                Return "&#38;#x" & UCase(Hex(AscW(Trim(Buffer)))).ToString & ";"
  15.  
  16.            Else
  17.                Return Buffer
  18.  
  19.            End If
  20.        Catch
  21.            Return Buffer
  22.        End Try
  23.    End Function
  24.  
  25. End Class

Form1.vb:
Código
  1. Imports System.Text
  2.  
  3. Public Class Form1
  4.  
  5.    Public Func As New Funciones
  6.    Public LastChar As String
  7.    Public StrDefaultMSG As String = "Su nick acá"
  8.    Private Evitar_VerificarMSG As Boolean
  9.  
  10.    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
  11.        ' Evita mostrar StrDefaultMSG al retroceder completamente sin perder el foco
  12.        If TextBox1.Text = StrDefaultMSG Then
  13.            TextBox1.Text = e.KeyChar
  14.            e.KeyChar = ""
  15.            TextBox1.SelectionStart = TextBox1.Text.Length
  16.        ElseIf TextBox1.Text = Chr(8) And AscW(e.KeyChar) = 8 Then
  17.            TextBox1.Text = ""
  18.            e.KeyChar = ""
  19.        End If
  20.    End Sub
  21.  
  22.    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
  23.        Generar()
  24.    End Sub
  25.  
  26.    Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
  27.        If TextBox1.Text = StrDefaultMSG Then
  28.            Evitar_VerificarMSG = True
  29.            TextBox1.Text = ""
  30.            TextBox2.Text = ""
  31.        End If
  32.    End Sub
  33.  
  34.    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  35.        If TextBox1.Text = Chr(8) Then TextBox1.Text = ""
  36.        If TextBox1.Text = StrDefaultMSG Then
  37.            TextBox1.ForeColor = Color.Silver
  38.            TextBox2.ForeColor = Color.Silver
  39.        Else
  40.            TextBox1.ForeColor = Color.Black
  41.            TextBox2.ForeColor = Color.Black
  42.            Generar()
  43.        End If
  44.    End Sub
  45.  
  46.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  47.        ListView1.Items(0).Focused = True
  48.    End Sub
  49.  
  50.    Private Function Generar() As Boolean
  51.        If TextBox1.Text = "" Then
  52.            If Evitar_VerificarMSG = False Then
  53.                TextBox1.Text = StrDefaultMSG
  54.                TextBox2.Text = "Nick generado"
  55.            Else
  56.                Evitar_VerificarMSG = False
  57.            End If
  58.        End If
  59.  
  60.        If TextBox1.Text = StrDefaultMSG Then
  61.            Label6.Text = "Ejemplo"
  62.            Label7.Text = "3j3mp10"
  63.            Label8.Text = "EjEmPlO"
  64.            Exit Function
  65.        End If
  66.  
  67.        Dim Nick As String, Cuenta As Integer, U_Case As Boolean
  68.        Dim Code1 As String, Code2 As String, Code3 As String, Code4 As String
  69.  
  70.        ' Code1 = 1337
  71.        Code1 = TextBox1.Text.ToLower
  72.        Code1 = Code1.Replace("a", "å")
  73.        Code1 = Code1.Replace("b", "ß")
  74.        Code1 = Code1.Replace("c", "©")
  75.        Code1 = Code1.Replace("d", "Ð")
  76.        Code1 = Code1.Replace("e", "3")
  77.        Code1 = Code1.Replace("f", "ƒ")
  78.        Code1 = Code1.Replace("g", "6")
  79.        Code1 = Code1.Replace("i", "¡")
  80.        Code1 = Code1.Replace("l", "1")
  81.        Code1 = Code1.Replace("o", "0")
  82.        Code1 = Code1.Replace("q", "¶")
  83.        Code1 = Code1.Replace("r", "®")
  84.        Code1 = Code1.Replace("s", "§")
  85.        Code1 = Code1.Replace("u", "µ")
  86.        Code1 = Code1.Replace("y", "¥")
  87.        Label7.Text = Code1 ' Imprime ejemplo
  88.  
  89.        ' Code2 = Normal
  90.        Code2 = TextBox1.Text
  91.        Label6.Text = Code2 ' Imprime ejemplo
  92.  
  93.        ' Code3 = UL-Case
  94.        U_Case = False
  95.        Code3 = ""
  96.        For Cuenta = 0 To TextBox1.Text.Length - 1
  97.            If U_Case = False Then
  98.                Code3 = Code3 & TextBox1.Text.Substring(Cuenta, 1).ToLower.ToString
  99.                U_Case = True
  100.            Else
  101.                Code3 = Code3 & TextBox1.Text.Substring(Cuenta, 1).ToUpper.ToString
  102.                U_Case = False
  103.            End If
  104.        Next
  105.        Label8.Text = Code3 ' Imprime ejemplo
  106.  
  107.        ' Code4 = Gigante
  108.        Code4 = TextBox1.Text.ToLower
  109.        Code4 = Code4.Replace(" ", "  ")
  110.        Code4 = Code4.Replace("a", " |&#831;&#822; &#831;&#822; &#831;&#822; &#831;&#822;|")
  111.        Code4 = Code4.Replace("b", " |&#831;&#839;&#822; &#831;&#839;&#822; &#831;&#839;&#822;)")
  112.        Code4 = Code4.Replace("c", " |&#831;&#839; &#831;&#839; &#831;&#839; &#831;&#839;")
  113.        Code4 = Code4.Replace("d", " |&#831;&#839; &#831;&#839; &#831;&#839; &#831;&#839;)")
  114.        Code4 = Code4.Replace("e", " |&#831;&#839;&#822; &#831;&#839;&#822; &#831;&#839;")
  115.        Code4 = Code4.Replace("f", " |&#831;&#822; &#831;&#822; &#831;&#822; &#831;&#822;")
  116.        Code4 = Code4.Replace("g", " |&#831;&#839; &#831;&#839; &#831;&#839; &#822;&#831;&#839;&#953;")
  117.        Code4 = Code4.Replace("h", " |&#822; &#822; &#822; &#822;|")
  118.        Code4 = Code4.Replace("i", " [b]|[/b]")
  119.        Code4 = Code4.Replace("j", "  &#839; &#839;&#839;&#839;&#839;|")
  120.        Code4 = Code4.Replace("k", " |<")
  121.        Code4 = Code4.Replace("l", " |&#839; &#839; &#839; &#839;")
  122.        Code4 = Code4.Replace("m", " |&#831; V &#831;|")
  123.        Code4 = Code4.Replace("n", " |&#831; \&#839;|")
  124.        Code4 = Code4.Replace("o", " |&#831;&#839; &#831;&#839; &#831;&#839;|")
  125.        Code4 = Code4.Replace("p", " |&#831;&#822; &#831;&#822; &#831;&#822; &#831;&#822;'")
  126.        Code4 = Code4.Replace("q", " |&#831;&#839; &#831;&#839; &#831;&#839; &#831;&#839;&#839;|&#839; ")
  127.        Code4 = Code4.Replace("r", " |&#831; &#831; &#831;")
  128.        Code4 = Code4.Replace("s", "  &#839; &#839;\&#831; &#831;")
  129.        Code4 = Code4.Replace("t", "  &#831; &#831;|&#831; &#831;")
  130.        Code4 = Code4.Replace("u", " |&#839; &#839; &#839; &#839; &#839;|")
  131.        Code4 = Code4.Replace("v", " [b]\ &#839; /[/b]")
  132.        Code4 = Code4.Replace("w", " [b]|&#839; &#923; &#839;|[/b]")
  133.        Code4 = Code4.Replace("x", " X")
  134.        Code4 = Code4.Replace("y", " Y")
  135.        Code4 = Code4.Replace("z", "  &#831; &#831;/ &#839; &#839;")
  136.        Label9.Text = Code4
  137.        Code4 = "&#2309;&#3665; " & Trim(Code4)
  138.  
  139.        ' Establece el nick
  140.        If RadioButton2.Checked = True Then ' 1337
  141.            Nick = Code1
  142.  
  143.        ElseIf RadioButton3.Checked = True Then ' Gigante
  144.            Nick = Code4
  145.  
  146.        ElseIf RadioButton4.Checked = True Then ' UL-Case
  147.            Nick = Code3
  148.  
  149.        Else ' Normal
  150.            Nick = Code2
  151.  
  152.        End If
  153.  
  154.        ' Retorna
  155.        TextBox2.Text = ListView1.FocusedItem.Text.Replace("Nick", Nick)
  156.    End Function
  157.  
  158.    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
  159.        Generar()
  160.    End Sub
  161.  
  162.    Private Sub TextBox2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseClick
  163.        TextBox2.SelectAll()
  164.    End Sub
  165.  
  166.    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
  167.        Generar()
  168.    End Sub
  169.  
  170.    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
  171.        Generar()
  172.    End Sub
  173.  
  174.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  175.        If TextBox1.Text = StrDefaultMSG Then
  176.            MsgBox("Debe proporcionar un nick")
  177.            Exit Sub
  178.        End If
  179.        Dim Random As New Random()
  180.        ListView1.Items(Random.Next(0, ListView1.Items.Count - 1)).Focused = True
  181.        Generar()
  182.    End Sub
  183.  
  184.    Private Function LoadCharMap() As Boolean
  185.        Dim Cuenta As Integer, Cuenta2 As Integer, Cuenta3 As Integer, LItem As New ListViewItem
  186.        Dim Desde As Integer, Hasta As Integer, Columnas As Integer
  187.  
  188.        Desde = 0 ' 9474
  189.        Hasta = 65535 ' 9729
  190.        Columnas = 22
  191.        Cuenta3 = Desde
  192.  
  193.        Me.Cursor = Cursors.WaitCursor
  194.        Label2.Text = "Creando columnas ..."
  195.        Button4.Visible = False
  196.        Label2.Visible = True
  197.        DataGridView1.Visible = False
  198.        Application.DoEvents()
  199.  
  200.        ' Crea las columnas
  201.        For Cuenta = 0 To Columnas - 1
  202.            DataGridView1.Columns.Add("c" & Cuenta, "t" & Cuenta)
  203.            DataGridView1.Columns(DataGridView1.Columns.Count - 1).Width = 22
  204.            DataGridView1.Columns(DataGridView1.Columns.Count - 1).Resizable = DataGridViewTriState.False
  205.            Label2.Text = "Creando columnas ... " & Cuenta
  206.            Application.DoEvents()
  207.        Next
  208.  
  209.        Label2.Text = "Creando mapa de carácteres ... 0/" & Hasta
  210.        Application.DoEvents()
  211.        Timer1.Tag = "0/" & Hasta
  212.        Timer1.Enabled = True
  213.  
  214.        Dim n As Integer
  215.        For Cuenta = 0 To Int(((Hasta - Desde) / Columnas) - 1)
  216.            If Cuenta3 > Hasta Then Exit For
  217.            n = DataGridView1.Rows.Add()
  218.            For Cuenta2 = 0 To Columnas - 1
  219.                If Cuenta3 > Hasta Then Exit For
  220.                DataGridView1.Rows.Item(n).Cells(Cuenta2).Value = ChrW(Cuenta3)
  221.                Timer1.Tag = Cuenta3 & "/" & Hasta
  222.                Cuenta3 = Cuenta3 + 1
  223.                Application.DoEvents()
  224.            Next
  225.        Next
  226.  
  227.        Label2.Visible = False
  228.        DataGridView1.Visible = True
  229.        Timer1.Tag = 0
  230.        Timer1.Enabled = False
  231.        Me.Cursor = Cursors.Arrow
  232.    End Function
  233.  
  234.    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  235.        Shell("charmap", AppWinStyle.NormalFocus)
  236.    End Sub
  237.  
  238.    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  239.        InsertLastChar()
  240.    End Sub
  241.  
  242.    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
  243.        Dim v_Str As String = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString()
  244.        TextBox3.Text = v_Str
  245.        TextBox4.Text = Func.Convertir(v_Str, "hexadecimal")
  246.        TextBox5.Text = Func.Convertir(v_Str, "html")
  247.        TextBox6.Text = Func.Convertir(v_Str, "decimal")
  248.        LastChar = v_Str
  249.    End Sub
  250.  
  251.    Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
  252.        InsertLastChar()
  253.    End Sub
  254.  
  255.    Private Function InsertLastChar() As Boolean
  256.        If TextBox1.Text = StrDefaultMSG Then
  257.            TextBox1.Text = LastChar
  258.        Else
  259.            TextBox1.Text = TextBox1.Text & LastChar
  260.        End If
  261.    End Function
  262.  
  263.    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  264.        Label2.Text = "Creando mapa de carácteres ... " & Timer1.Tag
  265.        Application.DoEvents()
  266.    End Sub
  267.  
  268.    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  269.        LoadCharMap()
  270.    End Sub
  271.  
  272.    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  273.        Dim Random As New Random()
  274.        Dim Caracter As String = DataGridView1.Rows(Random.Next(0, DataGridView1.Rows.Count)).Cells(Random.Next(0, DataGridView1.Columns.Count)).Value.ToString()
  275.        If TextBox1.Text = StrDefaultMSG Then
  276.            TextBox1.Text = Caracter
  277.        Else
  278.            TextBox1.Text = TextBox1.Text & Caracter
  279.        End If
  280.    End Sub
  281.  
  282. End Class
  283.  


Binario:
http://foro.elhacker.net/chats_irc_y_messengers/nickmania_v24_by_whk-t309834.0.html
286  Programación / .NET (C#, VB.NET, ASP) / Solucionado - Como insertar Unicode en vb.net? en: 7 Noviembre 2010, 13:26 pm
msgbox(ChrW(Asc("░"))))

me impime "|" xD
estuve averiguando de como poder imprimir en un form de vb.net un carácter unicode y es virtualmente imposible por lo que estoy leyendo de otras fuentes.

La idea principal es hacer un listado de carácteres ascii en un listview pero los valores unicode no se ven como por ejemplo ░▒▓█ que deberían ser los valores decimales 176 en adelante.

Intenté usar otros controles pero ninguno me daba, al ver que ni el msgbox me devuelve un unicode entones no se que será lo mejor hacer.

Intenté convertir con convert de unicode a text pero nada, el ░ me sigue retornando 166 con asc cuando debería ser 176 y ni aun así el 166 vale | y no
287  Comunicaciones / Mensajería / NickMania V2.4 by WHK en: 5 Noviembre 2010, 18:06 pm
NickMania V2.4 by WHK

Hize un software dedicado a crear nicks para los fanáticos del messenger :D está muy fácil de usar.

Pestaña 1: Diseños autogenerables


Opcion agregada de carácteres gigantes


Pestaña 2: Mapa de carácteres completo con decodificador de valores


También incluye muchos mas diseños prefabricados que antes.

El programa no tiene costo, agradecer cuesta menos que fabricarlo.

Version: 2.4 -> Descarga: http://www.megaupload.com/?d=ELB14G6O




Otras versiones:

1.0 -> http://www.megaupload.com/?d=LAOHTAXB


2.0 -> http://www.megaupload.com/?d=SVTJBAPZ
(Es lo mismo que el 2.3 con la diferencia del soporte para carácteres gigantes)

2.3 -> http://www.megaupload.com/?d=Z4MPA8NV
(Es lo mismo que el 2.4 solo que se le reparó un error que impedía modificar el texto gigante de ejemplo)
288  Programación / .NET (C#, VB.NET, ASP) / solucionado - Salida de consola en modo ventana? en: 30 Octubre 2010, 04:12 am
Hola, estaba intentando crear una aplicación gráfica con formularios en vb.net pero a la ves quería ir imprimiendo los status o errores atraves de la consola que lo llama.

Me explico...
La idea es que si le hago doble click no se verá consola, solo la ventana y ya, pero si lo abro desde la consola quería que me mostrara algunos estados, se podrá? sería como una convinación entre una aplicación windows form y consola, pero no quiero haerla consola 100% porque hay casos en que debo mostrar la ventana sin que se vea una consola
289  Programación / PHP / Como crear hash alfanumérico autoincrementado en php y mysql? en: 17 Octubre 2010, 05:03 am
Hola, se me ocurrió hacer un sistema web que lleva hashses únicos y deben ser lo más cortos posible, quería poner los primeros 5 carácteres de un md5(microtime()) pero qujiero evitar las colisiones, además se me ocurrió otra manera aún mas cotra de hacer hashses sin tener colisiones.

Este sistema es muy similar a tinyurl por lo tanto hay dos tipos de hashses, uno generado por el sistema y uno personalizado opcional.

La idea que tube es que primero comienze el id del enlace con 0,1,2,3,4,5... despues 7,8,9,a,b,c,d,e... despues mayusculas ...x,y,z,A,B,C... y cuando llegue a Z comenzar otraves.. X,Y,Z,01,02,03,04,05... despues 0X,0Y,0Z,10,11,12,13,14... 1x,1y,1z,1A,1B...
se entiende? xD

De esta forma generaría hashses que contengan números y letras mayusculas y minúsculas abarcando todas las combinaciones posibles y así hacer hashses de uno, dos, tres carácteres sin tener colisiones.

Para esto habia hecho un pseudocódigo donde..
Código
  1. function calcula_alias(){
  2. sql: obtiene el aliaz mas corto y el último alfabético con límite 1
  3. verifica desde el ultimo caracter hasta el primero
  4. del 0 al 9 , de la a a la z y de la A a la Z
  5. si es Z revisa el siguiente
  6. si llega al final agregar uno y resetear todos a 0
  7. }

de esta forma lograría hacer el autoincrementado pero el problema es que el usuario puede ingresar su hash personalizado, por lo tanto digamos que alguien ingresa "ZZZ" como de dormir y cuando llegue el hash a tres carácteres se va a seleccionar ese porque será el ultimo de la tabla y me va a joder todas las demás combinaciones entre 000 y ZZZ, ahora, tampoco puedo tomar el primero porque si tomo el aaa quien me dice que no hay un aab.

Se entiende mi rompecabezas? xDD el sistema está muy muy útil ya que solucionaría el problema que ningún hosting de archivos ha podido solucionar, ni si quiera facebook ya que ellos utilizan un hash correspondiente a muchas cosas para evitar colisiones, imageshack, megaupload, tinyurl, etc , a todos les solucionaría la vida con este sistema xD pero aún se me está haciendo un poco complicado.

También pensé que si el hash se repite entonces anteponer un hash aleatorio de 5 carácteres pero no es la idea.

Conversando con nakp, si no me resulta lo que haré es utilizar el id numérico y sacar el max() del id  y verificar si existe en la columna de los hashses , solo que como será un string se me hará un poco complejo la verificación, pero es posible.

¿Alguien tiene alguna idea para que me de una mano?

Mientras tanto me conformé con un hash de 5 carácteres con algunos símbolos para evitar una colisión

Código
  1. function calcula_alias($cantidad = 5){
  2. $caracteres = '=-_{}$;,abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
  3. for($cuenta = 0; $cuenta <= $cantidad; $cuenta++){
  4.  $hash .= $caracteres[rand(0,strlen($caracteres) - 1)];
  5. }
  6. return $hash;
  7. }
290  Seguridad Informática / Hacking / Descargar Netcat, cryptcat, radmin 1.2, extension creator, etc en: 15 Septiembre 2010, 20:55 pm
he recibido hasta el cansancio mensajes privados de donde descargar el netcat y otras herramientas que ultimamente no se porque han estado bastante escasas y no ha sido tan facil encontrarlas.

hize un archivo comprimido en rar sin contraseña con todas estas herramientas:
Citar
netcat nt V1.10
cryptcat nt V1.2.1
tftpd32
Radmin V2.1
Extension Creator
edjpgcom
nircmd
wget
dictmake
Netscan

Enlaces de descarga:
http://www.mediafire.com/?572kmr74tr6r7f0
http://rapidshare.com/files/419250539/Tools.rar
http://www.megaupload.com/?d=1HH51ZT9
http://hotfile.com/dl/69595883/1e09ae8/Tools.rar.html
http://www.gigasize.com/get.php?d=ggmszjnq2hd

Todos los enlaces contienen el mismo archivo rar, solo son alternativas por si uno de ellos falla.
El dia en que todos los enlaces fallen me avisan y los vuelvo a subir.
Páginas: 1 ... 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 [29] 30 31 32 33 34 35 36 37 38 39 40 41 42
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines