[VBS] Menyembunyikan File ke Dalam Gambar

Sembunyikan file Anda dalam gambar dengan Hider.
Saat ini sudah banyak bertebaran di internet trik untuk menyembunyikan file di dalam file gambar (.jpg),
tapi masih banyak orang yang tidak mengerti langkah-langkahnya. Oleh karena itu saya membuat VBscript ini
untuk memudahkan Anda menyembunyikan file rahasia Anda.






Perhatian!
-    File yang Anda ingin sembunyikan harus di arsipkan terlebih dahulu. Contoh arsip.rar, arsip.zip, dsb.
-    Anda harus menuliskan nama ekstensi file yang anda masukkan di inputbox. Contoh hasil.jpg, dsb.

Cara kerja
-    Buka Hider.vbs
-    Tuliskan nama file gambar pengalih Anda (jika berada dalam satu folder dengan file ini. Jika tidak,
    tuliskan nama file beserta alamatnya (path).
-    tuliskan nama file yang ingin disembunyikan (jika berada dalam satu folder dengan file ini. Jika tidak,
    tuliskan nama file beserta alamatnya (path).
-    tuliskan nama file hasil. jika Anda tidak menuliskan alamat file hasil, maka file akan otomatis dibuat
    dalam folder yang sama dengan file Hider.vbs.


Kita kopas source code nya nyookk

' Scripting by Khadiyan U A
' Kritik dan saran kirim aja ke:
' diyan.ua@gmail.com

on error resume next
Dim Wshshell, fso, hide
input = inputBox("Masukkan nama atau alamat file pengalih Anda! (contoh:gambar.jpg).","File Hider")
input1 = inputBox("Masukkan nama atau alamat file yang ingin Anda sembunyikan (contoh:arsip.rar).","File Hider")
input2 = inputBox("Masukkan nama atau alamat file hasil (contoh:Hasil.jpg).","File Hider")
Set Wshshell = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
set tulis = fso.CreateTextFile("sembtemp.bat",true)
set hide = fso.getfile("sembtemp.bat")
hide.attributes = 6
tulis.Write "copy /b "
tulis.Write input
tulis.Write " + "
tulis.Write input1
tulis.Write " "
tulis.Write input2
tulis.close
Wshshell.run "sembtemp.bat"

Jangan Lupa Komentar Yaa..