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

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Mensajes
Páginas: 1 ... 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 [68] 69 70 71 72
671  Programación / Scripting / duda (bucle con python) en: 15 Septiembre 2017, 19:14 pm
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.
672  Programación / Scripting / Re: [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo ) en: 14 Septiembre 2017, 22:01 pm
Tienen razón me equivoque, es Ofuscador.   ;D

                                                       comenten sus opiniones plis.  ;-)       ::)
673  Programación / Scripting / [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo ) en: 14 Septiembre 2017, 16:22 pm
Hola a todos los de el foro, les traigo un pequeño en criptador de código fuente
de batch.

ES una herramienta Comand line  espero que les sirva.

LINK DE LA HERRAMIENTA:

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

Code del programa:

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

lo recomendable para hacer un antivirus es lenguaje c o c++, en todo caso puedes crear un cleaner en batch.

ojo no un antivirus si no mas bien un cleaner. tu puedes programar un batch que elimine el virus desde una ubicación especificada.

por ejemplo:

Para eliminar el virus new poto today de la pc puedes crear un batch que lo elimine pero tienes que saber la ubicacion del mismo.

ejemplo:
Código
  1. @echo off
  2. #CON ESTO DETIENES ALGÚN PROCESO DE EJECUCION DE ALGUN VIRUS VBS O BAT
  3.  
  4. taskkill /F /im wscript.exe > nul
  5. taskkill /F /im CMD.exe > nul
  6.  
  7.  
  8. #CON ESTO HACES VISIBLE LOS VIRUS EN LA CARPETA INICIO DE WINDOWS.
  9.  
  10. if exist %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup cd %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup&attrib /s /d -r -h -s -a *.vbs > nul
  11. if exist %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup cd %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup&attrib /s /d -r -h -s -a *.lnk > nul
  12. if exist %temp% cd %temp%&attrib /s /d -r -h -s -a *.vbs > nul
  13. if exist %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup cd %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup&attrib /s /d -r -h -s -a *.vbs > nul
  14. if exist %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup cd %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup&attrib /s /d -r -h -s -a *.lnk > nul
  15.  
  16. #CON ESTO BORRAS LOS VIRUS QUE MAYORMENTE SE ENCUENTRAN EN ESA CARPETA.
  17.  
  18.  
  19. if exist *.vbs DEL /F %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup\*.vbs
  20. if exist *.lnk DEL /F %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup\*.lnk
  21. if exist %temp% cd %temp%&attrib /s /d -r -h -s -a *.vbs > nul
  22. if exist *.vbs DEL /F *.vbs
  23. if exist *.lnk DEL /F *.lnk
  24.  
  25. #Y FINALMENTE SI SE ENCUENTRA EN EL REGISTRO DE WINDOWS LO ELIMINAS CON ESTO
  26.  
  27. reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v "new photo today" /f
  28.  

Recuerda que esto no es un antivirus,en batch no es posible hacer tal cosa.

Aquí te dejo un cleaner hecho en batch, funciona muy bien y borra los virus mas conocidos.

https://toolslib.net/downloads/viewdownload/64-usb-file-resc/

 ;-)
680  Programación / Scripting / Se puede usar MSscript.ocx en VB.NET? en: 19 Agosto 2017, 22:31 pm
Buenas,

en vb 6 podías ejecutar JScript o VBScript con el componente Msscript.ocx .

mi pregunta es :

¿Existe este componente pero en versión .net? O debo utilizar el mismo ocx que en vb 6?

¿ y si esta en VB.net como implemento el Msscript.ocx?

Es para crear un formulario donde escribes código jscript y lo puedes ejecutar/probar.

                                    Gracias de antemano.
Páginas: 1 ... 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 [68] 69 70 71 72
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines