Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[BATCH] BatCrytp ( Ofusca tu código batch y ejecútalo )

  • 1 Respuestas
  • 1933 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Aincrad

  • *
  • Underc0der
  • Mensajes: 19
  • Actividad:
    0%
  • Reputación 2
    • Ver Perfil
    • Email
« en: Junio 03, 2018, 09:20:36 pm »
Hola a todos los de el foro, les traigo un pequeño en Ofuscador de código fuente
de batch.

Con esta herramienta Su Batch quedara seguro. /(Anti-Robo de codigo fuente  ;D)

ES una herramienta Comand line  espero que les sirva.

LINK DE LA HERRAMIENTA:

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

Code del programa:

Código: DOS
  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 t=var
  54. set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz%" "
  55. echo @echo off >> "cifrado.bat"
  56. echo %p% %t%^=%resultado% >> "cifrado.bat"
  57. goto :Ofuscador
  58.  
  59. :::::::::::::::::
  60. :Ofuscador
  61. :::::::::::::::::
  62.  
  63. :Lineas
  64. Set Linea=0
  65. For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)
  66.  
  67. :Leer_Ofuscador
  68. If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)
  69.  
  70. For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
  71.     Echo: Ofuscando: "%%a"
  72.     Set /A Linea+=1
  73.     Set "String=%%a"
  74.     If not defined string (Goto :Leer_Ofuscador)
  75.     Echo %%a>"%TEMP%\String.tmp"
  76.     FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
  77.     Goto :Ofuscar
  78. )
  79.  
  80.  
  81. :Ofuscar
  82.  
  83.  
  84. If "%Count%" EQU "%Longitud%" (
  85.     call :Write_Ofuscador
  86.     Goto :Leer_Ofuscador)
  87.  
  88. ::Comilladoble
  89. Set "String=%String:"=€%"& rem "
  90.  
  91. ::Espacio
  92. If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")
  93.  
  94. ::Alpha
  95. If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
  96. If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
  97. If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
  98. If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
  99. If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
  100. If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
  101. If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
  102. If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
  103. If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
  104. If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
  105. If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
  106. If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
  107. If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
  108. If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
  109. If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
  110. If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
  111. If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
  112. If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
  113. If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
  114. If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
  115. If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
  116. If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
  117. If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
  118. If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
  119. If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
  120. If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
  121. If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
  122. If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
  123. If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
  124. If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
  125. If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
  126. If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
  127. If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
  128. If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
  129. If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
  130. If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
  131. If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
  132. If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
  133. If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
  134. If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
  135. If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
  136. If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
  137. If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
  138. If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
  139. If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
  140. If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
  141. If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
  142. If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
  143. If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
  144. If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
  145. If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
  146. If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")
  147.  
  148. ::Numeric
  149. If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%0")
  150. If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%1")
  151. If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%2")
  152. If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%3")
  153. If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%4")
  154. If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%5")
  155. If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%6")
  156. If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%7")
  157. If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%8")
  158. If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%9")
  159.  
  160. ::Special
  161. If "%String:~0,1%" EQU "á" (Set "New_String=%New_String%^^á")
  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.  
  198. If "%String:~0,1%" EQU "€" (Set "New_String=%New_String%€")
  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.  
  231. Set "String=%String:~1%"
  232. Set /A Count+=1
  233. Goto :Ofuscar
  234.  
  235. :Write_Ofuscador
  236. Set "New_String=%New_String:€="%"& rem "
  237. Echo %New_String%>>"cifrado.bat"
  238. If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
  239. Set "New_String="
  240. Set "Count="
  241. Goto :EOF
  242.  
  243. :Fin_Ofuscador
  244. Echo REM By Salvafor F. Krilewski  >> "cifrado.bat"
  245. Del /Q "%TEMP%\String.tmp"
  246. Cls
  247. echo Fin | More
  248.  
  249.  
  250. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  251. :d
  252. set archivo="%~2"
  253. cls
  254. :Lineas
  255. Set Linea=0
  256. For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)
  257.  
  258.  
  259. :Leer_Desofuscador
  260. For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE /E +%Linea%') do (
  261.     Set /A Linea+=1
  262.     Set "String=%%a"
  263.     Goto Desofuscar
  264. )
  265.  
  266. :Desofuscar
  267.  
  268. ::Alpha
  269. Set "String=%String:var:~27,1=a%"
  270. Set "String=%String:var:~28,1=b%"
  271. Set "String=%String:var:~29,1=c%"
  272. Set "String=%String:var:~30,1=d%"
  273. Set "String=%String:var:~31,1=e%"
  274. Set "String=%String:var:~32,1=f%"
  275. Set "String=%String:var:~33,1=g%"
  276. Set "String=%String:var:~34,1=h%"
  277. Set "String=%String:var:~35,1=i%"
  278. Set "String=%String:var:~36,1=j%"
  279. Set "String=%String:var:~37,1=k%"
  280. Set "String=%String:var:~38,1=l%"
  281. Set "String=%String:var:~39,1=m%"
  282. Set "String=%String:var:~40,1=n%"
  283. Set "String=%String:var:~41,1=o%"
  284. Set "String=%String:var:~42,1=p%"
  285. Set "String=%String:var:~43,1=q%"
  286. Set "String=%String:var:~44,1=r%"
  287. Set "String=%String:var:~45,1=s%"
  288. Set "String=%String:var:~46,1=t%"
  289. Set "String=%String:var:~47,1=u%"
  290. Set "String=%String:var:~48,1=v%"
  291. Set "String=%String:var:~49,1=w%"
  292. Set "String=%String:var:~50,1=x%"
  293. Set "String=%String:var:~51,1=y%"
  294. Set "String=%String:var:~52,1=z%"
  295. Set "String=%String:var:~1,1=A%"
  296. Set "String=%String:var:~2,1=B%"
  297. Set "String=%String:var:~3,1=C%"
  298. Set "String=%String:var:~4,1=D%"
  299. Set "String=%String:var:~5,1=E%"
  300. Set "String=%String:var:~6,1=F%"
  301. Set "String=%String:var:~7,1=G%"
  302. Set "String=%String:var:~8,1=H%"
  303. Set "String=%String:var:~9,1=I%"
  304. Set "String=%String:var:~10,1=J%"
  305. Set "String=%String:var:~11,1=K%"
  306. Set "String=%String:var:~12,1=L%"
  307. Set "String=%String:var:~13,1=M%"
  308. Set "String=%String:var:~14,1=N%"
  309. Set "String=%String:var:~15,1=O%"
  310. Set "String=%String:var:~16,1=P%"
  311. Set "String=%String:var:~17,1=Q%"
  312. Set "String=%String:var:~18,1=R%"
  313. Set "String=%String:var:~19,1=S%"
  314. Set "String=%String:var:~20,1=T%"
  315. Set "String=%String:var:~21,1=U%"
  316. Set "String=%String:var:~22,1=V%"
  317. Set "String=%String:var:~23,1=W%"
  318. Set "String=%String:var:~24,1=X%"
  319. Set "String=%String:var:~25,1=Y%"
  320. Set "String=%String:var:~26,1=Z%"
  321.  
  322. ::Numeric
  323. Set "String=%String:0=0%"
  324. Set "String=%String:1=1%"
  325. Set "String=%String:2=2%"
  326. Set "String=%String:3=3%"
  327. Set "String=%String:4=4%"
  328. Set "String=%String:5=5%"
  329. Set "String=%String:6=6%"
  330. Set "String=%String:7=7%"
  331. Set "String=%String:8=8%"
  332. Set "String=%String:9=9%"
  333.  
  334. ::Special_UTF8
  335. Set "String=%String:Special_UTF8:~0,1=…%"
  336. Set "String=%String:Special_UTF8:~1,1=‚%"
  337. Set "String=%String:Special_UTF8:~2,1=¡%"
  338. Set "String=%String:Special_UTF8:~3,1=¢%"
  339. Set "String=%String:Special_UTF8:~4,1=£%"
  340. Set "String=%String:Special_UTF8:~5,1=…%"
  341. Set "String=%String:Special_UTF8:~6,1=Š%"
  342. Set "String=%String:Special_UTF8:~7,1=Ö%"
  343. Set "String=%String:Special_UTF8:~8,1=•%"
  344. Set "String=%String:Special_UTF8:~9,1=—%"
  345. Set "String=%String:Special_UTF8:~10,1=µ%"
  346. Set "String=%String:Special_UTF8:~11,1=‚%"
  347. Set "String=%String:Special_UTF8:~12,1=Ö%"
  348. Set "String=%String:Special_UTF8:~13,1=à%"
  349. Set "String=%String:Special_UTF8:~14,1=é%"
  350. Set "String=%String:Special_UTF8:~15,1=·%"
  351. Set "String=%String:Special_UTF8:~16,1=Ô%"
  352. Set "String=%String:Special_UTF8:~17,1=Þ%"
  353. Set "String=%String:Special_UTF8:~18,1=ã%"
  354. Set "String=%String:Special_UTF8:~19,1=ë%"
  355. Set "String=%String:Special_UTF8:~20,1=Ž%"
  356. Set "String=%String:Special_UTF8:~21,1=‰%"
  357. Set "String=%String:Special_UTF8:~22,1=‹%"
  358. Set "String=%String:Special_UTF8:~23,1=”%"
  359. Set "String=%String:Special_UTF8:~24,1=š%"
  360. Set "String=%String:Special_UTF8:~25,1=Ž%"
  361. Set "String=%String:Special_UTF8:~26,1=Ó%"
  362. Set "String=%String:Special_UTF8:~27,1=Ø%"
  363. Set "String=%String:Special_UTF8:~28,1=™%"
  364. Set "String=%String:Special_UTF8:~29,1=š%"
  365. Set "String=%String:Special_UTF8:~30,1=¤%"
  366. Set "String=%String:Special_UTF8:~31,1=¥%"
  367. Set "String=%String:Special_UTF8:~32,1=^%"
  368. Set "String=%String:Special_UTF8:~33,1=§%"
  369. Set "String=%String:Special_UTF8:~34,1=^%"
  370. Set "String=%String:Special_UTF8:~35,1=¿%"
  371. Set "String=%String:Special_UTF8:~36,1=­%"
  372. Set "String=%String:Special_UTF8:~37,1=ï%"
  373.  
  374. ::Special
  375. Set "String=%String:Special:~0,1=^\%"
  376. Set "String=%String:Special:~1,1=^|%"
  377. Set "String=%String:Special:~2,1=@%"
  378. Set "String=%String:Special:~3,1=#%"
  379. Set "String=%String:Special:~4,1=^~%"
  380. Set "String=%String:Special:~5,1=^^^!%"
  381. Set "String=%String:Special:~6,1=$%"
  382. Set "String=%String:Special:~7,1=€%"
  383. Set "String=%String:Special:~8,1=^&%"
  384. Set "String=%String:Special:~9,1=/%"
  385. Set "String=%String:Special:~10,1=(%"
  386. Set "String=%String:Special:~11,1=)%"
  387. Set "String=%String:Special:~12,1==%"
  388. Set "String=%String:Special:~13,1=?%"
  389. Set "String=%String:Special:~14,1=^<%"
  390. Set "String=%String:Special:~15,1=^>%"
  391. Set "String=%!!%"
  392. Set "String=%String:Special:~17,1=,%"
  393. Set "String=%String:Special:~18,1=.%"
  394. Set "String=%String:Special:~19,1=-%"
  395. Set "String=%String:Special:~20,1=_%"
  396. Set "String=%String:Special:~21,1=+%"
  397. Set "String=%String:Special:~22,1=*%"
  398. Set "String=%String:Special:~23,1=^[%"
  399. Set "String=%String:Special:~24,1=^]%"
  400. Set "String=%String:Special:~25,1={%"
  401. Set "String=%String:Special:~26,1=}%"
  402. Set "String=%String:Special:~27,1=`%"
  403. Set "String=%String:Special:~28,1='%"
  404. Set "String=%String:Special:~29,1=^^^^%"
  405. Set "String=%String:Special:~30,1=:%"
  406.  
  407.  
  408. Echo string "%STRING%"
  409. Call :Write_Desofuscador
  410.  
  411. :Write_Desofuscador



