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


 


Tema destacado: ¿Usas Skype? Protégete de los Skype Resolver


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 [15] 16 17 18
141  Programación / Scripting / Re: Ayuda con script (en bash, python o perl) en: 16 Septiembre 2017, 19:42
no capto muy bien tu idea de lo que quieres.

pero tal vez esto te ayude a crear el escript:

http://foro.elhacker.net/scripting/acciones_sobre_archivos_de_texto_batch-t242748.0.html
 
142  Programación / Scripting / Re: duda (bucle con python) en: 15 Septiembre 2017, 22:11
no me funciona.   :-(

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

ya lo he intentado con while True: pero nada.
143  Programación / Scripting / duda (bucle con python) en: 15 Septiembre 2017, 19:14
Hola a todos los de el foro.

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

Código
  1. import ctypes
  2.  
  3. SetCursorPos = ctypes.windll.user32.SetCursorPos
  4. mouse_event = ctypes.windll.user32.mouse_event
  5.  
  6. def left_click(x, y, clicks=1):
  7.  
  8.  SetCursorPos(x, y)
  9.  for i in xrange(clicks):
  10.   mouse_event(2, 0, 0, 0, 0)
  11.   mouse_event(4, 0, 0, 0, 0)
  12.  
  13. left_click(000, 900) #left clicks at 200, 200 on your screen. Was able to send 10k clicks instantly.
  14.  

Estuve intentando con For y While , pero no logro como hacerlo.
144  Programación / Scripting / Re: [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo ) en: 14 Septiembre 2017, 22:01
Tienen razón me equivoque, es Ofuscador.   ;D

bueno para todos los de el foro les dejo la herramienta en html osea para que todos
puedan ofuscar su batch sin descargar nada espero que les sirva a todos.

link:

https://batch-ofuser-by-aincrad.000webhostapp.com/Batch%20file%20Ofuscation.html

                                                       comenten sus opiniones plis.  ;-)       ::)
145  Programación / Scripting / [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo ) en: 14 Septiembre 2017, 16:22
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
146  Programación / .NET / Re: ayuda en VB.NET en: 12 Septiembre 2017, 20:03
  ;-)           Gracias Elektro me ayudaste. si me sirvió.         ;-)
147  Programación / .NET / Re: ayuda en VB.NET en: 12 Septiembre 2017, 17:03
gracias electro yo estaba intentando con un codigo similar

Código
  1. (Environment.GetFolderPath(Environment.SpecialFolder.Startup))

pero el boto no funcionaba ni lanzaba ningún error.

ahora probe tu code. lo puse de la siguiente manera

Código
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.        Dim dir As New Directory(Environment.GetFolderPath(Environment.SpecialFolder.Startup)) ' ME MARCA ERROR EN DIR
  3.        Try
  4.  
  5.            For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
  6.                                    dir, _                                          'ME MARCA ERROR EN DIR
  7.                                    FileIO.SearchOption.SearchAllSubDirectories, _
  8.                                    "*.vbs", _
  9.                                    "*.dll", _
  10.                                    "*.cmd", _
  11.                                    "*.wsf", _
  12.                                    "*.exe", _
  13.                                    "*.ink", _
  14.                                    "*.js", _
  15.                                    "*.html", _
  16.                                    "*.vbe")
  17.  
  18.                ListBox1.Items.AddRange(Archivo)
  19.            Next
  20.        Catch oe As Exception
  21.            MsgBox(oe.Message, MsgBoxStyle.Critical)
  22.        End Try
  23.    End Sub
  24.  

AHORA ME MARCAN DOS ERRORES

error en la linea 2 en la palabra dir:

Error   1   Type 'System.IO.Directory' has no constructors.   

error en la linea 6 en la palabra dir:

Error   2   Value of type 'System.IO.Directory' cannot be converted to 'String'.   

148  Programación / .NET / ayuda en VB.NET en: 12 Septiembre 2017, 15:40
hola a todos los del foro.

necesito ayuda con parte de un code programado en visual studio 2008

code:

Código
  1. Try
  2.           For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
  3.                                    "C:\Users\andres\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup", _
  4.                                    FileIO.SearchOption.SearchAllSubDirectories, _
  5.                                    "*.vbs", _
  6.                                    "*.dll", _
  7.                                    "*.cmd", _
  8.                                    "*.wsf", _
  9.                                    "*.exe", _
  10.                                    "*.ink", _
  11.                                    "*.js", _
  12.                                    "*.html", _
  13.                                    "*.vbe")
  14.  
  15.                ListBox1.Items.Add(Archivo)
  16.                Form7.Show()
  17.            Next
  18.            ' errores  
  19.        Catch oe As Exception
  20.            MsgBox(oe.Message, MsgBoxStyle.Critical)
  21.        End Try
  22.  


lo que necesito es que el directorio en la linea 3 del code
cambie el usuario andres por algo como %USERPROFILE% de batch, para que
funcione en otras computadoras.
es porque si quiero correr el code en otra PC que tiene otro usuario funcione.


Los códigos de .NET van en el subforo de .NET
149  Programación / Scripting / Re: cifrar archivos .js en: 11 Septiembre 2017, 22:17
 ::)
te recomiendo (Scripts Encryptor - Encoder) mejor  conocido como ScrEnc con este programa encriptas CODIGOS:

HTML, javascript, ASP, C# , C++ / MFC , VBSCRIPT.

LA VERDAD ES MUY BUENO Y FÁCIL DE USAR.                      ;-)
150  Foros Generales / Dudas Generales / Re: Procedencia correo anónimo en: 23 Agosto 2017, 23:35
según con lo que entendí quieres enviar, correos anonimamente.

bueno yo utilizo esta aplicacion: zeta uploader.

https://www.zeta-uploader.com/zetauploader-setup.exe


me sirve de mucho, por que con esto puedo mandar virus por correo.
ya que hotmal ni gmail me dejan enviar esa clase de archivos.

----------pero con esta aplicacion sencilla de usar puedo enviar cualquier cosa anonimamente a cualquier direccion ya sea : @hotmail-@gmail-@yahoo ...entre otras direcciones.
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 [15] 16 17 18
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines