Dini.vbs : im sorry my english bad

Dini.vbs. Sudah tidak asing jika malware lokal hadir dengan ciri-ciri yang selalu menampilkan pesan berupa curahan hati. Pesan tersebut bukan hanya ada di hasil companionnya saja, akan tetapi pada tubuh dari malware itu sendiri. Malware seperti ini mengingatkan kita pada worm Serviks.vbs yang cukup banyak menyebar pertengahan tahun 2010.

A. Info Malware
Nama: Dini.vbs
Asal: Indonesia
Ukuran File: 24.5 KB (25,096 bytes)
Packer: -
Pemrograman: Visual Basic Script
Icon: VBS file
Tipe: Worm

B. Tentang Malware
Meskipun malware tipe VBS termasuk memiliki banyak varian dan mudah dimodifikasi, akan tetapi beberapa teknik heuristik antivirus sudah mampu mendeteksi malware tipe VBS seperti ini. Sebut saja SlowButSure.vbs, Mahadewa.vbs, atau Kalong.vbs yang source codenya banyak di share di forum, blog atau website personal. Dini.vbs juga temasuk salah satu worm VBS yang sebenarnya memodifikasi source code worm lain. Terdapat pola umum yang mungkin bisa menjadi acuan bahwa worm tersebut adalah modifikasi.

1. Setelah baris pendeklarasian variabel (DIM), biasanya pada baris berikutnya berisi source code autorun.inf
2. Pembuatan file induk di folder WINDOWS / system32
3. Membuat Worm dan autorun.inf di setiap drive termasuk flash disk.
4. Membuat pertahan atau membuat value key baru pada registry
5. Hentikan Script tiap 2 menit sekali
6. Jalankan Explorer.exe jika menjalankan worm.
Pola seperti ini hampir sudah pasti terdeteksi oleh antivirus luar negeri ataupun antivirus lokal. Ada juga teknik pengenkripsian code namun teknik seperti ini juga tidak selalu berhasil.

C. Companion/File yang dibuat
Dini.vbs tidak banyak membuat companionterhitung hanya 3 buah file yang di drop jika worm ini di eksekusi.
1. Membuat host di folder system32 dengan nama VHCK3D.vbs, “C:\WINDOWS\system32\VHCK3D.vbs”
2. Menyebarkan file “VHCK3D.vbs” dan “Autorun.inf” di setiap drive dan flash disk yang terhubung dengan komputer yang terinfeksi.

D. Hasil Infeksi
Setelah aktif di memory, worm ini banyak melakukan pertahan terutama penginjeksian dan penulisan value key di registry:
Disable Show Super Hidden Field
Disable Perubahan Wallpaper
Disable Search dan Folder Options
Disable Run Command
Disable Burning CD/DVD
Disable Klik kanan
Disable TrayIkon
Disable Shortkey dan Menghilangkan Shortcut termasuk file-file pada dekstop
Disable System Information
Menghilangkan tombol Logoff dan Turnoff
Disable Control Panel
Disable Task Manager, Registy Editor, dan Command Prompt
Disable System Restore dan install MSI File
Worm ini juga otomatis menjalankan aplikasi “Notepad.exe” jika menjalankan file dengan nama:
cmd.exe, install.exe, msconfig.exe, regedit.exe, regedt32.exe, RegistryEditor.exe, setup.exe, avscan.exe, avcenter.exe, ashAvast.exe, viremoval.exe, PCMAV-CLN.exe, PCMAV-RTP.exe, PCMAV.exe, SMP.exe, SmadAV 3.4.exe, GAV.exe, nod32.exe, evest.exe, nod32kui.exe, Opera.exe, power remover.exe, power live protector.exe, mawar-av.exe, cav-0.94.exe, CCleaner.exe, procexp.exe, Norman VC.exe, NVC.exe, norman.exe, 123456.exe, 12345.exe, 1234.exe, 123.exe

Tidak ketinggalan Dini.vbs membuat pesan sebelum proses logon.


Worm juga akan mengubah title pada Internet Explorer.



