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

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo )		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo )  (Leído 4,158 veces)
**Aincrad**


Conectado Conectado

Mensajes: 683



Ver Perfil WWW
[BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo )
« en: 14 Septiembre 2017, 16:22 pm »
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
  1. @echo off
  2. title batcrypt v0.1
  3. color a
  4. Rem Bat_Crypt=batcrypt
  5. Rem BatOfuser v 2.1
  6. Rem Ofusca tu codigo Batch y Ejecutalo
  7. Rem script creado por Salvador F. Krilewski / S4Lsalsoft / Fisica 638 
  8. Rem funciona por linea de comandos
  9. 
  10. IF ["%~1"]==["-e"] goto o
  11. IF ["%~1"]==["-E"] goto o
  12. IF ["%~1"]==["-d"] goto d
  13. IF ["%~1"]==["-D"] goto d
  14. IF ["%~1"]==["-help"] goto help
  15. IF ["%~1"]==["-HELP"] goto help
  16. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  17. echo ³   Esta herramienta cifra un codigo de algun proyecto Batch ³
  18. echo ³   Para luego ejecutarlo.                                      ³
  19. echo ³                                                               ³
  20. echo ³   Funcionamiento del script:                                  ³
  21. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  22. echo ³   batcrypt -e "Ubicacion del bat" cifra el Bat             ³
  23. echo ³                                                               ³
  24. echo ³   Ejemplo:                                                    ³
  25. echo ³   batcrypt -e "%userprofile%\Desktop\pto.bat"                  ³
  26. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ        
  27. echo ³   batcrypt -d "Ubicacion del bat" descifra un batch        ³
  28. echo ³                                                               ³
  29. echo ³   Ejemplo:                                                    ³  
  30. echo ³   batcrypt -d "%userprofile%\Desktop\pto.bat"                  ³
  31. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  32. echo ³                                                               ³
  33. echo ³   Esta version tiene un bug, Porfavor no cifrar            ³ 
  34. echo ³   palabras que esten dentro de el simbolo %% .                 ³
  35. echo ³                                                               ³
  36. echo ³  PARA MAS INFORMACION:                                        ³
  37. echo ³                                                               ³
  38. echo ³           batcrypt -help                                      ³
  39. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
  40. pause>NUL 
  41. goto mas
  42. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  43. :Charlist
  44. Set "Alpha=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  45. Set "Numeric=0123456789"
  46. Set "Special=\|@#~!$%&/()=?<>;,.-_+*[]{}`'^^":
  47. Set "Special_UTF8=…‚¡¢£…ŠÖ•—µ‚Öàé·ÔÞã뎉‹”šŽÓØ™š¤¥¦§ú¨­ï"
  48. Rem Special_UTF8= áéíóú àèìòù ÁÉÍÓÚ ÀÈÌÒÙ äëïöü ÄËÏÖÜ ñ Ñ ª º · ¿ ¡ '
  49. :o
  50. set archivo="%~2"
  51. cls
  52. :sal
  53. set p=set
  54. set t=var
  55. set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz%" "
  56. echo @echo off >> "cifrado.bat"
  57. echo %p% %t%^=%resultado% >> "cifrado.bat"
  58. goto :Ofuscador
  59.  
  60. :::::::::::::::::
  61. :Ofuscador
  62. :::::::::::::::::
  63.  
  64. :Lineas
  65. Set Linea=0
  66. For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)
  67.  
  68. :Leer_Ofuscador
  69. If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)
  70.  
  71. For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
  72.     Echo: Ofuscando: "%%a"
  73.     Set /A Linea+=1
  74.     Set "String=%%a"
  75.     If not defined string (Goto :Leer_Ofuscador)
  76.     Echo %%a>"%TEMP%\String.tmp"
  77.     FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
  78.     Goto :Ofuscar
  79. )
  80.  
  81.  
  82. :Ofuscar
  83.  
  84.  
  85. If "%Count%" EQU "%Longitud%" (
  86.     call :Write_Ofuscador
  87.     Goto :Leer_Ofuscador)
  88.  
  89. ::Comilladoble
  90. Set "String=%String:"=€%"& rem "
  91.  
  92. ::Espacio
  93. If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")
  94.  
  95. ::Alpha
  96. If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
  97. If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
  98. If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
  99. If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
  100. If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
  101. If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
  102. If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
  103. If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
  104. If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
  105. If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
  106. If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
  107. If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
  108. If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
  109. If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
  110. If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
  111. If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
  112. If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
  113. If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
  114. If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
  115. If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
  116. If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
  117. If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
  118. If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
  119. If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
  120. If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
  121. If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
  122. If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
  123. If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
  124. If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
  125. If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
  126. If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
  127. If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
  128. If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
  129. If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
  130. If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
  131. If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
  132. If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
  133. If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
  134. If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
  135. If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
  136. If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
  137. If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
  138. If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
  139. If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
  140. If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
  141. If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
  142. If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
  143. If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
  144. If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
  145. If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
  146. If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
  147. If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")
  148.  
  149. ::Numeric
  150. If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%0")
  151. If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%1")
  152. If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%2")
  153. If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%3")
  154. If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%4")
  155. If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%5")
  156. If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%6")
  157. If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%7")
  158. If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%8")
  159. If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%9")
  160.  
  161. ::Special
  162. If "%String:~0,1%" EQU "á" (Set "New_String=%New_String%^^á")
  163. If "%String:~0,1%" EQU "é" (Set "New_String=%New_String%^^é")
  164. If "%String:~0,1%" EQU "í" (Set "New_String=%New_String%^^í")
  165. If "%String:~0,1%" EQU "ó" (Set "New_String=%New_String%^^ó")
  166. If "%String:~0,1%" EQU "ú" (Set "New_String=%New_String%^^ú")
  167. If "%String:~0,1%" EQU "à" (Set "New_String=%New_String%^^à")
  168. If "%String:~0,1%" EQU "è" (Set "New_String=%New_String%^^è")
  169. If "%String:~0,1%" EQU "ì" (Set "New_String=%New_String%^^ì")
  170. If "%String:~0,1%" EQU "ò" (Set "New_String=%New_String%^^ò")
  171. If "%String:~0,1%" EQU "ù" (Set "New_String=%New_String%^^ù")
  172. If "%String:~0,1%" EQU "Á" (Set "New_String=%New_String%Á")
  173. If "%String:~0,1%" EQU "É" (Set "New_String=%New_String%É")
  174. If "%String:~0,1%" EQU "Í" (Set "New_String=%New_String%Í")
  175. If "%String:~0,1%" EQU "Ó" (Set "New_String=%New_String%^^Ó")
  176. If "%String:~0,1%" EQU "Ú" (Set "New_String=%New_String%^Ú")
  177. If "%String:~0,1%" EQU "À" (Set "New_String=%New_String%^À")
  178. If "%String:~0,1%" EQU "È" (Set "New_String=%New_String%^È")
  179. If "%String:~0,1%" EQU "Ì" (Set "New_String=%New_String%^^Ì")
  180. If "%String:~0,1%" EQU "Ò" (Set "New_String=%New_String%^^Ò")
  181. If "%String:~0,1%" EQU "Ù" (Set "New_String=%New_String%^^Ù")
  182. If "%String:~0,1%" EQU "ä" (Set "New_String=%New_String%^^ä")
  183. If "%String:~0,1%" EQU "ë" (Set "New_String=%New_String%^^ë")
  184. If "%String:~0,1%" EQU "ï" (Set "New_String=%New_String%^^ï")
  185. If "%String:~0,1%" EQU "ö" (Set "New_String=%New_String%^^ö")
  186. If "%String:~0,1%" EQU "ü" (Set "New_String=%New_String%^^ü")
  187. If "%String:~0,1%" EQU "Ä" (Set "New_String=%New_String%^Ä")
  188. If "%String:~0,1%" EQU "Ë" (Set "New_String=%New_String%^^Ë")
  189. If "%String:~0,1%" EQU "Ï" (Set "New_String=%New_String%^^Ï")
  190. If "%String:~0,1%" EQU "Ö" (Set "New_String=%New_String%^^Ö")
  191. If "%String:~0,1%" EQU "Ü" (Set "New_String=%New_String%^^Ü")
  192. If "%String:~0,1%" EQU "ñ" (Set "New_String=%New_String%^^ñ")
  193. If "%String:~0,1%" EQU "Ñ" (Set "New_String=%New_String%^^Ñ")
  194. If "%String:~0,1%" EQU "ª" (Set "New_String=%New_String%^^ª")
  195. If "%String:~0,1%" EQU "º" (Set "New_String=%New_String%º")
  196. If "%String:~0,1%" EQU "¿" (Set "New_String=%New_String%¿")
  197. If "%String:~0,1%" EQU "´" (Set "New_String=%New_String%^^´")
  198.  
  199. If "%String:~0,1%" EQU "€" (Set "New_String=%New_String%€")
  200. If "%String:~0,1%" EQU "\" (Set "New_String=%New_String%^\")
  201. If "%String:~0,1%" EQU "|" (Set "New_String=%New_String%^|")
  202. If "%String:~0,1%" EQU "@" (Set "New_String=%New_String%@")
  203. If "%String:~0,1%" EQU "#" (Set "New_String=%New_String%#")
  204. If "%String:~0,1%" EQU "~" (Set "New_String=%New_String%^~")
  205. If "%String:~0,1%" EQU "!" (Set "New_String=%New_String%^!")
  206. If "%String:~0,1%" EQU "$" (Set "New_String=%New_String%$")
  207. If "%String:~0,1%" EQU "%%" (Set "New_String=%New_String%%%")
  208. If "%String:~0,1%" EQU "&" (Set "New_String=%New_String%^&")
  209. If "%String:~0,1%" EQU "/" (Set "New_String=%New_String%/")
  210. If "%String:~0,1%" EQU "(" (Set "New_String=%New_String%(")
  211. If "%String:~0,1%" EQU ")" (Set "New_String=%New_String%)")
  212. If "%String:~0,1%" EQU "=" (Set "New_String=%New_String%=")
  213. If "%String:~0,1%" EQU "?" (Set "New_String=%New_String%?")
  214. If "%String:~0,1%" EQU "<" (Set "New_String=%New_String%^<")
  215. If "%String:~0,1%" EQU ">" (Set "New_String=%New_String%^>")
  216. If "%String:~0,1%" EQU ";" (Set "New_String=%New_String%;")
  217. If "%String:~0,1%" EQU "," (Set "New_String=%New_String%,")
  218. If "%String:~0,1%" EQU "." (Set "New_String=%New_String%.")
  219. If "%String:~0,1%" EQU "-" (Set "New_String=%New_String%-")
  220. If "%String:~0,1%" EQU "_" (Set "New_String=%New_String%_")
  221. If "%String:~0,1%" EQU "+" (Set "New_String=%New_String%+")
  222. If "%String:~0,1%" EQU "*" (Set "New_String=%New_String%*")
  223. If "%String:~0,1%" EQU "[" (Set "New_String=%New_String%^[")
  224. If "%String:~0,1%" EQU "]" (Set "New_String=%New_String%^]")
  225. If "%String:~0,1%" EQU "{" (Set "New_String=%New_String%{")
  226. If "%String:~0,1%" EQU "}" (Set "New_String=%New_String%}")
  227. If "%String:~0,1%" EQU "`" (Set "New_String=%New_String%`")
  228. If "%String:~0,1%" EQU "'" (Set "New_String=%New_String%'")
  229. If "%String:~0,1%" EQU "^" (Set "New_String=%New_String%^^^")
  230. If "%String:~0,1%" EQU ":" (Set "New_String=%New_String%:")
  231.  
  232. Set "String=%String:~1%"
  233. Set /A Count+=1
  234. Goto :Ofuscar
  235.  
  236. :Write_Ofuscador
  237. Set "New_String=%New_String:€="%"& rem "
  238. Echo %New_String%>>"cifrado.bat"
  239. If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
  240. Set "New_String="
  241. Set "Count="
  242. Goto :EOF
  243.  
  244. :Fin_Ofuscador
  245. Echo REM By Salvafor F. Krilewski  >> "cifrado.bat"
  246. Del /Q "%TEMP%\String.tmp"
  247. Cls
  248. echo Fin | More
  249. pause
  250. Exit
  251.  
  252.  
  253. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  254. :d
  255. set archivo="%~2"
  256. cls
  257. :Lineas
  258. Set Linea=0
  259. For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)
  260.  
  261.  
  262. :Leer_Desofuscador
  263. For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE /E +%Linea%') do (
  264.     Set /A Linea+=1
  265.     Set "String=%%a"
  266.     Goto Desofuscar
  267. )
  268.  
  269. :Desofuscar
  270.  
  271. ::Alpha
  272. Set "String=%String:var:~27,1=a%"
  273. Set "String=%String:var:~28,1=b%"
  274. Set "String=%String:var:~29,1=c%"
  275. Set "String=%String:var:~30,1=d%"
  276. Set "String=%String:var:~31,1=e%"
  277. Set "String=%String:var:~32,1=f%"
  278. Set "String=%String:var:~33,1=g%"
  279. Set "String=%String:var:~34,1=h%"
  280. Set "String=%String:var:~35,1=i%"
  281. Set "String=%String:var:~36,1=j%"
  282. Set "String=%String:var:~37,1=k%"
  283. Set "String=%String:var:~38,1=l%"
  284. Set "String=%String:var:~39,1=m%"
  285. Set "String=%String:var:~40,1=n%"
  286. Set "String=%String:var:~41,1=o%"
  287. Set "String=%String:var:~42,1=p%"
  288. Set "String=%String:var:~43,1=q%"
  289. Set "String=%String:var:~44,1=r%"
  290. Set "String=%String:var:~45,1=s%"
  291. Set "String=%String:var:~46,1=t%"
  292. Set "String=%String:var:~47,1=u%"
  293. Set "String=%String:var:~48,1=v%"
  294. Set "String=%String:var:~49,1=w%"
  295. Set "String=%String:var:~50,1=x%"
  296. Set "String=%String:var:~51,1=y%"
  297. Set "String=%String:var:~52,1=z%"
  298. Set "String=%String:var:~1,1=A%"
  299. Set "String=%String:var:~2,1=B%"
  300. Set "String=%String:var:~3,1=C%"
  301. Set "String=%String:var:~4,1=D%"
  302. Set "String=%String:var:~5,1=E%"
  303. Set "String=%String:var:~6,1=F%"
  304. Set "String=%String:var:~7,1=G%"
  305. Set "String=%String:var:~8,1=H%"
  306. Set "String=%String:var:~9,1=I%"
  307. Set "String=%String:var:~10,1=J%"
  308. Set "String=%String:var:~11,1=K%"
  309. Set "String=%String:var:~12,1=L%"
  310. Set "String=%String:var:~13,1=M%"
  311. Set "String=%String:var:~14,1=N%"
  312. Set "String=%String:var:~15,1=O%"
  313. Set "String=%String:var:~16,1=P%"
  314. Set "String=%String:var:~17,1=Q%"
  315. Set "String=%String:var:~18,1=R%"
  316. Set "String=%String:var:~19,1=S%"
  317. Set "String=%String:var:~20,1=T%"
  318. Set "String=%String:var:~21,1=U%"
  319. Set "String=%String:var:~22,1=V%"
  320. Set "String=%String:var:~23,1=W%"
  321. Set "String=%String:var:~24,1=X%"
  322. Set "String=%String:var:~25,1=Y%"
  323. Set "String=%String:var:~26,1=Z%"
  324.  
  325. ::Numeric
  326. Set "String=%String:0=0%"
  327. Set "String=%String:1=1%"
  328. Set "String=%String:2=2%"
  329. Set "String=%String:3=3%"
  330. Set "String=%String:4=4%"
  331. Set "String=%String:5=5%"
  332. Set "String=%String:6=6%"
  333. Set "String=%String:7=7%"
  334. Set "String=%String:8=8%"
  335. Set "String=%String:9=9%"
  336.  
  337. ::Special_UTF8
  338. Set "String=%String:Special_UTF8:~0,1=…%"
  339. Set "String=%String:Special_UTF8:~1,1=‚%"
  340. Set "String=%String:Special_UTF8:~2,1=¡%"
  341. Set "String=%String:Special_UTF8:~3,1=¢%"
  342. Set "String=%String:Special_UTF8:~4,1=£%"
  343. Set "String=%String:Special_UTF8:~5,1=…%"
  344. Set "String=%String:Special_UTF8:~6,1=Š%"
  345. Set "String=%String:Special_UTF8:~7,1=Ö%"
  346. Set "String=%String:Special_UTF8:~8,1=•%"
  347. Set "String=%String:Special_UTF8:~9,1=—%"
  348. Set "String=%String:Special_UTF8:~10,1=µ%"
  349. Set "String=%String:Special_UTF8:~11,1=‚%"
  350. Set "String=%String:Special_UTF8:~12,1=Ö%"
  351. Set "String=%String:Special_UTF8:~13,1=à%"
  352. Set "String=%String:Special_UTF8:~14,1=é%"
  353. Set "String=%String:Special_UTF8:~15,1=·%"
  354. Set "String=%String:Special_UTF8:~16,1=Ô%"
  355. Set "String=%String:Special_UTF8:~17,1=Þ%"
  356. Set "String=%String:Special_UTF8:~18,1=ã%"
  357. Set "String=%String:Special_UTF8:~19,1=ë%"
  358. Set "String=%String:Special_UTF8:~20,1=Ž%"
  359. Set "String=%String:Special_UTF8:~21,1=‰%"
  360. Set "String=%String:Special_UTF8:~22,1=‹%"
  361. Set "String=%String:Special_UTF8:~23,1=”%"
  362. Set "String=%String:Special_UTF8:~24,1=š%"
  363. Set "String=%String:Special_UTF8:~25,1=Ž%"
  364. Set "String=%String:Special_UTF8:~26,1=Ó%"
  365. Set "String=%String:Special_UTF8:~27,1=Ø%"
  366. Set "String=%String:Special_UTF8:~28,1=™%"
  367. Set "String=%String:Special_UTF8:~29,1=š%"
  368. Set "String=%String:Special_UTF8:~30,1=¤%"
  369. Set "String=%String:Special_UTF8:~31,1=¥%"
  370. Set "String=%String:Special_UTF8:~32,1=^ª%"
  371. Set "String=%String:Special_UTF8:~33,1=§%"
  372. Set "String=%String:Special_UTF8:~34,1=^·%"
  373. Set "String=%String:Special_UTF8:~35,1=¿%"
  374. Set "String=%String:Special_UTF8:~36,1=­%"
  375. Set "String=%String:Special_UTF8:~37,1=ï%"
  376.  
  377. ::Special
  378. Set "String=%String:Special:~0,1=^\%"
  379. Set "String=%String:Special:~1,1=^|%"
  380. Set "String=%String:Special:~2,1=@%"
  381. Set "String=%String:Special:~3,1=#%"
  382. Set "String=%String:Special:~4,1=^~%"
  383. Set "String=%String:Special:~5,1=^^^!%"
  384. Set "String=%String:Special:~6,1=$%"
  385. Set "String=%String:Special:~7,1=€%"
  386. Set "String=%String:Special:~8,1=^&%"
  387. Set "String=%String:Special:~9,1=/%"
  388. Set "String=%String:Special:~10,1=(%"
  389. Set "String=%String:Special:~11,1=)%"
  390. Set "String=%String:Special:~12,1==%"
  391. Set "String=%String:Special:~13,1=?%"
  392. Set "String=%String:Special:~14,1=^<%"
  393. Set "String=%String:Special:~15,1=^>%"
  394. Set "String=%String:Special:~16,1=;%"
  395. Set "String=%String:Special:~17,1=,%"
  396. Set "String=%String:Special:~18,1=.%"
  397. Set "String=%String:Special:~19,1=-%"
  398. Set "String=%String:Special:~20,1=_%"
  399. Set "String=%String:Special:~21,1=+%"
  400. Set "String=%String:Special:~22,1=*%"
  401. Set "String=%String:Special:~23,1=^[%"
  402. Set "String=%String:Special:~24,1=^]%"
  403. Set "String=%String:Special:~25,1={%"
  404. Set "String=%String:Special:~26,1=}%"
  405. Set "String=%String:Special:~27,1=`%"
  406. Set "String=%String:Special:~28,1='%"
  407. Set "String=%String:Special:~29,1=^^^^%"
  408. Set "String=%String:Special:~30,1=:%"
  409.  
  410.  
  411. Echo string "%STRING%"
  412. Call :Write_Desofuscador
  413.  
  414. :Write_Desofuscador
