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

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)
*/
 

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

#!/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"