Mensajes

a ver, que es precisamente lo que quieres?

ahhh, OK. de verdad es mas corto tan solo 8 lineas en vez de 13.
gracias por el code.      

ya lo solucione. lo estaba escribiendo mal, lo solucione con while.

tenias razón, gracias.

Código (python) [Seleccionar] Expandir


import ctypes
SetCursorPos = ctypes.windll.user32.SetCursorPos
mouse_event = ctypes.windll.user32.mouse_event

def left_click(x, y, clicks=1):

  SetCursorPos(x, y)
  for i in xrange(clicks):
   mouse_event(2, 0, 0, 0, 0)
   mouse_event(4, 0, 0, 0, 0)

while 1==1:
    left_click(000, 900) #left clicks at 200, 200 on your screen. Was able to send 10k clicks instantly.


listo solo tienes que colocar el signo ^  para que te reconozca el = como texto.

asi:

Código (bash) [Seleccionar] Expandir


@echo off
setlocal enabledelayedexpansion
for /f "tokens=* delims=" %%x in ('type texto.txt') do (
set linea=%%x
set linea=!linea:Perl=^=ht!
call :show !linea!
)
goto:eof
:show
echo %* >> out.txt
goto:eof

prueba el code a ver si es lo que quieres.

no capto muy bien tu idea de lo que quieres.

pero tal vez esto te ayude a crear el escript:

http://foro.elhacker.net/scripting/acciones_sobre_archivos_de_texto_batch-t242748.0.html

no me funciona.   

básicamente lo que quiero es hacer que ese código se ejecute infinitamente, pero
no logro hacerlo. 

ya lo he intentado con while True: pero nada.

Hola a todos los de el foro.

la duda es como podría hacer un bucle a este code para que se ejecute infinitas veces.

Código (python) [Seleccionar] Expandir


import ctypes

SetCursorPos = ctypes.windll.user32.SetCursorPos
mouse_event = ctypes.windll.user32.mouse_event

def left_click(x, y, clicks=1):

  SetCursorPos(x, y)
  for i in xrange(clicks):
   mouse_event(2, 0, 0, 0, 0)
   mouse_event(4, 0, 0, 0, 0)

left_click(000, 900) #left clicks at 200, 200 on your screen. Was able to send 10k clicks instantly.


Estuve intentando con For y While , pero no logro como hacerlo.

Tienen razón me equivoque, es Ofuscador.  

                                                      comenten sus opiniones plis.        

Hola a todos los de el foro, les traigo un pequeño en criptador de código fuente
de batch.

ES una herramienta Comand line  espero que les sirva.

LINK DE LA HERRAMIENTA:

https://mega.nz/#!1180RYjT!Dt7Rxl5pU69fO8soIF5iineUJAi9L6Ez95OOG7yDf6o

Code del programa:

Código (bash) [Seleccionar] Expandir


@echo off
title batcrypt v0.1
color a
Rem Bat_Crypt=batcrypt
Rem BatOfuser v 2.1
Rem Ofusca tu codigo Batch y Ejecutalo
Rem script creado por Salvador F. Krilewski / S4Lsalsoft / Fisica 638
Rem funciona por linea de comandos