« Última modificación: 14 Septiembre 2017, 16:25 pm por **Aincrad** » En línea


engel lex
Moderador Global
***
Desconectado Desconectado

Mensajes: 15.514



Ver Perfil
Re: [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo )
« Respuesta #1 en: 14 Septiembre 2017, 18:45 pm »
no es cifrador, ni encriptador... es ofuscador, no mezclemos abiertamente términos que no son lo mismo (al igual que "codificador", "hash" y otros)
En línea
El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
AlbertoBSD
Programador y
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.705


🏴 Libertad!!!!!


Ver Perfil WWW
Re: [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo )
« Respuesta #2 en: 14 Septiembre 2017, 18:58 pm »
Cita de: engel lex en 14 Septiembre 2017, 18:45 pm
no es cifrador, ni encriptador... es ofuscador, no mezclemos abiertamente términos que no son lo mismo (al igual que "codificador", "hash" y otros)

Lo mismo pense, lo mismo con los del ofuscador de JS, que se puede esperar si no saben criptografia.

En fin, por cierto hay quienes todavia ejecutan batch en windows y se infectan?
En línea
**Aincrad**


Conectado Conectado

Mensajes: 683



Ver Perfil WWW
Re: [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo )
« Respuesta #3 en: 14 Septiembre 2017, 22:01 pm »
Tienen razón me equivoque, es Ofuscador.   ;D

                                                       comenten sus opiniones plis.  ;-)       ::)
« Última modificación: 1 Marzo 2021, 03:13 am por **Aincrad** » En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[APORTE] [BATCH] Acentos en los programas Batch - La mejor solución
Scripting 		Príncipe_Azul 5 13,260 Último mensaje 2 Mayo 2014, 00:09 am
por cyberalejo17
[BATCH] [APORTE] Batch Archive Security (ponle contraseña a tus archivos)
Scripting 		**Aincrad** 2 3,577 Último mensaje 28 Septiembre 2017, 03:06 am
por **Aincrad**
[batch] [aporte] batch archive security v0.3
Scripting 		**Aincrad** 9 5,681 Último mensaje 26 Noviembre 2018, 22:29 pm
por MCKSys Argentina
[BATCH] [APORTE] Batch Auto Hide Start [BAHS]
Scripting 		**Aincrad** 0 2,370 Último mensaje 20 Julio 2018, 20:15 pm
por **Aincrad**
[APORTE] Obfuscar Codigo Batch y Ejecutarlo.
Scripting 		**Aincrad** 0 2,104 Último mensaje 26 Febrero 2020, 21:49 pm
por **Aincrad**
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines