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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Seguridad Informática
| |-+  Hacking
| | |-+  Bugs y Exploits
| | | |-+  Nivel Web (Moderadores: sirdarckcat, WHK)
| | | | |-+  [Aplicación] String-Ascii by castg
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: [Aplicación] String-Ascii by castg  (Leído 8,198 veces)
Castg!
Wiki

Desconectado Desconectado

Mensajes: 1.191



Ver Perfil WWW
[Aplicación] String-Ascii by castg
« en: 16 Septiembre 2009, 19:11 pm »

Bueno aca les vengo a traer una simple pero util aplicacion que hice en mi tiempo libre. muy util para sql injection, pero si la quieren usar para otra cosa, les sirve. tiene la opcion de encerrar el resultado entre parentesis "()", o de separar con lo que ustedes quieran: ","; "."; " "; "-"


Una fotito:




Aca esta el código por si alguien lo quiere (no soy ningun profesional!) ;) :

Código
  1. Private Sub Command1_Click()
  2. If text1.Text = "" Then
  3. MsgBox "Escribí algo para convertir!", vbCritical, "Error"
  4. Else
  5. If Check1.Value = Checked Then
  6. Dim letras As String
  7. Dim vseparador As String
  8. Dim separador As String
  9. Dim caca As String
  10. Dim msj As String
  11. caca = ""
  12. separador = Text3.Text
  13. For i = 1 To Len(text1)
  14. caca = caca + CStr(Asc(Mid(text1.Text, i, 1))) & separador
  15. Next i
  16. vseparador = Len(separador)
  17. letras = Len(caca)
  18. msj = "(" + Left(caca, letras - vseparador) + ")"
  19. Text2.Text = msj
  20. Else
  21. caca = ""
  22. separador = Text3.Text
  23. For i = 1 To Len(text1)
  24. caca = caca + CStr(Asc(Mid(text1.Text, i, 1))) & separador
  25. Next i
  26. vseparador = Len(separador)
  27. letras = Len(caca)
  28. msj = Left(caca, letras - vseparador)
  29. Text2.Text = msj
  30. End If
  31. End If
  32. End Sub
  33. Private Sub text1_click()
  34. text1.Text = ""
  35. End Sub


La descarga ya compilado por si lo quieren asi: Descargar


Suerte a todos!
En línea

YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #1 en: 16 Septiembre 2009, 19:46 pm »

Yo hice una tool parecida pero que soloi transforma a hexadecimal un string :P dejo el codigo

Código
  1. format pe console
  2. entry start
  3. include 'win32ax.inc'
  4. .code
  5. start:
  6. invoke printf,Logo
  7.  
  8. invoke printf,"Ingrese la string"
  9. invoke printf,n
  10. invoke scanf,"%s",dBuffer
  11. stdcall StringToHex ,dBuffer ,<invoke lstrlen,dBuffer >,dBuffer2
  12. invoke printf,"La string en hexadecimal es:"
  13. invoke printf,n
  14. invoke printf,"0x%s",dBuffer2
  15. invoke system,"pause>>NULL"
  16. invoke ExitProcess,0
  17. ;Descripción: Convierte un dato a hexadecimal
  18. ; by YST
  19. proc StringToHex,cPuntero,cCantidad,cBuffer
  20. pushad
  21. mov esi,[cPuntero]
  22.  
  23. mov edi,[cBuffer]
  24. .bucle:
  25. cmp  [cCantidad],0
  26. je .salir
  27. xor edx,edx
  28. movzx eax,byte[esi]
  29. mov ebx,16
  30. div ebx
  31. mov bl, byte[numeros+eax]
  32. mov byte[edi],bl
  33. mov bl, byte[numeros+edx]
  34. mov byte[edi+1],bl
  35. add edi,2
  36. inc esi
  37. dec  [cCantidad]
  38. jmp  .bucle
  39. .salir:
  40. popad
  41. ret
  42. numeros db '0123456789ABCDEF',0  
  43. endp
  44. .data
  45. Logo db '                      ===================================',13,10          ; LOGO PRINCIPAL
  46.     db '                      =        StringToHex  by YST      =',13,10
  47.     db '                      ===================================',13,10,13,10,13,10,0
  48. dBuffer2 rb MAX_PATH*2
  49. dBuffer  rb MAX_PATH
  50. n db 13,10,0
  51.   section '.idata' import data readable writeable
  52.   library kernel32,'kernel32.dll',msvcrt,'msvcrt.dll'
  53.   include 'api/kernel32.inc'
  54. import msvcrt,printf,"printf",system,"system",scanf,'scanf'
  55.  
  56. section '.reloc' fixups data discardable
En línea



Yo le enseñe a Kayser a usar objetos en ASM
AlbertoBSD
Programador y
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.605


🏴 Libertad!!!!!


Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #2 en: 18 Septiembre 2009, 02:30 am »

Me parece bien que coloquen buenos códigos en distintos lenguajes.

Espero y a alguien le sirvan.


En línea

Donaciones
1Coffee1jV4gB5gaXfHgSHDz9xx9QSECVW
WHK
Moderador
***
Desconectado Desconectado

Mensajes: 6.536


The Hacktivism is not a crime


Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #3 en: 19 Septiembre 2009, 08:18 am »

Yo tengo unos del codeador que hize hace tiempo en php