IF ["%~1"]==["-e"] goto o
IF ["%~1"]==["-E"] goto o
IF ["%~1"]==["-d"] goto d
IF ["%~1"]==["-D"] goto d
IF ["%~1"]==["-help"] goto help
IF ["%~1"]==["-HELP"] goto help
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³   Esta herramienta cifra un codigo de algun proyecto Batch ³
echo ³   Para luego ejecutarlo.                                      ³
echo ³                                                               ³
echo ³   Funcionamiento del script:                                  ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³   batcrypt -e "Ubicacion del bat" cifra el Bat             ³
echo ³                                                               ³
echo ³   Ejemplo:                                                    ³
echo ³   batcrypt -e "%userprofile%\Desktop\pto.bat"                  ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ        
echo ³   batcrypt -d "Ubicacion del bat" descifra un batch        ³
echo ³                                                               ³
echo ³   Ejemplo:                                                    ³  
echo ³   batcrypt -d "%userprofile%\Desktop\pto.bat"                  ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³                                                               ³
echo ³   Esta version tiene un bug, Porfavor no cifrar            ³
echo ³   palabras que esten dentro de el simbolo %% .                 ³
echo ³                                                               ³
echo ³  PARA MAS INFORMACION:                                        ³
echo ³                                                               ³
echo ³           batcrypt -help                                      ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
pause>NUL
goto mas
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:Charlist
Set "Alpha=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Set "Numeric=0123456789"
Set "Special=\|@#~!$%&/()=?<>;,.-_+*[]{}`'^^":
Set "Special_UTF8=...,¡¢£...ŠÖ•—µ,Öàé·ÔÞã뎉‹"šŽÓØ™š¤¥¦§ú¨­ï"
Rem Special_UTF8= áéíóú àèìòù ÁÉÍÓÚ ÀÈÌÒÙ äëïöü ÄËÏÖÜ ñ Ñ ª º · ¿ ¡ '
:o
set archivo="%~2"
cls
:sal
set p=set
set t=var
set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz%" "
echo @echo off >> "cifrado.bat"
echo %p% %t%^=%resultado% >> "cifrado.bat"
goto :Ofuscador

:::::::::::::::::
:Ofuscador
:::::::::::::::::

:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)

:Leer_Ofuscador
If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)

For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
   Echo: Ofuscando: "%%a"
   Set /A Linea+=1
   Set "String=%%a"
   If not defined string (Goto :Leer_Ofuscador)
   Echo %%a>"%TEMP%\String.tmp"
   FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
   Goto :Ofuscar
)


:Ofuscar


If "%Count%" EQU "%Longitud%" (
   call :Write_Ofuscador
   Goto :Leer_Ofuscador)

::Comilladoble
Set "String=%String:"=€%"& rem "

::Espacio
If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")

::Alpha
If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")

::Numeric
If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%0")
If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%1")
If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%2")
If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%3")
If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%4")
If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%5")
If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%6")
If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%7")
If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%8")
If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%9")

::Special
If "%String:~0,1%" EQU "á" (Set "New_String=%New_String%^^á")
If "%String:~0,1%" EQU "é" (Set "New_String=%New_String%^^é")
If "%String:~0,1%" EQU "í" (Set "New_String=%New_String%^^í")
If "%String:~0,1%" EQU "ó" (Set "New_String=%New_String%^^ó")
If "%String:~0,1%" EQU "ú" (Set "New_String=%New_String%^^ú")
If "%String:~0,1%" EQU "à" (Set "New_String=%New_String%^^à")
If "%String:~0,1%" EQU "è" (Set "New_String=%New_String%^^è")
If "%String:~0,1%" EQU "ì" (Set "New_String=%New_String%^^ì")
If "%String:~0,1%" EQU "ò" (Set "New_String=%New_String%^^ò")
If "%String:~0,1%" EQU "ù" (Set "New_String=%New_String%^^ù")
If "%String:~0,1%" EQU "Á" (Set "New_String=%New_String%Á")
If "%String:~0,1%" EQU "É" (Set "New_String=%New_String%É")
If "%String:~0,1%" EQU "Í" (Set "New_String=%New_String%Í")
If "%String:~0,1%" EQU "Ó" (Set "New_String=%New_String%^^Ó")
If "%String:~0,1%" EQU "Ú" (Set "New_String=%New_String%^Ú")
If "%String:~0,1%" EQU "À" (Set "New_String=%New_String%^À")
If "%String:~0,1%" EQU "È" (Set "New_String=%New_String%^È")
If "%String:~0,1%" EQU "Ì" (Set "New_String=%New_String%^^Ì")
If "%String:~0,1%" EQU "Ò" (Set "New_String=%New_String%^^Ò")
If "%String:~0,1%" EQU "Ù" (Set "New_String=%New_String%^^Ù")
If "%String:~0,1%" EQU "ä" (Set "New_String=%New_String%^^ä")
If "%String:~0,1%" EQU "ë" (Set "New_String=%New_String%^^ë")
If "%String:~0,1%" EQU "ï" (Set "New_String=%New_String%^^ï")
If "%String:~0,1%" EQU "ö" (Set "New_String=%New_String%^^ö")
If "%String:~0,1%" EQU "ü" (Set "New_String=%New_String%^^ü")
If "%String:~0,1%" EQU "Ä" (Set "New_String=%New_String%^Ä")
If "%String:~0,1%" EQU "Ë" (Set "New_String=%New_String%^^Ë")
If "%String:~0,1%" EQU "Ï" (Set "New_String=%New_String%^^Ï")
If "%String:~0,1%" EQU "Ö" (Set "New_String=%New_String%^^Ö")
If "%String:~0,1%" EQU "Ü" (Set "New_String=%New_String%^^Ü")
If "%String:~0,1%" EQU "ñ" (Set "New_String=%New_String%^^ñ")
If "%String:~0,1%" EQU "Ñ" (Set "New_String=%New_String%^^Ñ")
If "%String:~0,1%" EQU "ª" (Set "New_String=%New_String%^^ª")
If "%String:~0,1%" EQU "º" (Set "New_String=%New_String%º")
If "%String:~0,1%" EQU "¿" (Set "New_String=%New_String%¿")
If "%String:~0,1%" EQU "´" (Set "New_String=%New_String%^^´")