E. Pembersihan
Worm ini telah dikenali dan dapat dibersihkan pada PCMAV 5.0 Update Build2 ini berikut ini.

PCMAV 5.0 Update Build2
Untuk membasmi virus ini ataupun varian virus lainnya, PCMAV 5.0 Update Build2 telah hadir dengan penambahan 68 pengenal varian virus baru. Bagi Anda pengguna PCMAV 5.0, sangat disarankan segera melakukan update, agar PCMAV Anda dapat mengenali dan membasmi virus lebih banyak lagi.
Untuk mendapatkan dan menggunakan update PCMAV ini, Anda cukup menjalankan PCMAV.exe, komputer harus dalam keadaan aktif terhubung ke Internet. Jika koneksi Internet menggunakan proxy, tentukan konfigurasi proxy pada file proxy.txt . Fitur Automatic Updates dari PCMAV akan secara otomatis men-download dan meng-update database dari PCMAV. Anda juga dapat mengupdate kapan saja dengan klik kanan icon PCMAV pada system tray dan pilih Update.
Bagi Anda yang ingin mendapatkan file update tersebut secara manual, Anda bisa men-download file-nya melalui beberapa link ini:
SendSpace.com
ZippyShare.com (mirror)
Rapidshare.com (mirror)
Letakkan file hasil download tersebut (update.vdb) ke dalam folder \vdb. Jika sebelumnya telah terdapat file update yang lama, Anda cukup menimpanya. Pastikan sekali lagi, bahwa nama file update adalah update.vdb, jika berbeda, cukup ubah namanya. Dan nanti saat Anda kembali menjalankan PCMAV, ia sudah dalam keadaan kondisi ter-update.

Daftar tambahan virus hingga PCMAV 5.0 Update Build2:
Arzon.C
Autoit-ReplaceIcon.D
Autoit-ReplaceIcon.E
Autoit-ReplaceIcon.F
Autoit.FF
Autoit.FF.inf
Autoit.FG
Autoit.FG.bat
Autoit.FH
Autoit.FH.inf
CoolFace-Mutant.I
Crazya
Crazya.inf
Cronograma.A
Cronograma.A.dropper
Cronograma.A.hosts
Cronograma.B
Cronograma.B.dropper
Cronograma.B.hosts
DHelp
DHelp.exe
Dini.vbs.A
Dini.vbs.B
Dini.vbs.inf
FakeCalc
FakeCalc.exe.A
FakeCalc.exe.B
Fanny.lnk.G
Gen.VBVimaker.setup
Gen.VBVimaker.setup.SN
Gen.VBVimaker.setup.txt.A
Gen.VBVimaker.setup.txt.B
Gen.VirVBS.B
Locatory.B
MehranRasa
MehranRasa.jpg
Ramnit.A.Variant
Ramnit.B.Variant
Ramnit.C.Variant
Ramnit.D.Variant
Ramnit.E.Variant
Ramnit.F.variant
Ronkor.C
Ronkor.C.htt
Ronkor.C.txt
Rrlf.exe
SennaSpy
SennaSpy.dat
SennaSpy.exe.A
SennaSpy.exe.B
SennaSpy.lnk
SennaSpy.txt
Seppeto
SystemTools
ViewFiles
XSample.vbs
XSample.vbs.inf
XSample.vbs.ini
XSample.vbs.lnk.A
XSample.vbs.lnk.B
XSample.vbs.lnk.C
XSample.vbs.lnk.D
XSample.vbs.lnk.E
XSample.vbs.lnk.F
XSample.vbs.mp3
Zed-Macro
ZeroTolerance.A
ZeroTolerance.B

Source : http://virusindonesia.com/

KLIK tuk melanjutkan »

Cara Menyimpan Bookmarks di IE, Chrome Firefox, dan Opera