cabe destacar que esta herramienta posee un único bug. no debes ofuscar las variables dentro de el signo %.



Como se usa?

creas un batch con la siguiente linea:
Código: DOS
  1. BatchCript.bat -e (nombre de tu batch a ofuscar) o usa -d (nombre de tu batch a desofuscar creo q tenia bug pero unca lo termine :v)



Ejemplo :

Código: DOS
  1. @echo off
  2. echo hola mundo

Ofuscado con BatCrytp:

Código: DOS
  1. @echo off
  2. set var="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"  
  3. @%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~41,1%%var:~32,1%%var:~32,1%
  4. %var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~34,1%%var:~41,1%%var:~38,1%%var:~27,1% %var:~39,1%%var:~47,1%%var:~40,1%%var:~30,1%%var:~41,1%
  5. %var:~42,1%%var:~27,1%%var:~47,1%%var:~45,1%%var:~31,1%
  6. REM By Aincrad

Y LA SALIDA SIEMPRE ES LA MISMA.  ;D

PD: Esta es una de mis creaciones a las cuales le he puesto mucho cariño,sudor y lagrimas :V.



Ahora el bug que comente hace rato, les pondré un ejemplo:

Si ofuscan la parte %m% no les correra el code:

Código: DOS
  1. @echo off
  2. set m=hola mundo
  3. echo %m%

Por lo tanto deben ofuscarlo así :

Código: DOS
  1. @echo off
  2. set var="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"  
  3. @%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~41,1%%var:~32,1%%var:~32,1%
  4. %var:~45,1%%var:~31,1%%var:~46,1% %var:~39,1%=%var:~34,1%%var:~41,1%%var:~38,1%%var:~27,1% %var:~39,1%%var:~47,1%%var:~40,1%%var:~30,1%%var:~41,1%
  5. %var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %m% ------------------------ Como pueden ver Ofusque todo menos el %m% asi correra el code perfecto.
  6. %var:~42,1%%var:~27,1%%var:~47,1%%var:~45,1%%var:~31,1%
  7. REM By Salvafor F. Krilewski



He codeado y mejORado esta herramienta en VB.NET en forma de un IDE  Para programar en Batch y vbs , contiene múltiples herramientas de Ofuscacion ,Encryptacion , convertor a .exe y mas . la herramienta la pueden descargar gratis AQUI:

Batch/VBS IDE Programing

Features + Imagenes de mi Programa:

*Ofuscacion
*Bat to Exe
*Encryptacion
*musica online NCS .
*Generador EXE anti - robo de codigo fuente . (mejor que BAT TO EXE)
*VBS to Bat Convertidor de Codigo
*Editor de Archivos Basic (.bas)
*Multi Abridor de archivos
*Copilador Multilenguaje
*(Batch / VBS) agregado

*Gratis

*Program with background music, in a pleasant atmosphere.




Bueno me he Extendido demasiado . SALUDOS , Comenten Porfa no quiero quedar ignorado.

Desconectado 79137913

  • *
  • Co Admin
  • Mensajes: 643
  • Actividad:
    3.33%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« Respuesta #1 en: Junio 04, 2018, 11:31:32 am »
HOLA!!!

Muy bueno, me encanto el metodo que es facil y simple.

El ide... deja que desear XD.

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   DOORS.PARTY

 

¿Te gustó el post? COMPARTILO!



[Código] Google Fucker [Bloquea todos los dominios Google]

Iniciado por LucaSthefano

Respuestas: 1
Vistas: 1899
Último mensaje Mayo 31, 2011, 05:34:32 pm
por Xt3mP
""MSN"" en batch

Iniciado por Elle Lawliet

Respuestas: 6
Vistas: 2709
Último mensaje Julio 18, 2011, 01:35:47 am
por JaAViEr
Detecta Autorun.Inf + Eliminación de Archivo Infectado - JaAViEr - Batch

Iniciado por JaAViEr

Respuestas: 4
Vistas: 2457
Último mensaje Julio 18, 2011, 06:36:47 pm
por LucaSthefano
[B]Tutorial del Programación en Batch Nivel Avanzado -KuTeR-

Iniciado por ProcessKill

Respuestas: 0
Vistas: 2449
Último mensaje Febrero 24, 2010, 05:17:27 pm
por ProcessKill
Guia para crear Bombas logicas en Batch

Iniciado por Dharok

Respuestas: 2
Vistas: 3774
Último mensaje Mayo 13, 2011, 12:22:10 pm
por RandomSoft