If "%String:~0,1%" EQU "€" (Set "New_String=%New_String%€")
If "%String:~0,1%" EQU "\" (Set "New_String=%New_String%^\")
If "%String:~0,1%" EQU "|" (Set "New_String=%New_String%^|")
If "%String:~0,1%" EQU "@" (Set "New_String=%New_String%@")
If "%String:~0,1%" EQU "#" (Set "New_String=%New_String%#")
If "%String:~0,1%" EQU "~" (Set "New_String=%New_String%^~")
If "%String:~0,1%" EQU "!" (Set "New_String=%New_String%^!")
If "%String:~0,1%" EQU "$" (Set "New_String=%New_String%$")
If "%String:~0,1%" EQU "%%" (Set "New_String=%New_String%%%")
If "%String:~0,1%" EQU "&" (Set "New_String=%New_String%^&")
If "%String:~0,1%" EQU "/" (Set "New_String=%New_String%/")
If "%String:~0,1%" EQU "(" (Set "New_String=%New_String%(")
If "%String:~0,1%" EQU ")" (Set "New_String=%New_String%)")
If "%String:~0,1%" EQU "=" (Set "New_String=%New_String%=")
If "%String:~0,1%" EQU "?" (Set "New_String=%New_String%?")
If "%String:~0,1%" EQU "<" (Set "New_String=%New_String%^<")
If "%String:~0,1%" EQU ">" (Set "New_String=%New_String%^>")
If "%String:~0,1%" EQU ";" (Set "New_String=%New_String%;")
If "%String:~0,1%" EQU "," (Set "New_String=%New_String%,")
If "%String:~0,1%" EQU "." (Set "New_String=%New_String%.")
If "%String:~0,1%" EQU "-" (Set "New_String=%New_String%-")
If "%String:~0,1%" EQU "_" (Set "New_String=%New_String%_")
If "%String:~0,1%" EQU "+" (Set "New_String=%New_String%+")
If "%String:~0,1%" EQU "*" (Set "New_String=%New_String%*")
If "%String:~0,1%" EQU "[" (Set "New_String=%New_String%^[")
If "%String:~0,1%" EQU "]" (Set "New_String=%New_String%^]")
If "%String:~0,1%" EQU "{" (Set "New_String=%New_String%{")
If "%String:~0,1%" EQU "}" (Set "New_String=%New_String%}")
If "%String:~0,1%" EQU "`" (Set "New_String=%New_String%`")
If "%String:~0,1%" EQU "'" (Set "New_String=%New_String%'")
If "%String:~0,1%" EQU "^" (Set "New_String=%New_String%^^^")
If "%String:~0,1%" EQU ":" (Set "New_String=%New_String%:")

