[Aplicación] String-Ascii by castg

[Castg!]

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 (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If text1.Text = "" Then
MsgBox "Escribí algo para convertir!", vbCritical, "Error"
Else
If Check1.Value = Checked Then
Dim letras As String
Dim vseparador As String
Dim separador As String
Dim caca As String
Dim msj As String
caca = ""
separador = Text3.Text
For i = 1 To Len(text1)
caca = caca + CStr(Asc(Mid(text1.Text, i, 1))) & separador
Next i
vseparador = Len(separador)
letras = Len(caca)
msj = "(" + Left(caca, letras - vseparador) + ")"
Text2.Text = msj
Else
caca = ""
separador = Text3.Text
For i = 1 To Len(text1)
caca = caca + CStr(Asc(Mid(text1.Text, i, 1))) & separador
Next i
vseparador = Len(separador)
letras = Len(caca)
msj = Left(caca, letras - vseparador)
Text2.Text = msj
End If
End If
End Sub
Private Sub text1_click()
text1.Text = ""
End Sub


La descarga ya compilado por si lo quieren asi: Descargar


Suerte a todos!

[YST]

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

Código (asm) [Seleccionar] Expandir


format pe console
entry start
include 'win32ax.inc'
.code
start:
invoke printf,Logo

invoke printf,"Ingrese la string"
invoke printf,n
invoke scanf,"%s",dBuffer
stdcall StringToHex ,dBuffer ,<invoke lstrlen,dBuffer >,dBuffer2
invoke printf,"La string en hexadecimal es:"
invoke printf,n
invoke printf,"0x%s",dBuffer2
invoke system,"pause>>NULL"
invoke ExitProcess,0
;Descripción: Convierte un dato a hexadecimal
; by YST
proc StringToHex,cPuntero,cCantidad,cBuffer
pushad
mov esi,[cPuntero]

mov edi,[cBuffer]
.bucle:
cmp  [cCantidad],0
je .salir
xor edx,edx
movzx eax,byte[esi]
mov ebx,16
div ebx
mov bl, byte[numeros+eax]
mov byte[edi],bl
mov bl, byte[numeros+edx]
mov byte[edi+1],bl
add edi,2
inc esi
dec  [cCantidad]
jmp  .bucle
.salir:
popad
ret
numeros db '0123456789ABCDEF',0 
endp
.data
Logo db '                      ===================================',13,10          ; LOGO PRINCIPAL
     db '                      =        StringToHex  by YST      =',13,10
     db '                      ===================================',13,10,13,10,13,10,0
dBuffer2 rb MAX_PATH*2
dBuffer  rb MAX_PATH
n db 13,10,0
   section '.idata' import data readable writeable
   library kernel32,'kernel32.dll',msvcrt,'msvcrt.dll'
   include 'api/kernel32.inc'
import msvcrt,printf,"printf",system,"system",scanf,'scanf'

section '.reloc' fixups data discardable

[AlbertoBSD]

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

Espero y a alguien le sirvan.

[WHK]

Yo tengo unos del codeador que hize hace tiempo en php

Código (php) [Seleccionar] Expandir


echo sqlchr('hola');

function sqlchr($buffer){
for($cuenta=0;$cuenta<strlen($buffer);$cuenta++){
  $dump .= 'char('.ord($buffer[$cuenta]).')';
  if((strlen($buffer) - 1) != $cuenta){
   $dump .= ',';
  }
}
return $dump;
}
/*
Resultado:
char(104),char(111),char(108),char(97)
*/


Código (php) [Seleccionar] Expandir


echo sqldword('../../../../../etc/passwd');
function sqldword($buffer){
return 'funcion(0x'.bin2hex($buffer).')';
}
/*
Resultado:
funcion(0x2e2e2f2e2e2f2e2e2f2e2e2f2e2e2f6574632f706173737764)
*/


[braulio--]

Ala, pues yo lo pongo en python.

Código (python) [Seleccionar] Expandir


cadena = raw_input("Escribe la cadena : ")
parentesis = raw_input("Quieres meterlo entre parentesis? ")
separacion = raw_input("Por que lo quieres separar? ")
if parentesis=="Si" or parentesis=="si" or parentesis=="SI": print "(",
for numero in range(len(cadena)) :
  print ord(cadena[numero]),
  if numero!=len(cadena)-1: print separacion,
if parentesis=="Si" or parentesis=="si" or parentesis=="SI": print ")"
raw_input()


[Castg!]

que bueno! sigan subiendo en distintos lenguajes, estoy aprendioendo!

[WHK]

lo agregué al recopilatorio de post.

[MagnoBalt]

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 (perl) [Seleccionar] Expandir

#!/usr/bin/perl
sub decimal {
my (@arreglo2) = @_;


  $i = 0;
  foreach $letra(@arreglo2)
{
if ($i <= $#arreglo) {
@arreglo3[$i] = ord($letra);
$i++;
     }
}
return @arreglo3;
}
print "====================================================\n";
print "Ingresa la cadena a pasar a Decimal\n";
print "dicha tiene q estar deletreada separada por coma\n";
print "ejemplo: u,s,u,a,r,i,o \n";
print "====================================================\n";
print ">>";
$cadena.=<STDIN>;
chomp($cadena);
print "Cadena = ";
print "$cadena\n\n";
@arreglo=split(",",$cadena);

print "Decimal:char(";
print join ",",&decimal(@arreglo);
print ")\n\n"

[Castg!]

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.

[xassiz_]

Aqui tienen el mio en VBScript..