Anda ingin menyimpan bookmark Anda di IE, Firefox, Opera dan Google Chrome sehingga Anda dapat memulihkan mereka dalam kasus jika Anda perlu menginstal ulang sistem operasi Anda atau memindahkan mereka dari satu komputer ke komputer lain? Posting ini akan menunjukkan cara untuk menyimpan dan memulihkan bookmark dalam langkah-langkah sederhana. Bookmark halaman web favorit dapat menghemat banyak waktu karena menjadi hampir mustahil untuk mengingat daftar situs web favorit dan URL mereka. Namun dapat benar-benar frustasi pada saat Anda kehilangan semua bookmark yang disimpan dalam kasus jika crash komputer. Juga jika Anda adalah orang yang menggunakan lebih dari satu komputer maka menjadi sulit untuk menyalin semua bookmark yang disimpan satu per satu secara manual.Jadi menyimpan bookmark dapat menjadi berguna dalam situasi seperti itu. Berikut adalah cara untuk melakukannya. 

Menyimpan file Bookmark di Internet Explorer 
 1. Dari menu File, pilih opsi Impor dan Ekspor. 2. Pilih opsi Ekspor ke file dan klik Next. 3. Pada layar berikutnya Favorit pilih dan klik Next. 4. Pada layar berikutnya lagi klik Favorites dan klik Next. 5. Sekarang pilih tujuan di mana Anda ingin menyimpan bookmark Anda dan klik Ekspor. 6. Pada layar berikutnya klik pada Finish. 

Sekarang Anda telah berhasil menyelamatkan semua bookmark Anda dalam file HTM. Anda dapat menggunakan file ini untuk kemudian mengembalikan penanda baik IE, Firefox atau browser lainnya. Untuk mengimpor penanda diselamatkan dari sebuah file semua yang perlu Anda lakukan adalah goto menu File, klik Impor dan Ekspor, pilih opsi Impor dari file dan lanjutkan dengan petunjuk pada layar. 

Menyimpan file Bookmark di Firefox 
 1. Dari menu Bookmarks di atas pilih opsi Organize Bookmarks. 2. Sebuah jendela akan pop-up. Dari jendela klik pada Impor dan Backup di bagian atas dan pilih opsi Ekspor HTML. 3. Sekarang pilih tujuan di mana Anda ingin menyimpan file bookmark dan klik Simpan. Untuk mengembalikan file yang disimpan, ikuti langkah 1 dan pada langkah-2 pilih opsi Impor Ekspor HTML bukan HTML dan melanjutkan. 
  
Menyimpan file Bookmark di Google Chrome 
 1. Dari menu Tools, pilih Bookmark Manager. 2. Klik menu Atur di manajer. 3. Pilih Ekspor bookmark. 4. Pilih lokasi dimana anda ingin file yang diekspor yang akan disimpan, kemudian klik Simpan. Untuk mengembalikan bookmark, ikuti langkah-1, langkah-2 dan pada langkah-3 penanda Impor pilih bukannya bookmark Ekspor dan melanjutkan. 
  
Menyimpan file Bookmark di Opera 
 1. Dari menu File, pilih opsi Impor dan Ekspor. 2. Gulir ke menu pull-down di sebelah kanan dan pilih Bookmark Ekspor sebagai HTML. 3. Pada layar berikutnya, pilih folder tujuan dari menu Simpan dalam kotak teks di bagian atas layar. 4. Cukup klik tombol Simpan dan selesai.

KLIK tuk melanjutkan »

Komunikasi data AVR dan PC menggunakan RS-485

Project ini hanya sebagai contoh saja, bagaimana menghubungkan beberapa microcontroller (dlm contoh ini Atmega8535) dgn PC melalui port serial dengan menggunakan RS-485.

perbandingan rs232 dan rs485:

-rs232 hanya menghubungkan antara 2  host (pc ke pc atau pc ke microcontroller) dan jarak maximal kira2  15 meter saja
-Rs485 bisa menghubungkan  beberapa host  ( 1  master dan beberapa slave )  master bisa berupa PC atau Microcontroller dan slave bisa beberapa PC atau microcontroller.

Komponen yang dibutuhkan:

1.  Rs232 to rs485 Converter

2.  modul Atmega8535 + IC max485

3.  CodeVision versi trial  (download gratis)

4.  Kabel telpon  (tergantung jarak PC dgn modul Atmega8535)