Set "String=%String:~1%"
Set /A Count+=1
Goto :Ofuscar

:Write_Ofuscador
Set "New_String=%New_String:€="%"& rem "
Echo %New_String%>>"cifrado.bat"
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "New_String="
Set "Count="
Goto :EOF

:Fin_Ofuscador
Echo REM By Salvafor F. Krilewski  >> "cifrado.bat"
Del /Q "%TEMP%\String.tmp"
Cls
echo Fin | More
pause
Exit


:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:d
set archivo="%~2"
cls
:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)


:Leer_Desofuscador
For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE /E +%Linea%') do (
   Set /A Linea+=1
   Set "String=%%a"
   Goto Desofuscar
)

:Desofuscar

::Alpha
Set "String=%String:var:~27,1=a%"
Set "String=%String:var:~28,1=b%"
Set "String=%String:var:~29,1=c%"
Set "String=%String:var:~30,1=d%"
Set "String=%String:var:~31,1=e%"
Set "String=%String:var:~32,1=f%"
Set "String=%String:var:~33,1=g%"
Set "String=%String:var:~34,1=h%"
Set "String=%String:var:~35,1=i%"
Set "String=%String:var:~36,1=j%"
Set "String=%String:var:~37,1=k%"
Set "String=%String:var:~38,1=l%"
Set "String=%String:var:~39,1=m%"
Set "String=%String:var:~40,1=n%"
Set "String=%String:var:~41,1=o%"
Set "String=%String:var:~42,1=p%"
Set "String=%String:var:~43,1=q%"
Set "String=%String:var:~44,1=r%"
Set "String=%String:var:~45,1=s%"
Set "String=%String:var:~46,1=t%"
Set "String=%String:var:~47,1=u%"
Set "String=%String:var:~48,1=v%"
Set "String=%String:var:~49,1=w%"
Set "String=%String:var:~50,1=x%"
Set "String=%String:var:~51,1=y%"
Set "String=%String:var:~52,1=z%"
Set "String=%String:var:~1,1=A%"
Set "String=%String:var:~2,1=B%"
Set "String=%String:var:~3,1=C%"
Set "String=%String:var:~4,1=D%"
Set "String=%String:var:~5,1=E%"
Set "String=%String:var:~6,1=F%"
Set "String=%String:var:~7,1=G%"
Set "String=%String:var:~8,1=H%"
Set "String=%String:var:~9,1=I%"
Set "String=%String:var:~10,1=J%"
Set "String=%String:var:~11,1=K%"
Set "String=%String:var:~12,1=L%"
Set "String=%String:var:~13,1=M%"
Set "String=%String:var:~14,1=N%"
Set "String=%String:var:~15,1=O%"
Set "String=%String:var:~16,1=P%"
Set "String=%String:var:~17,1=Q%"
Set "String=%String:var:~18,1=R%"
Set "String=%String:var:~19,1=S%"
Set "String=%String:var:~20,1=T%"
Set "String=%String:var:~21,1=U%"
Set "String=%String:var:~22,1=V%"
Set "String=%String:var:~23,1=W%"
Set "String=%String:var:~24,1=X%"
Set "String=%String:var:~25,1=Y%"
Set "String=%String:var:~26,1=Z%"

::Numeric
Set "String=%String:0=0%"
Set "String=%String:1=1%"
Set "String=%String:2=2%"
Set "String=%String:3=3%"
Set "String=%String:4=4%"
Set "String=%String:5=5%"
Set "String=%String:6=6%"
Set "String=%String:7=7%"
Set "String=%String:8=8%"
Set "String=%String:9=9%"