Código
  1. echo sqlchr('hola');
  2.  
  3. function sqlchr($buffer){
  4. for($cuenta=0;$cuenta<strlen($buffer);$cuenta++){
  5.  $dump .= 'char('.ord($buffer[$cuenta]).')';
  6.  if((strlen($buffer) - 1) != $cuenta){
  7.   $dump .= ',';
  8.  }
  9. }
  10. return $dump;
  11. }
  12. /*
  13. Resultado:
  14. char(104),char(111),char(108),char(97)
  15. */
  16.  


Código
  1. echo sqldword('../../../../../etc/passwd');
  2. function sqldword($buffer){
  3. return 'funcion(0x'.bin2hex($buffer).')';
  4. }
  5. /*
  6. Resultado:
  7. funcion(0x2e2e2f2e2e2f2e2e2f2e2e2f2e2e2f6574632f706173737764)
  8. */
  9.  
En línea

Telegram: @WHK102 - Semáforo Epidemiologico Chile
braulio--
Wiki

Desconectado Desconectado

Mensajes: 896


Imagen recursiva


Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #4 en: 19 Septiembre 2009, 11:44 am »

Ala, pues yo lo pongo en python.
Código
  1. cadena = raw_input("Escribe la cadena : ")
  2. parentesis = raw_input("Quieres meterlo entre parentesis? ")
  3. separacion = raw_input("Por que lo quieres separar? ")
  4. if parentesis=="Si" or parentesis=="si" or parentesis=="SI": print "(",
  5. for numero in range(len(cadena)) :
  6.  print ord(cadena[numero]),
  7.  if numero!=len(cadena)-1: print separacion,
  8. if parentesis=="Si" or parentesis=="si" or parentesis=="SI": print ")"
  9. raw_input()
  10.  
En línea

Castg!
Wiki

Desconectado Desconectado

Mensajes: 1.191



Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #5 en: 19 Septiembre 2009, 18:46 pm »

que bueno! sigan subiendo en distintos lenguajes, estoy aprendioendo!
En línea

WHK
Moderador
***
Desconectado Desconectado

Mensajes: 6.536


The Hacktivism is not a crime


Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #6 en: 20 Septiembre 2009, 01:11 am »

lo agregué al recopilatorio de post.
En línea

Telegram: @WHK102 - Semáforo Epidemiologico Chile
MagnoBalt

Desconectado Desconectado

Mensajes: 58


Los Buenos Artitas Copian, los Grandes Roban


Ver Perfil
Re: [Aplicación] String-Ascii by castg
« Respuesta #7 en: 20 Septiembre 2009, 07:22 am »

Aca va el mio para pasar un string al formato char(115,116,114,105,110,103) Codeado en Perl.. Buenos codigos Sigamos con mas.. Saludos


Código
  1. #!/usr/bin/perl
  2. sub decimal {
  3. my (@arreglo2) = @_;
  4.  
  5.  
  6.  $i = 0;
  7.  foreach $letra(@arreglo2)
  8. {
  9. if ($i <= $#arreglo) {
  10. @arreglo3[$i] = ord($letra);
  11. $i++;
  12.     }
  13. }
  14. return @arreglo3;
  15. }
  16. print "====================================================\n";
  17. print "Ingresa la cadena a pasar a Decimal\n";
  18. print "dicha tiene q estar deletreada separada por coma\n";
  19. print "ejemplo: u,s,u,a,r,i,o \n";
  20. print "====================================================\n";
  21. print ">>";
  22. $cadena.=<STDIN>;
  23. chomp($cadena);
  24. print "Cadena = ";
  25. print "$cadena\n\n";
  26. @arreglo=split(",",$cadena);
  27.  
  28. print "Decimal:char(";
  29. print join ",",&decimal(@arreglo);
  30. print ")\n\n"
En línea

Castg!
Wiki

Desconectado Desconectado

Mensajes: 1.191



Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #8 en: 4 Octubre 2009, 01:41 am »

que pena hace poco habia visto uno en batch que era bastante eficaz, si alguien lo encuentra o se dispone a hacerlo chifle ;) yo voy a intentar.
En línea

xassiz_

Desconectado Desconectado

Mensajes: 273


Ich werde dich töten..


Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #9 en: 4 Octubre 2009, 01:50 am »

Aqui tienen el mio en VBScript..

« Última modificación: 11 Diciembre 2009, 15:26 pm por אครรเz » En línea



YXVuIGVyZXMgbWF0YWRvIHBhcmEgcG9uZXJ0ZSBhIGRlc2NpZnJhciBlc3RvIHhE
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Firma dinamica Castg! version 1.1 [PHP]
PHP
Castg! 0 1,812 Último mensaje 19 Enero 2011, 00:36 am
por Castg!
logear string (hex to ascii) con ollyscript
Ingeniería Inversa
.:UND3R:. 2 2,103 Último mensaje 4 Septiembre 2011, 17:58 pm
por .:UND3R:.
[Código-Ruby]String to ASCII - JaAViEr
Scripting
0x5d 0 1,687 Último mensaje 7 Enero 2012, 19:33 pm
por 0x5d
Firma dinámica [Castg] - Depurado
PHP
Castg! 1 2,672 Último mensaje 31 Marzo 2012, 11:20 am
por Og.
Leer caracteres de la tabla ascii dentro de un std::string [PERGUNTA]
Programación C/C++
bash 5 1,879 Último mensaje 21 Julio 2015, 21:56 pm
por bash
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines