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

 

 


Tema destacado: Tutorial básico de Quickjs


+  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 9,551 veces)
Castg!
Wiki

Desconectado Desconectado

Mensajes: 1.191



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

Lo encontre! lo modifique y cambie bastantes cosas, no es 100% batch pero sirve igual :D
Código
  1. @echo off
  2. title String-Ascii Converter
  3. setlocal enabledelayedexpansion
  4.  
  5. if not exist "ascii.exe" (call :ascii)
  6.  
  7. :init
  8. cls
  9. set /p sentence="Inserte la cadena a convertir > "
  10. call :split "%sentence%"
  11. echo Cadena: %sentence%
  12. echo Ascii:  (%result:~1%)
  13. echo Quiere dejarlo en un archivo de texto? (S/N)
  14. set /p resp2=
  15. if %resp2%==S (call :save)
  16. if %resp2%==s (call :save)
  17. if %resp2%==n (call :dsp)
  18. if %resp2%==N (call :dsp)
  19. goto :dsp
  20.  
  21. :save
  22. echo. >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
  23. echo Cadena: %sentence% >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
  24. echo Ascii:  (%result:~1%) >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
  25. cls
  26. echo Se ha creado un archivo en el escritorio con el nombre de "String-Ascii"
  27.  
  28. :split
  29. set target=%~1
  30. call :string "%target%"
  31. for /l %%a in (0,1,%len%) do (
  32. call :toascii "%%target:~%%a,1%%"
  33. set result=!result!,!ascii!)
  34. goto :eof
  35.  
  36. :string
  37. set string=%~1
  38. :string2
  39. set /a length+=1
  40. set /a len=%length%-1
  41. set string=%string:~1%
  42. if "%string%"=="" goto :eof
  43. goto :string2
  44.  
  45. :toascii
  46. (
  47. echo %~1
  48. )|ascii.exe
  49. set ascii=%errorlevel%
  50. goto :eof
  51.  
  52. :ascii
  53. (
  54. echo n ascii.dat
  55. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  56. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  57. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  58. echo rcx
  59. echo 002E
  60. echo w0
  61. )>ascii.dat
  62. type ascii.dat|debug>NUL 2>&1
  63. del /f/q/a "ascii.exe">NUL 2>&1
  64. ren ascii.dat "ascii.exe"
  65. goto :eof
  66.  
  67. :dsp
  68. cls
  69. echo Inserte:
  70. echo 1 para volver al conversor.
  71. echo 2 para salir.
  72. set /p resp="> "
  73. if %resp%==1 (call :init)
  74. if %resp%==2 (exit)
En línea

WHK
Moderador Global
***
Desconectado Desconectado

Mensajes: 6.589


Sin conocimiento no hay espíritu


Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #11 en: 28 Octubre 2009, 22:30 pm »

En gif:
http://www.elhacker.net/ascii.gif

En línea

Castg!
Wiki

Desconectado Desconectado

Mensajes: 1.191



Ver Perfil WWW
Re: [Aplicación] String-Ascii by castg
« Respuesta #12 en: 29 Octubre 2009, 00:12 am »

yo lo pongo en bmp : xD!
En línea

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 2,391 Último mensaje 19 Enero 2011, 00:36 am
por Castg!
logear string (hex to ascii) con ollyscript
Ingeniería Inversa
.:UND3R:. 2 2,939 Último mensaje 4 Septiembre 2011, 17:58 pm
por .:UND3R:.
[Código-Ruby]String to ASCII - JaAViEr
Scripting
0x5d 0 2,328 Último mensaje 7 Enero 2012, 19:33 pm
por 0x5d
Firma dinámica [Castg] - Depurado
PHP
Castg! 1 3,824 Ú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 2,980 Último mensaje 21 Julio 2015, 21:56 pm
por bash
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines