Ofusca tu código batch

Ofusca tu código batch

En el trabajo he estado peleando con un antivirus, así que hice un pequeño en Ofuscador de código fuente de batch.

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

Generador de password

Con este código pude conseguir algo de dinero por hacker a……

Generador de password:

Espero que les sirva mucho aqui el codigo:

Código: DOS
  1. @echo off >Nul
  2. Setlocal EnableDelayedExpansion
  3. Title Generador de Passwords en BATCH
  4. :menu
  5. SET “compiled=”
  6. echo Generador de Passwords en BATCH
  7. Set/p “psschr=Inserte cantidad de caracteres deseados: “
  8. If %psschr%==0 (Set “amount=menor” && Set “val=1” && call :invalid)
  9. If %psschr% GTR 60000 (Set “amount=mayor” && Set “val=60000” && call :invalid)
  10. Set “chars=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#+-}./]{?$,:@\[_~”
  11. Set count=1
  12. 😡
  13. Set /a count+=1
  14. Set rand=%Random%
  15. Set /a rand=rand%%79
  16. SET compiled=%compiled%!chars:~%rand%,1!
  17. If !count! leq %psschr% goto 😡
  18. echo Contraseña: !compiled!
  19. :clipboard
  20. set /p “choice=Quiere que la contraseña quede copiada en su portapapeles? (Y/N): “
  21. If not defined choice (
  22. cls
  23. goto :clipboard
  24. )
  25. if /i %choice% == y call :copy
  26. if /i %choice% == yes call :copy
  27. if /i %choice% == no goto menu
  28. if /i %choice% == n goto menu
  29. goto :menu
  30. @exit /B
  31. :invalid
  32. cls
  33. echo La longitud solicitada es ( %amount% ) al limite ( %val% ).
  34. pause >nul & goto :menu
  35. @exit /B
  36. echo !compiled! | clip
  37. echo La contraseña ha sido copiada a tu portapapeles.
  38. Timeout /T 5 >nul
  39. goto :menu
  40. @exit /B