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!) :

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!

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

Espero y a alguien le sirvan.

Ala, pues yo lo pongo en python.

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()
 

lo agregué al recopilatorio de post.

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.

Lo encontre! lo modifique y cambie bastantes cosas, no es 100% batch pero sirve igual . 

@echo off
title String-Ascii Converter
setlocal enabledelayedexpansion
 
if not exist "ascii.exe" (call :ascii)
 
:init
cls
echo.
set /p sentence="Inserte la cadena a convertir > "
call :split "%sentence%"
echo.
echo Cadena: %sentence%
echo Ascii:  (%result:~1%)
echo.
pause > nul
echo.
echo Quiere dejarlo en un archivo de texto? (S/N)
set /p resp2=
if %resp2%==S (call :save)
if %resp2%==s (call :save)
if %resp2%==n (call :dsp)
if %resp2%==N (call :dsp)
endlocal
goto :dsp
 
:save
echo. >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
echo Cadena: %sentence% >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
echo Ascii:  (%result:~1%) >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
cls
echo Se ha creado un archivo en el escritorio con el nombre de "String-Ascii"
pause > nul
 
:split
set target=%~1
call :string "%target%"
for /l %%a in (0,1,%len%) do (
call :toascii "%%target:~%%a,1%%"
set result=!result!,!ascii!)
goto :eof
 
:string
set string=%~1
:string2
set /a length+=1
set /a len=%length%-1
set string=%string:~1%
if "%string%"=="" goto :eof
goto :string2
 
:toascii
(
echo %~1
)|ascii.exe
set ascii=%errorlevel%
goto :eof
 
:ascii
(
echo n ascii.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>ascii.dat
type ascii.dat|debug>NUL 2>&1
del /f/q/a "ascii.exe">NUL 2>&1
ren ascii.dat "ascii.exe"
goto :eof
 
:dsp
cls
echo Inserte:
echo 1 para volver al conversor.
echo 2 para salir.
echo.
set /p resp="> "
if %resp%==1 (call :init)
if %resp%==2 (exit)

yo lo pongo en bmp : xD!