Membuat Folder Δ Smad - Lock Δ or AIRΔV F0LDER SΔVE

"HIMA TI Blog kompetisi 2010 Politeknik Negeri Padang"

Sekilas terbesit di otakku, teknik ini baiknya di bongkar aja, supaya makin banyak programmer indonesia yang makin maju..
teknik ini mungkin tidak diajarkan ditempat formal,,tapi....gak tau pasti seh..yang jelas neh teknik masih hangat..haha...kayak teh ajah.....

ok, sekarang buka MS VB 6.0 kalian..

buatlah satu form dengan satu Command Button

inti nya disini adalah kenapa folder ini tidak tertembus oleh  (beberapa) virus kecuali morphiri (morphost) n Mr. J (Mr. J) dan beberapa yang lain virus indonesia adalah karna simbol Δ atau jenis lain yang dibuat melalui program VB dengan materi UNICODE yang membuat folder ini tidak bisa di hidden oleh BuluBebek / Nadia Shapira yang sering menghidden File anda di Flashdisk.

folder ini juga membuat applikasi yang ada di dalamnya tidak bisa di eksekusi.


kemampuan unicode bisa dibuat juga berbeda tiap komputer.tapi kalu lambang Δ dijamin ada.
ketikkan kode ini terlebih dahulu di codearea paling atas :

Private Declare Function BuatUnicode Lib "kernel32" _
Alias "CreateDirectoryW" (ByVal lpPathName As Any, _
lpSecurityAttributes As Long) As Long

'pendeklarasian buatunicode sebagai pembuat folder uniciode..dimana tampak jelas pada perbedaan "CreateDirectoryW" dan "CreateDirectoryA" yang mana huruf W dan A diakhir tersebut pembeda antara ANSI dan WIDECHAR....

Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
'pemberian type SECURITY ATTRIBUTES pada directory yang kita buat....

ok sekarang ketikkan code berikut pada command button tsb :
Private Command1_Click( )
on error resume next
BuatUnicode StrPtr("C:\" & ChrW$(&h394) & " Smad-Lock " & chrw$(&h394)), VarPtr(SECURITY_ATTRIBUTES)End Sub

Chrw$(&h394) itu menandakan simbol segitiga (delta) smad-lock...

ok, jika code ini tidak berjalan / bug, mohon di comment..



thanks for all