Ofusca tu código batch

Ofusca tu código batch

by | Jul 18, 2018 | hacking

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
  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. 😮
  50. set archivo=”%~2″
  51. cls
  52. :sal
  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
  60. :::::::::::::::::
  61. :Ofuscador
  62. :::::::::::::::::
  64. :Lineas
  65. Set Linea=0
  66. For /F “Tokens=*” %%a in (‘Type %archivo% ^| Find /V /C “”‘) do (Set Total=%%a)
  68. :Leer_Ofuscador
  69. If “%linea%” EQU “%total%” (Goto :Fin_Ofuscador)
  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. )
  82. :Ofuscar
  85. If “%Count%” EQU “%Longitud%” (
  86.     call :Write_Ofuscador
  87.     Goto :Leer_Ofuscador)
  89. ::Comilladoble
  90. Set “String=%String:”=€%”& rem “
  92. ::Espacio
  93. If “%String:~0,1%” EQU ” ” (Set “New_String=%New_String% “)
  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%%”)
  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”)
  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%^^´”)
  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%:”)
  232. Set “String=%String:~1%”
  233. Set /A Count+=1
  234. Goto :Ofuscar
  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
  244. :Fin_Ofuscador
  245. Echo REM By Salvafor F. Krilewski  >> “cifrado.bat”
  246. Del /Q “%TEMP%\String.tmp”
  247. Cls
  248. echo Fin | More
  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)
  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. )
  269. :Desofuscar
  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%”
  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%”
  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=ï%”
  377. ::Special
  378. Set “String=%String:Special:~0,1=^\%”
  379. Set “String=%String:Special:~1,1=^|%”
  380. Set “String=%String:Special:~2,[email protected]%”
  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=%!!%”
  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=:%”
  411. Echo string “%STRING%”
  412. Call :Write_Desofuscador
  414. :Write_Desofuscador
Te pienso, te sueño, pero no te vivo
Generador de password

Generador de password

by | Jul 17, 2018 | hacking

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)
  11. Set “chars=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#+-}./]{?$,:@\[_~”
  12. Set count=1
  13. 😡
  14. Set /a count+=1
  15. Set rand=%Random%
  16. Set /a rand=rand%%79
  17. SET compiled=%compiled%!chars:~%rand%,1!
  18. If !count! leq %psschr% goto 😡
  20. echo Contraseña: !compiled!
  22. :clipboard
  23. set /p “choice=Quiere que la contraseña quede copiada en su portapapeles? (Y/N): “
  24. If not defined choice (
  25. cls
  26. goto :clipboard
  27. )
  28. if /i %choice% == y call :copy
  29. if /i %choice% == yes call :copy
  30. if /i %choice% == no goto menu
  31. if /i %choice% == n goto menu
  32. goto :menu
  33. @exit /B
  35. :invalid
  36. cls
  37. echo La longitud solicitada es ( %amount% ) al limite ( %val% ).
  38. pause >nul & goto :menu
  39. @exit /B
  42. echo !compiled! | clip
  44. echo La contraseña ha sido copiada a tu portapapeles.
  45. Timeout /T 5 >nul
  46. goto :menu
  47. @exit /B