::Special_UTF8
Set "String=%String:Special_UTF8:~0,1=...%"
Set "String=%String:Special_UTF8:~1,1=,%"
Set "String=%String:Special_UTF8:~2,1=¡%"
Set "String=%String:Special_UTF8:~3,1=¢%"
Set "String=%String:Special_UTF8:~4,1=£%"
Set "String=%String:Special_UTF8:~5,1=...%"
Set "String=%String:Special_UTF8:~6,1=Š%"
Set "String=%String:Special_UTF8:~7,1=Ö%"
Set "String=%String:Special_UTF8:~8,1=•%"
Set "String=%String:Special_UTF8:~9,1=—%"
Set "String=%String:Special_UTF8:~10,1=µ%"
Set "String=%String:Special_UTF8:~11,1=,%"
Set "String=%String:Special_UTF8:~12,1=Ö%"
Set "String=%String:Special_UTF8:~13,1=à%"
Set "String=%String:Special_UTF8:~14,1=é%"
Set "String=%String:Special_UTF8:~15,1=·%"
Set "String=%String:Special_UTF8:~16,1=Ô%"
Set "String=%String:Special_UTF8:~17,1=Þ%"
Set "String=%String:Special_UTF8:~18,1=ã%"
Set "String=%String:Special_UTF8:~19,1=ë%"
Set "String=%String:Special_UTF8:~20,1=Ž%"
Set "String=%String:Special_UTF8:~21,1=‰%"
Set "String=%String:Special_UTF8:~22,1=‹%"
Set "String=%String:Special_UTF8:~23,1="%"
Set "String=%String:Special_UTF8:~24,1=š%"
Set "String=%String:Special_UTF8:~25,1=Ž%"
Set "String=%String:Special_UTF8:~26,1=Ó%"
Set "String=%String:Special_UTF8:~27,1=Ø%"
Set "String=%String:Special_UTF8:~28,1=™%"
Set "String=%String:Special_UTF8:~29,1=š%"
Set "String=%String:Special_UTF8:~30,1=¤%"
Set "String=%String:Special_UTF8:~31,1=¥%"
Set "String=%String:Special_UTF8:~32,1=^ª%"
Set "String=%String:Special_UTF8:~33,1=§%"
Set "String=%String:Special_UTF8:~34,1=^·%"
Set "String=%String:Special_UTF8:~35,1=¿%"
Set "String=%String:Special_UTF8:~36,1=­%"
Set "String=%String:Special_UTF8:~37,1=ï%"

::Special
Set "String=%String:Special:~0,1=^\%"
Set "String=%String:Special:~1,1=^|%"
Set "String=%String:Special:~2,1=@%"
Set "String=%String:Special:~3,1=#%"
Set "String=%String:Special:~4,1=^~%"
Set "String=%String:Special:~5,1=^^^!%"
Set "String=%String:Special:~6,1=$%"
Set "String=%String:Special:~7,1=€%"
Set "String=%String:Special:~8,1=^&%"
Set "String=%String:Special:~9,1=/%"
Set "String=%String:Special:~10,1=(%"
Set "String=%String:Special:~11,1=)%"
Set "String=%String:Special:~12,1==%"
Set "String=%String:Special:~13,1=?%"
Set "String=%String:Special:~14,1=^<%"
Set "String=%String:Special:~15,1=^>%"
Set "String=%String:Special:~16,1=;%"
Set "String=%String:Special:~17,1=,%"
Set "String=%String:Special:~18,1=.%"
Set "String=%String:Special:~19,1=-%"
Set "String=%String:Special:~20,1=_%"
Set "String=%String:Special:~21,1=+%"
Set "String=%String:Special:~22,1=*%"
Set "String=%String:Special:~23,1=^[%"
Set "String=%String:Special:~24,1=^]%"
Set "String=%String:Special:~25,1={%"
Set "String=%String:Special:~26,1=}%"
Set "String=%String:Special:~27,1=`%"
Set "String=%String:Special:~28,1='%"
Set "String=%String:Special:~29,1=^^^^%"
Set "String=%String:Special:~30,1=:%"


Echo string "%STRING%"
Call :Write_Desofuscador

:Write_Desofuscador

             Gracias Elektro me ayudaste. si me sirvió.