Rangkaian :

Rs-485 network

Detail rangkaian slave (microcontroller Atmega8535)

Client-RS-485

Code program dalam Visaual Basic 6:

Private Declare Function GetTickCount Lib “kernel32″ () As Long

Dim Timeout As Boolean

Dim data_pantulan As String

Dim perintah As String

Dim messagetosend As Variant

Dim transferprogress As Boolean

‘============================

Private Sub Form_Load()

If MSComm1.PortOpen = True Then Exit Sub

MSComm1.Settings = “9600,N,8,1″

MSComm1.CommPort = 1

MSComm1.PortOpen = True

End Sub

Private Sub kirimdata_Click()

txtdata_dari_slave.Text = “”

MSComm1.RTSEnable = False

Sleep (300)

MSComm1.Output = txtdatatosend.Text

Sleep (300)

MSComm1.RTSEnable = True

Call getResponse

End Sub

Private Sub getResponse()

Static responseBuffer As String

Dim inbuff As Variant

Dim length As Integer

Dim pcount As Long

Dim ccount As Long

Dim duration As Long

duration = 1000

pcount = GetTickCount()

Do While True

inbuff = MSComm1.Input

If Len(inbuff) > 0 Then

responseBuffer = responseBuffer + inbuff

length = Len(responseBuffer)

If responseBuffer <> “” Then

txtdata_dari_slave.Text = responseBuffer   ‘ received a complete response string

responseBuffer = “”

Exit Sub

Else

End If

End If

ccount = GetTickCount()

If ccount >= pcount + duration Then Exit Do  ‘

Loop

txtdata_dari_slave.Text = “no response”

End Sub

===================================================

‘jika slave nya banyak ( contoh disini ada 8 slave)

Private Sub PollSlave()

Dim no_slave As Integer

Dim buffer As Variant

Dim alamat As Integer

Dim ack As Boolean

Dim reply As Boolean

Dim data_dari_slave As String

alamat = &H67

transferprogress = True

‘mengirim alamat node tunggu ack ,kirim perintah  dan menunggu reply data

‘kemudian simpan hasil

For no_slave = 1 To 8

‘txtno_slave.Text = no_slave

‘======hapus inbuffer dan outbuffer

MSComm1.OutBufferCount = 0

If MSComm1.InBufferCount > 0 Then

buffer = MSComm1.Input

End If

‘===================================

Call enabletransmitter ‘ –>

alamat = alamat + 1   ‘ alamat = 68h,69h,6Ah,6Bh,6Ch,6Dh,6Eh,6Fh

alamat_slave = Chr(alamat)

txtno_slave.Text = alamat_slave

buffer = Chr(alamat)

‘MsgBox buffer

‘kirim alamat ke i

MSComm1.Output = buffer

‘=======================================================================

Do ‘tunggu pantulan byte alamat yg dikirim

txtstatus.Text = “tunggu pantulan alamat = ” & buffer

tmrTimeout.Enabled = True

Timeout = False

‘===============sampe trima 1 byte alamat pantulan

Call disabletransmitter  ‘<–

Do

DoEvents

Loop Until (MSComm1.InBufferCount >= 1) Or (Timeout = True)

‘=================

If Timeout = False Then

tmrTimeout.Enabled = False

‘baca byte pantulan  dan bandingkan dgn yg dikirim

data_pantulan = MSComm1.Input

txtalamatslave.Text = txtalamatslave.Text & Asc(data_pantulan)

If StrComp(data_pantulan, alamat_slave, vbBinaryCompare) <> 0 Then

ack = True

txtstatus.Text = “alamat sama okehh”

Else

ack = False

txtstatus.Text = ” alamat  beda”

End If

Else

lbtimeout.Caption = “waiting adress timeout slave no ” & no_slave

ack = False

End If

Loop Until ack = True Or Timeout = True

tmrTimeout.Enabled = False

Timeout = False

‘=========================================================================

txtinbuffer.Text = ” count= ” & MSComm1.InBufferCount & “  size = ” & MSComm1.InBufferSize & “  isi = ” & MSComm1.Input

If ack = True Then

‘================================================================

Call enabletransmitter  ‘–>  Out

perintah = “b”  ‘kirim perintah baca data output

messagetosend = perintah

tmrTimeout.Interval = 1000

tmrTimeout.Enabled = True

ack = False

MSComm1.Output = messagetosend

Call disabletransmitter  ‘<– IN

Do

Timeout = False

Do

DoEvents

Loop Until (MSComm1.InBufferCount > 4) Or (Timeout = True)

lbtimeoutdata.Caption = “waiting reply data timeout slave no ” & no_slave

If Timeout = False Then

tmrTimeout.Enabled = False

data_dari_slave = MSComm1.Input

reply = True

If StrComp(Asc(Left(data_dari_slave, 1)), alamat, vbBinaryCompare) <> 0 Then

txtoutput_ok.Text = data_dari_slave

‘ txtoutput_ng.Text = Asc(Val(“&h” & Mid(data_dari_slave, 4, 2)))

‘simpanhasil(no_slave,output_ok,output_ng)

txtdata_dari_slave.Text = txtdata_dari_slave.Text & Asc(data_dari_slave)

txtstatus.Text = “alamat cocok”

Else

‘alamat data tdk cocok

txtstatus.Text = “alamat tdk cocok”

End If

Else

lbtimeoutdata.Caption = “waiting reply data timeout slave no ” & no_slave

End If

Loop Until reply = True Or Timeout = True

tmrTimeout.Enabled = False

‘====================================================

End If

txtoutbuffer.Text = ” count= ” & MSComm1.OutBufferCount & “  size = ” & MSComm1.OutBufferSize

Next no_slave

transferprogress = False

tmrTimeout.Enabled = False

txtstatus.Text = “selesai 1 loop”

End Sub

===================================================

Sofware untuk microcontroller Atmega8535 sebagai slave

=====================================================

contoh  Program Avr Atmega8535

#include <mega8535.h>

#asm

.equ __lcd_port=0×15

#endasm

#include <lcd.h>

#include <stdio.h>

#include <delay.h>

#include <ctype.h>

//char lcd_buffer[33];         //-128 to 127

unsigned char  r_index, r_buffer[40], r_char; //0 to 255

void main(void)

{

lcd_init(16);

UCSRA=0×00;

UCSRB=0×98;

UCSRC=0×86;

UBRRH=0×00;

UBRRL=0×47;

delay_ms(500);

PORTD.7=0;

/*r_buffer[0]=’c’;

r_buffer[1]=’o’;

r_buffer[2]=’b’;

r_buffer[3]=’a’;

r_buffer[4]=”;

*/

delay_ms(500);

lcd_putsf(“test comm”);

#asm(“sei”)

while(1) {

r_index=0;

//  UCSRB.7=1;

lcd_puts(r_buffer);  //display data di ram, klo di flash pake lcd_putsf

}

}

interrupt [USART_RXC] void usart_rx_complete(void)

{

lcd_clear();

r_char= toascii(UDR);

if(r_char==’u’)

{

delay_ms(100);

PORTD.7=1;

delay_ms(300);

lcd_putsf(“85->replied”); //85     79=”, 80=p 81=q 82=r  83=s 84=t

delay_ms(200);

putchar(‘u’) ;

}

else if(r_char==’y’)

{

delay_ms(100);

PORTD.7=1;

delay_ms(300);

lcd_putsf(“89->replied”); //89     79=”, 80=p 81=q 82=r  83=s 84=t

delay_ms(200);

putchar(‘y’) ;

}

else

{

if (r_char != ‘x’)   //88

{

r_buffer[r_index++]=r_char;

}

else

{

putchar(‘\n’);              //use putchar to avoid overwrite

r_buffer[r_index]=0×00;        //zero terminate

//UCSRB.7=0;

}

delay_ms(100);

PORTD.7=0;

delay_ms(100);

}

}

=============

sumber : http://pccontrol.wordpress.com/2011/04/19/pemrograman-rs-485-dg-visual-basic-6/#comment-12

KLIK tuk melanjutkan »