Info Sararea

Pengguna Windows XP Mulai Terkikis

2012-01-21T18:31:00.000-08:00

CALIFORNIA - Keinginan Microsoft agar pengguna Windows XP ramai-ramai pindah ke versi terbaru dari Windows terbukti berhasil. Sebab, saat ini jumlah pemakai OS paling banyak digunakan itu sukses turun drastis. Demikian laporan terbaru dari StatCounter.

Menurut perusahaan riset tersebut, jumlah pengguna XP sampai dengan Desember 2011 menurun drastis. Banyak dari pengguna komputer kini sudah mulai 'rela' untuk pindah ke Windows 7. Bahkan menurut statis riset tersebut, pengguna Windows 7 hampir melewati pengguna XP.

Dilansir Internet News, Rabu (4/1/2012), saat ini jarak antar pengguna Windows XP dengan Windows lainnya mulai menipis. Ini dikarenakan secara global telah terjadi penurunan sebesar 3,5 persen dari Desember 2011. Apalagi diketahui raksasa software itu secara terang-terangan akan 'membunuh' XP dalam waktu dekat.

Selama setahun pengguna XP kini mengalami penurunan mencapai 48,8 persen, berbanding terbalik dengan kenaikan yang dicapai Windows 7 yang melonjak 44,5 persen dari 27,7 dari tahun lalu.

Namun hal berbeda diraskan oleh Windows Vista telah mengalami penurunan 4,5 persen, dari yang sebelumnya 15,1 persen menjadi 11,4 persen di pasar OS desktop secara global.

Download Yahoo! Messenger 11 Offline Installer

2011-12-18T04:45:00.000-08:00

Download Yahoo! Messenger 11 Terbaru 2011 Offline Installer.YM Terbaru ini dilengkapi dengan berbagai fitur terbaru, di antaranyadapat dihubungkan dengan akun Facebook dan chat Facebook melalui Yahoo!Messenger seperti pada beberapa IM lainnya, serta melihat status danstatus teman kita melalui YM. Mungkin banyak di antara kita yang seringmengalami gagal ketika mengintal Yahoo! messenger secara langsungmelalui koneksi internet. Saat ini masih tersedia Yahoo! Messenger 11versi Beta, semoga versi finalnya dapat segera dirilis. Berikut inisaya sediakan link download YM 11 full, selanjutnya kita dapatmenginstallnya tanpa harus melalui proses unduh lagi (Offline Install).

Download Link:

Download Yahoo! Messenger 11 (Bahasa Inggris)
Download Yahoo! Messenger 11 (Bahasa Indonesia)

Wedding Album Maker Gold.3.21+Serial

2011-12-17T23:06:00.000-08:00

Wedding Album Maker Gold adalah sebuah software untuk membuat sebuah album foto pernikahan berbentuk DVD, dengan adanya fitur desin slide show beberapa theme pilihan yang imajinatif akan menghasilkan sebuah album kenangan pernikahan yang indah yang tidak akan terlupakan.
Semua ini, dikombinasikan dengan utilitas pemburning yang sudah komprehensif, memberikan Anda cara yang lebih cepat, lebih mudah untuk membangun sebuah kreasi Album pernikahan yang profesional

Fitur utama dari Wedding Album Maker Gold meliputi:
No Experience Necessary
Wedding Album Maker Gold hanyalah termudah untuk menggunakan perangkat lunak slideshow. Hal ini dirancang untuk menjadi cukup mudah bagi siapa pun dalam keluarga untuk digunakan. Anda dapat membuat slide pernikahan dinamis dengan klik saja: Tambah foto, desain menu film Anda, dan membakar disk Anda. Anda akan menemukan bahwa Anda dapat melakukan semua pekerjaan dengan cara yang paling alami dan intuitif.

All-in-One Wedding Photo Album Maker
Tidak membutuhkan CD atau DVD burning software. Wedding Album Maker Gold dapat melakukan semua dari awal sampai akhir untuk membuat slideshow DVD. Dan, keseluruhan langkah-langkah sederhana, cepat dan kuat: the-Burn Proof (TM) teknik yang membuat prosedur DVD burning lebih kuat daripada sebelumnya!

Lovely Music, Transition Effects
Burn slideshow Anda dengan gerakan menu DVD dan efek transisi ke DVD dan menonton di TV menggunakan DVD player. Editor slideshow mencakup semua alat yang Anda butuhkan untuk membuat presentasi foto eye-catching. Wedding Album Maker Gold memungkinkan Anda untuk menambahkan musik favorit anda pernikahan untuk pertunjukan slide Anda pernikahan. Kami menyediakan beberapa efek visual yang paling elegan tersedia di pasar. Anda bahkan dapat menyesuaikan banyak dari efek, memberikan Anda pilihan hampir tak terbatas.

Highest Resolution Format On TV
Wedding Album Maker Gold mengoptimalkan foto digital dan menggunakan format tertinggi Resolusi yang didukung oleh sebagian besar DVD player. Teknik ini membuat foto yang besar terlihat di TV.

Professional Hollywood-style DVD Menu Templates
Wedding Album Maker Gold memiliki perpustakaan menu latar belakang profesional yang dirancang dan frame. Mulai dari main-main ke profesional, Anda yakin untuk menemukan latar belakang untuk setiap kesempatan.

Decorate Wedding Photos with Text and Art Clips
Built-in Apa yang Anda Lihat adalah Apa yang Anda Dapatkan editor foto memudahkan untuk menambahkan komentar Anda sendiri untuk foto pernikahan Anda. Posisi, font, warna dan bayangan dari teks yang langsung ditampilkan dengan foto. Ini juga mendukung Seni-klip untuk setiap foto slide yang menakjubkan menambahkan efek khusus untuk slideshow pernikahan Anda.

Multiple Supported Input and Output Formats
Wedding Album Maker dapat mendukung Anda untuk menambahkan luas format output dan masukan kepada slideshow pernikahan.

- Download Installer Wedding Album Maker Gold.3.21 (22.62MB)
- Download Serial Wedding Album Maker Gold.3.21

Cara Installasi:
- Install programnya sampe finish
- Selanjutnya pada Tab Help anda pilih Register

- Masukkan serial yang ada > lalu klik Activate

- Finish and enjoy

Cara Penggunaan:
- Buka programnya
- Anda cukup Drag and Drop foto yang dikehendaki

- Klik pada Transition & Music untuk menentukan Effects
- Klik pada Album Theme dan pilih theme selera anda

- Klik pada Choose Menu

- Masukan sebuah DVD kosong
- Klik pada Burn Disc lalu pada Output Format pilih sesuai selera anda kalo sudah tinggal Klik Burn Now

- Finish

sumber : http://sopweres.wordpress.com

Photo DVD Maker V. 8.10 + serial

2011-12-17T23:04:00.000-08:00

Photo DVD Maker membantu Anda membuat album foto pada disk DVD dapat dimainkan di TV, website, perangkat mobile kering sebagai Apple iPod, Sony PSP, telepon selular. Dengan beberapa klik, Photo DVD Maker Membuat photo slide show tampak profesional dengan latar belakang musik, Pan & Zoom dan efek transisi. Photo DVD Maker mendukung DVD, SVCD dan VCD 2.0, MPEG, MPEG-4, FLV (Flash for Video) sebagai format output, mendukung lebih dari 360 efek transisi yang mengagumkan, Pan & Zoom, anti-Flickering Filter, mendukung Menambahkan musik latar langsung dari musik CD dan Menambahkan teks Makro kering sebagai nama album foto, nama file foto, tanggal, dll. Mendukung sub-judul dan seni klip photo slide Literal Yang menakjubkan menambahkan efek khusus untuk slideshow. Mendukung rekaman suara Juga, anotasi, musik audio pemangkasan dan pengendalian waktu untuk lebih mudah sinkronisasi audio / foto.

Semudah 1-2-3!
Dengan Photo DVD Maker, Anda dapat menggunakan foto digital, gambar, musik, keterangan dan menu interaktif untuk menciptakan slide show kualitas tinggi dalam 3 langkah mudah.

Burn dan Berbagi!
Slide show Burn ke CD dan menonton di TV Mereka menggunakan rumah Anda VCD atau DVD player. Photo DVD Maker menawarkan cara yang mudah dan lengkap untuk Anda untuk membuat foto terlihat profesional DVD CD dari, Anda gambar foto dan musik. Dengan mudah digunakan untuk merancang, Cepat mengatur tata letak menu sendiri, merakit Penuh disesuaikan menunjukkan foto slide, dan membakar tugas akhir Anda sebagai DVD atau VCD. Berbagi kenangan di layar lebar seperti sebelumnya. Tiga langkah – itu saja yang diperlukan untuk membuat foto Anda sendiri video DVD: Tambahkan foto Anda ke tampilan slide, desain menu DVD Anda sendiri, dan membakar disk Anda. Sesederhana itu.

- Format Output Lebih dari Software Slideshow Lainnya
DVD Photo Slideshow memberi Anda lebih banyak pilihan output, Than perangkat lunak tampilan slide lainnya. Buat foto video CD atau DVD itu diputar pada TV Anda dengan pemutar DVD. Menghasilkan file video MPEG untuk PC melihat. Menghasilkan format file MPEG-4 untuk perangkat mobile kering sebagai Apple iPod, Sony PSP, telepon selular dan PDA. Membangun foto siap untuk meng-upload ke YouTube, MySpace slideshow video. Buat SWF Flash slideshow, cocok untuk e-mail atau posting secara online ke situs web Anda. DVD Photo Slideshow melakukan itu semua!

- Menu DVD Professional Templates
Photo DVD Maker fitur perpustakaan latar belakang menu Profesional yang dirancang dan bingkai. Mulai dari main-main ke profesional, Anda yakin untuk menemukan latar belakang untuk setiap kesempatan.

- Desain video Anda sendiri Hollywood-gaya dan gerak menu
Dalam Penambahan perpustakaan pra-desain template, Photo DVD Maker Anda dapat menggunakan foto Anda sendiri dan gambar sebagai latar belakang menu. Anda dapat menetapkan musik latar belakang Anda sendiri, mengatur tombol bab manapun pada layar dan menyesuaikan judul menu dan keterangan. Anda dapat langsung membuat menu DVD pilihan gaya menggunakan efek gerakan dinamis atau bahkan video Anda sendiri sebagai latar belakang menu

- Anotasi foto Anda dengan teks Anda sendiri
Built-in Apa yang Anda Lihat adalah Apa yang Anda Dapatkan editor foto memudahkan untuk menambahkan komentar Anda sendiri untuk foto favorit Anda. Posisi, font, warna dan bayangan dari teks yang ditampilkan dengan Segera foto.

AREA DOWNLOAD:
- INSTALLER
- SERIAL

sumber : http://ajangberkarya.wordpress.com

Remote Mikrotik dari Jarak Jauh dengan Modem Speedy

2011-12-09T19:15:00.001-08:00

Remote Mikrotik dengan benar dan baik. Jika Anda mempunyai server yang menggunakan MikroTik, baik RouterBoard maupun DOM, Anda dapat melakukan remote MikroTik dari jarak jauh menggunakan media jaringan Internet. Anda dapat mengakses MikroTik dengan Winbox dari mana pun dan kapan pun selama masih terhubung dengan Internet. Berikut syarat agar MikroTik dapat di remote dari jarak jauh :

Mempunyai koneksi Internet
Menggunakan modem ADSL (saat ini hanya Speedy)
Mempunyai IP Publik

Berikut adalah daftar modem yang dapat dijadikan remote MikroTik :

TP-Link, D-Link, SMC, ArticoNet, Speedstream, ZyXEL Prestige, Draytex Jiesai (Vigor 2600), Alcatel, Aztech, Sanex, ZTE, Tecom, Astoria, Huawei, dan modem ADSL lainnya.

Berikut adalah cara melakukan konfigurasi pada modem ADSL agar dapat remote MikroTik :

Buka IP modem Anda pada browser. Berikut IP standar yang mungkin digunakan untuk mengakses modem :
- 192.168.1.1
- 192.168.1.254
- Kemungkinan lain IP sudah dirubah oleh pengguna
Jika diperlukan Login, silahkan isi Username dan Password (setiap modem berbeda, cek buku manual)
Cari dan masuk ke menu NAT (setiap modem posisi menu berbeda)
Selanjutnya pilih Virtual Circuit (secara standar, pilih 1)
Selanjutnya klik Virtual Server
Konfigurasi pada kolom yang disediakan pada modem (jika tidak ada, tidak perlu dikonfigurasi)
- Rule index : 1
- Application : Mikrotik (nama bebas sesuai kebutuhan)
- Protocol : ALL atau TCP/UDP
- Start Port Number atau Internal Port start : 80
- End Port Number atau Internal Port start: 8291
- External Port start : 8291
- External Port end : 8291
- Local IP Address : 192.168.1.2 (IP yang terhubung dengan MikroTik)
Jika sudah terisi dengan benar, klik Save atau Simpan

Sekarang Anda sudah bisa remote menggunakan Winbox dengan IP Publik, berikut cara remote MikroTik menggunakan IP Publik :

Lihat dahulu IP Publik pada Internet yang digunakan untuk MikroTik dengan mengunjungi situs myIPaddress.com
Buka aplikasi Winbox yang bisa di unduh di http://www.mikrotik.co.id/download.php
Isikan pada kolom Winbox :
- Connect to : IP Publik MikroTik
- Login dan Password diisikan sesuai konfigurasi MikroTik
Jika sudah, klik Connect

sumber : http://habibnurrahman.com

Colecion Web Dinamis dan Program dari Visual Basic

2011-10-31T06:35:00.001-07:00

Silahkan langsung download aja disini

Membuat Antivirus Sederhana Dengan Menggunakan Visual Basic

2011-10-31T06:32:00.000-07:00

PENDAHULUAN
Sekarang kehadiran para virus maker (–selanjutnya disingkat jadi VM saja) lokal telah membuat gerah para user komputer tanah air. Bisa dibayangkan bila dari sekian banyak virus lokal tidak satu-dua yang menghancurkan data (terutama bagi file office; word, excel, dll…). Bagi para vendor Anti Virus (–selanjutnya disingkat menjadi AV saja) fenomena ini adalah lahan bisnis untuk produk mereka. Sebut saja NORMAN, yang kini men-support perusahaan konsultan virus lokal (–VAKSIN.COM) , Symantec, McAffe, NOD32, dan sebagainya. Dengan menawarkan update definisi software AV tercepat, engine scanner paling sensitif, dan lain-lain merupakan kiat untuk memancing para korban virus membeli dan menggunakan software AV mereka. Bagi penulis sendiri hal ini memang agak memberatkan mengingat update file definisi atau engine AV tsb haruslah melalui koneksi internet. Lalu bagaimana yang tidak mempunyai akses sama sekali? Konsekuensinya iyalah tertinggal dalam hal pengenalan varian virus baru yang pada ujung-ujungnya membuat AV yang sudah terinstall bagai ‘Macan Ompong’. Kalau kita membuat AV sendiri bagaimana? dengan database definisi yang bisa diupdate oleh kita bahkan dapat saling tukar dengan teman? Bisa saja, dengan syarat mau mempelajari sedikit teknik pemograman.Pertama kita harus mengerti bagaimana cara kerja sebuah AV sederhana, pada dasarnya sebuah software AV mempunyai komponen-komponen :

Engine scanner, ini merupakan komponen utama AV dalam mengenali sebuah pattern virus. Engine ini dapat dikelompokkan menjadi statis dan dinamis. Statis dalam hal ini dapat disebut menjadi spesifik terhadap pattern tertentu dari sebuah file virus. Checksum merupakan salah satu contoh dari engine statis ini. Dinamis dalam artian dia mengenali perilaku ‘umum’ sebuah virus. Heuristic menjadi salah satu contohnya.
Database definition, menjadi sebuah referensi dari sebuah pattern file virus. Engine statis sangat bergantung kepada komponen ini.
Decompress atau unpacking engine, khusus untuk pengecekan file-file yang terkompresi (*.rar, *.zip, dll) atau kompresi atau packing untuk file PE seperti UPX, MeW , dll.

Tidak jarang hasil dari pengecekan terhadap file suspect virus menghasilkan false-positive bahkan false-negative (– false-positive berarti file yang bersih dianggap thread oleh AV, dan false-negative berarti file yang 100% thread akan dianggap bersih). Semua itu dapat diakibatkan oleh ketidak-sempurnaan dari engine scanner itu sendiri. Misal
pada contoh kasus Engine String scanner (–Engine scanner yang menyeleksi string-string dari file text-based), bila diterapkan rule 3 out of 5 (– bila AV menemukan 3 dari daftar 5 string kategori malicious) maka AV akan memberikan bahwa file terindikasi sebuah thread yang positif. Padahal file tsb nyatanya tidak menimbulkan efek berbahaya bila dijalankan atau dieksekusi. Kesalahan scanning macam ini lazim ditemukan untuk file-file *.VBS, *.HTML, dll. Untuk penggunaan engine checksum sangat banyak ditemui di beberapa software AV lokal. Checksum yang lazim digunakan diantaranya CRC16, CRC32, MD5, dll. Dikarenakan mudah untuk diimplementasikan. Engine ini sendiri bukannya tanpa cacat, Checksum bekerja dengan memproses byte demi byte dari sebuah file dengan sebuah algoritma tertenu (– tergantung dari jenis checksum yang digunakan) sehingga menghasilkan sebuah format tertentu dari file tsb. Contoh checksum menggunakan CRC32 dan MD5 :

* calCrc = CRC32(file_name_and_path)
* calMD5 = MD5(file_name_and_path)

Maka isi dari string calCrc adalah 7AF9E376, sedangkan untuk MD5nya adalah 529CA8050A00180790CF88B63468826A. Perlu diketahui bila virus menerapkan rutin yang mengubah byte tertentu dari badan virus tsb setiap kali maka penggunaan engine checksum ini akan kurang optimal karena bila 1 byte berubah dari file maka checksum juga akan berubah.

Mari kita belajar membuat sebuah AV sederhana, yang diperlukan :

1. Software Visual Basic 6.0
2. Sedikit pemahaman akan pemograman Visual Basic 6.0
3. Sampel file bersih atau virus (– opsional)

Setelah memahami Pendahuluan diatas. langsung saja kita ke isi materi hari ini yaitu Membuat Antivirus Sederhana Dengan Menggunakan Visual Basic. Berikut caranya :

1.Buka program microsoft visual basic 6.0 -> Standard EXE -> OK maka akan tampil form baru sesuai dengan gambar di bawah,desain form sesuai keinginan anda

http://img546.imageshack.us/img546/987/formawal.png

Beri nama form tersebut : frmUtama

2.Setelah form selesai di rubah namanya tambahkan component Mscomctl.Ocx dengan cara
Klik Project -> Components -> Microsoft Windows Common Controls 6.0 -> lalu klik OK
Contoh seperti gambar di bawah

3.Setelah component sukses di tambahkan langkah selanjutnya adalah menambah Command Button,Textbox,Listview,Picture Box
disini saya menggunakan desain yang sangat sederhana,desain bisa anda rubah sendiri sesuai kreatifitas anda ^^

- Tambahkan Listview kedalam form dan beri nama lvScan

yang saya lingkari merah adalah listview yang telah di tambahkan ke dalam form.

setelah itu setting listview dengan cara
Klik Listview -> Disebelah kanan bawah ada kotak properties -> Custom
lalu ikuti settingan seperti pada gambar di bawah ini

Lalu pada tab Column Headers klik insert column
- Column 1 beri nama : Virus Name
- Column 2 beri nama : Path
- Column 3 beri nama : Checksum Virus
- Column 4 beri nama : Status Virus
lalu klik Ok

Tambahkan picture box buat picture box itu sekecil mungkin dan beri nama sIcon
Setting :
Appearance : Flat
Auto Redraw : True
Border Style : None
Visible : False

Tambahkan Textbox ke dalam form dengan nama txtPath
Setting :
Appearance : Flat
Border Style : None

Tambahkan Command Button dengan nama cmdBrowse di samping Textbox yang telah di buat tadi
Setting :
Caption : ...

Masukan Code ini ke dalam cmdBrowse

Spoiler:

Code:
Dim Pathnya As String
Pathnya = ""
Pathnya = BrowseFolder("Pilih folder yang akan di Scan:", Me)
If Pathnya <> "" Then
txtPath.Text = Pathnya
End If

Code di atas berfungsi untuk membuka kotak dialog yang berisi path" yang ada di dalam komputer lalu mencetaknya ke dalam textbox yang bernama txtPath

Tambahkan label dengan nama default

Setting :

Caption : Dir Scanned

Tambahkan label dengan nama lblDirScan

Setting :

Caption : 0

Tambahkan label dengan nama default

Setting :

Caption : Detected

Tambahkan label dengan nama lblFileDet

Setting :

Caption : 0

Tambahkan label dengan nama default

Setting :

Caption : File Scanned

Tambahkan label dengan nama lblFileScan

Setting :

Caption : 0

Tambahkan Textbox dengan nama txtFileScan

Setting :

Multiline : True

Scroll Bar : 2-Vertical

Tambahkan Command Button dengan nama cmdScan

Setting :

Caption : &Scan

Spoiler:

'Code:
If cmdScan.Caption = "Scan" Then
Pathnya = txtPath.Text
If Mid(Pathnya, 2, 1) <> ":" Or Pathnya = "" Then
MsgBox "Direktori Tidak Ditemukan", vbCritical, "Error"
Exit Sub
Else
lvScan.Enabled = False
cmdEnable False, False, False
clear_log
cmdScan.Caption = "Stop"
StopScan = False
FindFilesEx txtPath.Text, CBool(chkSubDir.Value)
MsgBox "Scan finished !" & vbNewLine & vbNewLine & "Total Dir Scanned = " & lblDirScan.Caption & _
vbNewLine & "Total File Scanned = " & lblFileScan.Caption & vbNewLine & "Total File Detected = " & lblFileDet.Caption, vbInformation, "Finish"
If lblFileDet.Caption <> "0" Then
cmdEnable True, True, True
Else
cmdEnable False, False, True
End If
lvScan.Enabled = True
cmdScan.Caption = "Scan"
End If
Else
cmdScan.Caption = "Scan"
StopScan = True
End If

fungsi kode di atas adalah untuk memulai scan pada antivirus

Tambahkan Command Button dengan nama cmdAction

Setting :

Caption : &Delete

Tambahkan Command Button dengan nama cmdAction

Setting :

Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ

Setting :

Caption : &View Quarantine File

Tambahkan Command Button dengan nama cmdAction

Setting :

Caption : &Delete

Tambahkan kode ini di dalamnya

Spoiler:

'Code:
Dim DftrFile As String
DftrFile = GetSelected(lvScan)
If DftrFile = "" Then
MsgBox "No Detected File(s) Selected", vbCritical, ""
Exit Sub
End If
Select Case Index
Case 0
clean = Action(DftrFile, lvScan, "D")
MsgBox clean & " File(s) has been deleted"
Case 1
clean = Action(DftrFile, lvScan, "Q")
MsgBox clean & " File(s) has been quarantine"
End Select

Fungsi di atas adalah fungsi untuk menghapus/mengkarantina file yang terdeteksi

Tambahkan Command Button dengan nama cmdAction

Setting :

Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ

Setting :

Caption : &View Quarantine File

Lalu masukan code ini ke dalamnya

Spoiler:

Me.hide
frmquarantine.show

Code di atas berfungsi untuk memunculkan form quarantine dan meng enabled form utama

nah selesai untuk memasukan control ke dalam formnya
contoh form yang telah selesai.

lalu klik kanan pada form masukan kode di bawah ini

Spoiler:

/Code:
Private Sub lvScan_ItemCheck(ByVal Item As MSComctlLib.ListItem)
UnSelect lvScan, "Di Karantina"
UnSelect lvScan, "Di Hapus"
End Sub

Private Function cmdEnable(hapus As Boolean, Quarantine As Boolean, openQuarantine As Boolean)
cmdAction(0).Enabled = hapus
cmdAction(1).Enabled = Quarantine
cmdViewQ.Enabled = openQuarantine
End Function

Private Function clear_log()
lblDirScan.Caption = 0
lblFileScan.Caption = 0
lblFileDet.Caption = 0
lvScan.ListItems.Clear
jumlahDir = 0
jumlahFile = 0
jumlahVirus = 0
End Function

lalu di Form_load() masukan kode ini

Spoiler:

'Code:
On Error Resume Next
MkDir "Quarantine"
BuildDatabase

Lalu buatlah 1 module dengan nama modAPI

Lalu tambahkan code di bawah ini

Spoiler:

'Code:
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Public Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long
Public Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Public Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hDC As Long) As Long
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Public Declare Function VirtualAlloc Lib "kernel32" (lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Public Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Public Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Public Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Public Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long) As Long

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_END = 2
Public Const FILE_BEGIN = 0
Public Const FILE_CURRENT = 1
Public Const LWA_COLORKEY = &H1
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Const MAX_PATH = 260
Public Const SW_SHOWNORMAL = 1

Public Type FileTime
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FileTime
ftLastAccessTime As FileTime
ftLastWriteTime As FileTime
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

'untuk browse folder
Public Function BrowseFolder(ByVal aTitle As String, ByVal aForm As Form) As String
Dim bInfo As BROWSEINFO
Dim rtn&, pidl&, path$, pos%
Dim BrowsePath As String
bInfo.hOwner = aForm.hWnd
bInfo.lpszTitle = aTitle
bInfo.ulFlags = &H1
pidl& = SHBrowseForFolder(bInfo)
path = Space(512)
t = SHGetPathFromIDList(ByVal pidl&, ByVal path)
pos% = InStr(path$, Chr$(0))
BrowseFolder = Left(path$, pos - 1)
If Right$(Browse, 1) = "\" Then
BrowseFolder = BrowseFolder
Else
BrowseFolder = BrowseFolder + "\"
End If
If Right(BrowseFolder, 2) = "\\" Then BrowseFolder = Left(BrowseFolder, Len(BrowseFolder) - 1)
If BrowseFolder = "\" Then BrowseFolder = ""
End Function

Public Function StripNulls(ByVal OriginalStr As String) As String
If (InStr(OriginalStr, Chr$(0)) > 0) Then
OriginalStr = Left$(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function

'fungsi untuk menentukan file script atau bukan
Public Function IsScript(Filename As String) As Boolean
IsScript = False
ext = Split("|vbs|vbe", "|")
For i = 1 To UBound(ext)
If LCase(Right(Filename, 3)) = LCase(ext(i)) Then IsScript = True
Next
End Function

Code di atas adalah Fungsi API yang di butuhkan untuk antivirus

Buat 1 module dengan nama modChecksum

masukan code di bawah ini.

Spoiler:

'Code:
Public Function GetChecksum(FilePath As String) As String
Dim CheckSum(1 To 2) As String
CheckSum(1) = CalcBinary(FilePath, 499, 4500)
CheckSum(2) = CalcBinary(FilePath, 499, 4000)
GetChecksum = CheckSum(1) & CheckSum(2)
End Function
Public Function CalcBinary(ByVal lpFileName As String, ByVal lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
On Error GoTo err
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
Exit Function
err:
CalcBinary = "00"
End Function

potongan code di atas di gunakan untuk meng kalkulasi checksum

buat 1 module lagi dengan nama modDatabase

lalu tambahkan code di bawah ini.

Spoiler:

'Code:
Public VirusDB(5), IconDB(48), Bahaya(5) As String
Public Sub BuildDatabase()
Call Checksum_DB
Call IconCompare_DB
Call Script_DB
End Sub
Private Sub Checksum_DB()
VirusDB(1) = "Alman.A|8911D290F723"
VirusDB(2) = "Malingsi.A|A6292EA60230"
VirusDB(3) = "Conficker.A|9EC112ABB2F3"
VirusDB(4) = "N4B3.A|B5CCD36CDB98"
VirusDB(5) = "N4B3.B|A1FE6D6DBE07"
End Sub
Public Sub IconCompare_DB()
On Error Resume Next
IconDB(1) = "20938B2"
IconDB(2) = "19F4ED6"
IconDB(3) = "133BE0B"
IconDB(4) = "18EDEAE"
IconDB(5) = "1EF89C2"
IconDB(6) = "1C915FF"
IconDB(7) = "24563C4"
IconDB(8) = "1B2DB74"
IconDB(9) = "208EA72"
IconDB(10) = "22A064D"
IconDB(11) = "19B64EE"
IconDB(12) = "1D4B7E1"
IconDB(13) = "2087762"
IconDB(14) = "29C7258"
IconDB(15) = "1B18705"
IconDB(16) = "1B5FCAB"
IconDB(17) = "126D4CF"
IconDB(18) = "1C58E5C"
IconDB(19) = "15D7730"
IconDB(20) = "1FB82B7"
IconDB(21) = "112763E"
IconDB(22) = "2165AF9"
IconDB(23) = "25F46BE"
IconDB(24) = "206556B"
IconDB(25) = "22A8D69"
IconDB(26) = "19237F8"
IconDB(27) = "15022B4"
IconDB(28) = "1D8B4EB"
IconDB(29) = "1DBC1EA"
IconDB(30) = "2333F5D"
IconDB(31) = "1F37C2F"
IconDB(32) = "1C9CCA4"
IconDB(33) = "1DFDFB4"
IconDB(34) = "1C1283E"
IconDB(35) = "1F6598C"
IconDB(36) = "27F4C1A"
IconDB(37) = "22F92E0"
IconDB(38) = "191DBDC"
IconDB(39) = "27BFE4A"
IconDB(40) = "20E0907"
IconDB(46) = "2FA4C88"
IconDB(47) = "25AA630"
IconDB(48) = "1DE28E2"
End Sub
Public Sub Script_DB()
On Error Resume Next
Bahaya(1) = "Scripting.FileSystemObject|Wscript.ScriptFullName|WScript.Shell|.regwrite|.copy"
Bahaya(2) = "Wscript.ScriptFullName|createobject|strreverse|.regwrite"
Bahaya(3) = "createobject|Wscript.ScriptFullName|.regwrite|[autorun]"
Bahaya(4) = "createobject|Wscript.ScriptFullName|specialfolder|.regwrite"
Bahaya(5) = "chr(asc(mid(|createobject|Wscript.ScriptFullName|.GetFolder|.RegWrite"
End Sub

potongan code di atas adalah database pada antivirusnya

buat lagi 1 buah module dengan nama modQuar

masukan code yang ada di bawah ini

Spoiler:

Code:
Option Explicit
Public Function EncodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call Coder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Public Function DecodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call DeCoder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Private Sub Coder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Value = 0
For x = 0 To UBound(ByteArray)
Value = Value + ByteArray(x)
If Value > 255 Then Value = Value - 256
ByteArray(x) = Value
Next
End Sub
Private Sub DeCoder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Dim newValue As Integer
newValue = 0
For x = 0 To UBound(ByteArray)
Value = newValue
newValue = ByteArray(x)
Value = ByteArray(x) - Value
If Value < 0 Then Value = Value + 256 ByteArray(x) = Value Next End Sub

Code di atas adalah code untuk enkripsi/dekripsi pada virus yang akan di karantina

Buat lagi 1 module dengan nama modHeuristic

lalu masukan code di bawah ini

Spoiler:

'Code:
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, ByRef phiconLarge As Long, ByRef phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Boolean
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExefileName As String, ByVal nIconIndex As Long) As Long
Private Const DI_MASK = &H1
Private Const DI_IMAGE = &H2
Private Const DI_NORMAL = &H3
Private Const DI_COMPAT = &H4
Private Const DI_DEFAULTSIZE = &H8
Private Const SHGFI_DISPLAYNAME = &H200
Private Const SHGFI_EXETYPE = &H2000
Private Const SHGFI_SYSICONINDEX = &H4000
Private Const SHGFI_LARGEICON = &H0
Private Const SHGFI_SMALLICON = &H1
Private Const ILD_TRANSPARENT = &H1
Private Const SHGFI_SHELLICONSIZE = &H4
Private Const SHGFI_TYPENAME = &H400
Private Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Private SIconInfo As SHFILEINFO
Private SectionHeaders() As IMAGE_SECTION_HEADER
Dim i As Integer
Dim j As Integer
Public Function CekHeuristic(Filename As String)
CekHeuristic = ""
On Error GoTo hError
Dim hFile As Long, bRW As Long
Dim DOSheader As IMAGE_DOS_HEADER
Dim NTHeaders As IMAGE_NT_HEADERS
Dim Filedata As String
DOS_HEADER_INFO = ""
NT_HEADERS_INFO = ""
hFile = CreateFile(Filename, ByVal (GENERIC_READ Or GENERIC_WRITE), FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, ByVal 0)
ReadFile hFile, DOSheader, Len(DOSheader), bRW, ByVal 0&
SetFilePointer hFile, DOSheader.e_lfanew, 0, 0
ReadFile hFile, NTHeaders, Len(NTHeaders), bRW, ByVal 0&
If NTHeaders.Signature <> IMAGE_NT_SIGNATURE Then
If IsScript(Filename) = True Then
Open Filename For Binary As #1
Filedata = Space$(LOF(1))
Get #1, , Filedata
Close #1
CekHeuristic = CekHeur(Filedata)
End If
Exit Function
End If
CekHeuristic = CekIconBinary(Filename)
hError:
End Function
Private Function CekHeur(Data As String)
Dim hsl, asl As Integer
strasli = LCase(Replace(Data, vbNewLine, "$"))
For i = 1 To UBound(Bahaya)
hsl = 0
strData = Split(Bahaya(i), "|")
asl = 0
For k = 0 To UBound(strData)
xxx = LCase(strData(k))
If InStr(strasli, xxx) > 0 Then hsl = hsl + 1
asl = asl + 1
Next
If hsl = asl Then
CekHeur = "Malicious-Script"
Exit Function
End If
Next
CekHeur = ""
End Function
Private Function CekIconBinary(PathFile As String)
Dim q As Integer
Dim IconIDNow As String
CekIconBinary = ""
IconIDNow = CalcIcon(PathFile)
If IconIDNow = "" Then Exit Function
For q = 1 To UBound(IconDB)
If IconDB(q) = IconIDNow Then
CekIconBinary = "Malicious-Icon"
Exit Function
End If
Next q
End Function
Private Function CalcBinary(ByVal lpFileName As String, ByVal lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
End Function
Private Function CalcIcon(ByVal lpFileName As String) As String
Dim PicPath As String
Dim ByteSum As String
Dim IconExist As Long
Dim hIcon As Long
IconExist = ExtractIconEx(lpFileName, 0, ByVal 0&, hIcon, 1)
If IconExist <= 0 Then IconExist = ExtractIconEx(lpFileName, 0, hIcon, ByVal 0&, 1) If IconExist <= 0 Then Exit Function End If frmUtama.sIcon.BackColor = vbWhite DrawIconEx frmUtama.sIcon.hDC, 0, 0, hIcon, 0, 0, 0, 0, DI_NORMAL DestroyIcon hIcon PicPath = Environ$("windir") & "\tmp.tmp" SavePicture frmUtama.sIcon.Image, PicPath ByteSum = CalcBinary(PicPath, FileLen(PicPath)) DeleteFile PicPath CalcIcon = ByteSum End Function

Fungsi di atas adalah fungsi untuk mengecek suatu file dengan metode heuristic icon + heuristic untuk virus VBS

Buat 1 module dengan nama modIconCompare

lalu masukan code di bawah ini

Spoiler:

'Code:
Option Explicit
Private Const SHGFI_DISPLAYNAME = &H200, SHGFI_EXETYPE = &H2000, SHGFI_SYSICONINDEX = &H4000, SHGFI_LARGEICON = &H0, SHGFI_SMALLICON = &H1, SHGFI_SHELLICONSIZE = &H4, SHGFI_TYPENAME = &H400, ILD_TRANSPARENT = &H1, BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Public Type SHFILEINFO
hIcon As Long: iIcon As Long: dwAttributes As Long: szDisplayName As String * MAX_PATH: szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbSizeFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function ImageList_Draw Lib "comctl32.dll" (ByVal himl As Long, ByVal i As Long, ByVal hdcDest As Long, ByVal x As Long, ByVal y As Long, ByVal flags As Long) As Long
Private shinfo As SHFILEINFO, sshinfo As SHFILEINFO
Private Declare Function DrawIconEx Lib "user32.dll" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private SIconInfo As SHFILEINFO

Public Enum IconRetrieve
ricnLarge = 32
ricnSmall = 16
End Enum

Public Sub RetrieveIcon(fName As String, DC As PictureBox, icnSize As IconRetrieve)
Dim hImgSmall, hImgLarge As Long
Debug.Print fName
Select Case icnSize
Case ricnSmall
hImgSmall = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_SMALLICON)
Call ImageList_Draw(hImgSmall, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
Case ricnLarge
hImgLarge& = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
Call ImageList_Draw(hImgLarge, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
End Select
End Sub
Public Function ExtractIcon(Filename As String, AddtoImageList As ImageList, PictureBox As PictureBox, PixelsXY As IconRetrieve, iKey As String) As Long
Dim SmallIcon As Long
Dim NewImage As ListImage
Dim IconIndex As Integer
On Error GoTo Load_New_Icon
If iKey <> "Application" And iKey <> "Shortcut" Then
ExtractIcon = AddtoImageList.ListImages(iKey).Index
Exit Function
End If
Load_New_Icon:
On Error GoTo Reset_Key
RetrieveIcon Filename, PictureBox, PixelsXY
IconIndex = AddtoImageList.ListImages.Count + 1
Set NewImage = AddtoImageList.ListImages.Add(IconIndex, iKey, PictureBox.Image)
ExtractIcon = IconIndex
Exit Function
Reset_Key:
iKey = ""
Resume
End Function
Public Sub GetLargeIcon(icPath$, pDisp As PictureBox)
Dim hImgLrg&: hImgLrg = SHGetFileInfo(icPath$, 0&, SIconInfo, Len(SIconInfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
ImageList_Draw hImgLrg, SIconInfo.iIcon, pDisp.hDC, 0, 0, ILD_TRANSPARENT
End Sub

kode di atas di butuhkan untuk metode heuristic icon pada antivirus

Buat 1 module dengan nama modLV

lalu masukan code di bawah ini

Spoiler:

'Code:
Public Function GetSelected(TheLV As ListView)
Dim Sel As String
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).Checked = True Then
Sel = Sel & "|" & TheLV.ListItems.Item(i).SubItems(1)
End If
Next
GetSelected = Sel
End Function

Public Function SelectedAll(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = True
Next
End Function

Public Function SelectedNone(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = False
Next
End Function

Public Function GetIndex(TheLV As ListView, Data As String) As Integer
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(1) = Data Then
GetIndex = i
End If
Next
End Function

Public Function UnSelect(TheLV As ListView, Data As String)
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(3) = Data Then
TheLV.ListItems.Item(i).Checked = False
End If
Next
End Function

Public Function AddDetect(TheLV As ListView, FilePath As String, VirData As String)
With TheLV
If Left(VirData, 9) <> "Malicious" Then
Set lvItm = .ListItems.Add(, , Split(VirData, "|")(0), , frmUtama.ImgSmall.ListImages(1).Index)
lvItm.SubItems(1) = FilePath
lvItm.SubItems(2) = Split(VirData, "|")(1)
lvItm.SubItems(3) = "Virus File"
Else
Set lvItm = .ListItems.Add(, , VirData, , frmUtama.ImgSmall.ListImages(1).Index)
lvItm.SubItems(1) = FilePath
lvItm.SubItems(2) = GetChecksum(FilePath)
lvItm.SubItems(3) = "Virus File"
End If
End With
End Function

Code di atas berguna untuk dengatur Listview pada saat virus terdeteksi

Buat 1 module dengan nama modPE

lalu masukan code di bawah ini

Spoiler:

'Code:
Public Type IMAGE_DOS_HEADER
e_magic As Integer
e_cblp As Integer
e_cp As Integer
e_crlc As Integer
e_cparhdr As Integer
e_minalloc As Integer
e_maxalloc As Integer
e_ss As Integer
e_sp As Integer
e_csum As Integer
e_ip As Integer
e_cs As Integer
e_lfarlc As Integer
e_ovno As Integer
e_res(1 To 4) As Integer
e_oemid As Integer
e_oeminfo As Integer
e_res2(1 To 10) As Integer
e_lfanew As Long
End Type

Public Type IMAGE_SECTION_HEADER
nameSec As String * 6
PhisicalAddress As Integer

VirtualSize As Long
VirtualAddress As Long
SizeOfRawData As Long
PointerToRawData As Long
PointerToRelocations As Long
PointerToLinenumbers As Long
NumberOfRelocations As Integer
NumberOfLinenumbers As Integer
Characteristics As Long

End Type

Public Type IMAGE_DATA_DIRECTORY
VirtualAddress As Long
size As Long
End Type

Public Type IMAGE_OPTIONAL_HEADER
Magic As Integer
MajorLinkerVersion As Byte
MinorLinkerVersion As Byte
SizeOfCode As Long
SizeOfInitializedData As Long
SizeOfUninitializedData As Long
AddressOfEntryPoint As Long
BaseOfCode As Long
BaseOfData As Long
ImageBase As Long
SectionAlignment As Long
FileAlignment As Long
MajorOperatingSystemVersion As Integer
MinorOperatingSystemVersion As Integer
MajorImageVersion As Integer
MinorImageVersion As Integer
MajorSubsystemVersion As Integer
MinorSubsystemVersion As Integer
Win32VersionValue As Long
SizeOfImage As Long
SizeOfHeaders As Long
CheckSum As Long
Subsystem As Integer
DllCharacteristics As Integer
SizeOfStackReserve As Long
SizeOfStackCommit As Long
SizeOfHeapReserve As Long
SizeOfHeapCommit As Long
LoaderFlags As Long
NumberOfRvaAndSizes As Long
DataDirectory(0 To 15) As IMAGE_DATA_DIRECTORY
End Type

Public Type IMAGE_FILE_HEADER
Machine As Integer
NumberOfSections As Integer
TimeDateStamp As Long
PointerToSymbolTable As Long
NumberOfSymbols As Long
SizeOfOptionalHeader As Integer
Characteristics As Integer
End Type

Public Type IMAGE_NT_HEADERS
Signature As Long
FileHeader As IMAGE_FILE_HEADER
OptionalHeader As IMAGE_OPTIONAL_HEADER
End Type

Public Type IMAGE_EXPORT_DIRECTORY
Characteristics As Long
TimeDateStamp As Long
MajorVersion As Integer
MinorVersion As Integer
Name As Long
Base As Long
NumberOfFunctions As Long
NumberOfNames As Long
AddressOfFunctions As Long
AddressOfNames As Long
AddressOfNameOrdinals As Long
End Type

Public Type IMAGE_IMPORT_DESCRIPTOR
OriginalFirstThunk As Long
TimeDateStamp As Long
ForwarderChain As Long
Name As Long
FirstThunk As Long
End Type

Public Type IMAGE_IMPORT_BY_NAME
Hint As Integer
Name As String * 255
End Type

Public Const IMAGE_SIZEOF_SECTION_HEADER = 40
Public Const IMAGE_DOS_SIGNATURE = &H5A4D
Public Const IMAGE_NT_SIGNATURE = &H4550
Public Const IMAGE_ORDINAL_FLAG = &H80000000

Public Enum SECTION_CHARACTERISTICS
IMAGE_SCN_LNK_NRELOC_OVFL = &H1000000 'Section contains extended relocations.
IMAGE_SCN_MEM_DISCARDABLE = &H2000000 'Section can be discarded.
IMAGE_SCN_MEM_NOT_CACHED = &H4000000 'Section is not cachable.
IMAGE_SCN_MEM_NOT_PAGED = &H8000000 'Section is not pageable.
IMAGE_SCN_MEM_SHARED = &H10000000 'Section is shareable.
IMAGE_SCN_MEM_EXECUTE = &H20000000 'Section is executable.
IMAGE_SCN_MEM_READ = &H40000000 'Section is readable.
IMAGE_SCN_MEM_WRITE = &H80000000 'Section is writeable.
End Enum

Public Enum IMAGE_DIRECTORY
IMAGE_DIRECTORY_ENTRY_EXPORT = 0 ' Export Directory
IMAGE_DIRECTORY_ENTRY_IMPORT = 1 ' Import Directory
IMAGE_DIRECTORY_ENTRY_RESOURCE = 2 ' Resource Directory
IMAGE_DIRECTORY_ENTRY_EXCEPTION = 3 ' Exception Directory
IMAGE_DIRECTORY_ENTRY_SECURITY = 4 ' Security Directory
IMAGE_DIRECTORY_ENTRY_BASERELOC = 5 ' Base Relocation Table
IMAGE_DIRECTORY_ENTRY_DEBUG = 6 ' Debug Directory
IMAGE_DIRECTORY_ENTRY_ARCHITECTURE = 7 ' Architecture Specific Data
IMAGE_DIRECTORY_ENTRY_GLOBALPTR = 8 ' RVA of GP
IMAGE_DIRECTORY_ENTRY_TLS = 9 ' TLS Directory
IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG = 10 ' Load Configuration Directory
IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT = 11 ' Bound Import Directory in headers
IMAGE_DIRECTORY_ENTRY_IAT = 12 ' Import Address Table
IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT = 13 ' Delay Load Import Descriptors
IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR = 14 ' COM Runtime descriptor
End Enum

code di atas berfungsi untuk pengecekan PE HEADER

buat 1 module dengan nama modScanning

lalu tambahkan code di bawah ini

Spoiler:

'Code:
Public jumlahDir As Long, jumlahFile As Long, jumlahVirus As Long
Public StopScan As Boolean

Public Function CekVirus(FilePath As String) As String
CekVirus = ""
For i = 1 To UBound(VirusDB)
If GetChecksum(FilePath) = Split(VirusDB(i), "|")(1) Then
CekVirus = VirusDB(i)
Exit Function
End If
Next
If FileLen(FilePath) / 1024 <= 512 Then CekVirus = CekHeuristic(FilePath) End If End Function Public Sub FindFilesEx(ByVal lpFolderName As String, ByVal SubDirs As Boolean) Dim i As Long Dim hSearch As Long, WFD As WIN32_FIND_DATA Dim Result As Long, CurItem As String Dim tempDir() As String, dirCount As Long Dim RealPath As String, GetViri As String GetViri = "" dirCount = -1 ScanInfo = "Scan File" If Right$(lpFolderName, 1) = "\" Then RealPath = lpFolderName Else RealPath = lpFolderName & "\" End If hSearch = FindFirstFile(RealPath & "*", WFD) If Not hSearch = INVALID_HANDLE_VALUE Then Result = True Do While Result DoEvents If StopScan = True Then Exit Do CurItem = StripNulls(WFD.cFileName) If Not CurItem = "." And Not CurItem = ".." Then If PathIsDirectory(RealPath & CurItem) <> 0 Then
jumlahDir = jumlahDir + 1
frmUtama.lblDirScan.Caption = jumlahDir
If SubDirs = True Then
dirCount = dirCount + 1
ReDim Preserve tempDir(dirCount) As String
tempDir(dirCount) = RealPath & CurItem
End If
Else
jumlahFile = jumlahFile + 1
frmUtama.lblFileScan.Caption = jumlahFile
frmUtama.txtFileScan.Text = RealPath & CurItem
frmUtama.txtFileScan.SelStart = Len(frmUtama.txtFileScan.Text)
If WFD.nFileSizeLow > 5120 Or WFD.nFileSizeHigh > 5120 Then
GetViri = CekVirus(RealPath & CurItem)
If GetViri <> "" Then
AddDetect frmUtama.lvScan, RealPath & CurItem, GetViri
jumlahVirus = jumlahVirus + 1
frmUtama.lblFileDet.Caption = jumlahVirus
End If
End If
End If
End If
Result = FindNextFile(hSearch, WFD)
Loop
FindClose hSearch

If SubDirs = True Then
If dirCount <> -1 Then
For i = 0 To dirCount
FindFilesEx tempDir(i), True
Next i
End If
End If
End If
End Sub

Code di atas adalah code untuk scan file & folder pada antivirus

buat 1 module dengan nama modEtc

masukan code di bawah ini

Spoiler:

'Code:
Public Function Action(Data As String, TheLV As ListView, Mode As String)
Dim Filedata() As String
Dim fName, tmp, Status As String
Dim y As Integer
Filedata = Split(Data, "|")
For i = 1 To UBound(Filedata)
a = a + 1
If Mode = "Q" Then
fName = GetFileName(Filedata(i))
EncodeFile Filedata(i), AppPath & "Quarantine\" & Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
AddQList TheLV, Filedata(i), Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
DeleteFile Filedata(i)
Status = "Di Karantina"
ElseIf Mode = "D" Then
DeleteFile Filedata(i)
Status = "Di Hapus"
End If
y = GetIndex(TheLV, Filedata(i))
With TheLV.ListItems.Item(y)
.SubItems(3) = Status
.Checked = False
.SmallIcon = frmUtama.ImgSmall.ListImages(2).Index
End With
Next
Action = a
End Function

Public Function AddQList(TheLV As ListView, FilePath As String, Source As String)
Dim Dat As String
Dat = AppPath & "Quarantine\HN.dat"
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
namavir = TheLV.ListItems(GetIndex(TheLV, FilePath))
If InStrRev(isi, Source, , vbTextCompare) = 0 Then
Open Dat For Output As #2
Print #2, isi & "|" & namavir & "?" & FilePath & "?" & Source
Close #2
Else
Open Dat For Output As #3
Print #3, isi
Close #3
End If
End Function

Public Function GetFileName(PathFile As String) As String
Dim i As Long
Dim DirString As Long
For i = 1 To Len(PathFile)
If Mid$(PathFile, i, 1) = "\" Then DirString = i
Next i
GetFileName = Right$(PathFile, Len(PathFile) - DirString)
End Function

Public Function GetExt(ByVal lpFileName As String)
Dim sTemp As String
Dim i As Long
sTemp = GetFileName(lpFileName)
If InStr(lpFileName, ".") Then
For i = 0 To Len(sTemp) - 1
If Mid$(sTemp, Len(sTemp) - i, 1) = "." Then
GetExt = Mid$(sTemp, Len(sTemp) - i, i)
Exit Function
End If
Next i
End If
End Function

Code di atas adalah kumpulan fungsi etc untuk scanning,karantina,delete

Ini adalah tampilan antivirus setelah di berikan module

sekarang tinggal cara membuat form quarantinenya,

caranya adalah sebagai berikut pada gambar berikut

setelah form baru sudah di buat,lalu rubah nama formnya menjadi frmQuarantine

Tambah 1 buah listview dengan nama lvQ

lalu setting listview tersebut sesuai dengan gambar di bawah ini,cara setting listview sudah tertera diatas.

Tambahkan 3 buah Command button dengan nama

- cmdDelete

- cmdRestore

- cmdRestore(1)

Tambahkan code di bawah ini ke dalam Command [ cmdDelete ]

Spoiler:

'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Dim Data() As String
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
Data = Split(isi, "|")
For i = 1 To UBound(Data)
namafile = lvQ.SelectedItem.SubItems(2)
If namafile <> Split(Data(i), "?")(1) Then
nyu = nyu & "|" & Data(i)
End If
Next
DeleteFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1)
Open Dat For Output As #2
Print #2, nyu
Close #2
MsgBox "Success Deleting File !!!", vbInformation, ""
UpdateQ

code di atas berfungsi untuk menghapus file yang telah di karantina

Masukan code di bawah ini ke Command [ cmdRestore ]

Spoiler:

'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Select Case Index
Case 0
DecodeFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1), lvQ.SelectedItem.SubItems(2)
MsgBox "File Restored to " & Chr(34) & lvQ.SelectedItem.SubItems(2) & Chr(34) & " !!!", vbInformation, ""
Case 1
sTitle = "Select path:" & vbNewLine & "Select path to restore file."
ThePath = BrowseFolder(sTitle, Me)
If ThePath <> "" Then
DecodeFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1), ThePath & GetFileName(lvQ.SelectedItem.SubItems(2))
MsgBox "File Restored to " & Chr(34) & ThePath & GetFileName(lvQ.SelectedItem.SubItems(2)) & Chr(34) & " !!!", vbInformation, ""
End If
End Select

Fungsi code di atas berguna untuk me restore file kembali ke asalnya.

lalu pada Form_Load() tambahkan code di bawah ini.

Spoiler:

'Code:
frmUtama.Enabled = False
Dat = AppPath & "Quarantine\HN.dat"
UpdateQ

Masukan code di bawah ini ke dalam frmQuarantine yang telah anda buat tadi.

Spoiler:

'Code:
Dim Dat As String
Private Sub UpdateQ()
lvQ.ListItems.Clear
Dim Data() As String
If PathFileExists(Dat) = 0 Then Exit Sub
Open Dat For Input As #1
Input #1, isi
Close #1
Data = Split(isi, "|")
For i = 1 To UBound(Data)
With lvQ.ListItems.Add(, , Split(Data(i), "?")(0))
.SubItems(1) = Split(Data(i), "?")(2)
.SubItems(2) = Split(Data(i), "?")(1)
End With
Next
Me.Caption = "Quarantine (" & lvQ.ListItems.Count & ")"
End Sub

Berfungsi untuk memanggil data yang ada di folder karantina.

Hanya itu ilmu yang bisa saya bagikan. sekarang kita bukan hanya sebagai pemakai atau user sekrang kita sudah bisa mmembuat antivirus.

dan ini adalah Screenshot antivirus yang kita buat tadi saat melakukan scanning.

Note : Jika anda membaca dan mencoba dengan teliti dan seksama anda pasti berhasil.

Orang yang berhasil adalah orang yang banyak mecoba.

Sumber Referensi : yugo21.blogspot.com

Release Zencafe 2.2

2011-10-20T07:04:00.000-07:00

Versi Zencafe menggunakan distro Zenwalk terbaru dan kernel 2.6.33.4. Terutama desain untuk digunakan untuk Internet Cafe desktop, Zencafe dipoles dalam banyak cara dan cukup mudah untuk dioperasikan, bahkan untuk tidak ada pengguna latar belakang teknis. Termasuk autorecovery dan internet cafe software manajemen, Zencafe adalah yang terbaik dan solusi Linux pertama yang cocok untuk kafe internet Anda.

PERSYARATAN MINIMAL
Prosesor kelas Pentium III
128 Mb RAM
4 Gb Harddisk

PERANGKAT LUNAK INCLUDED
GNU / Linux Sistem Operasi, kernel 2.6.33.4
OpenOffice.org 3.2.1 (Aplikasi Kantor)
Mozilla Firefox (Internet Browser)
Pidgin dan Gyachi (Instant Messenger)
Mkahawa Internet Cafe Perangkat Lunak Manajemen
Autorecovery (Kios modus perlindungan, "deepfreeze seperti alat-alat")
Selengkapnya ...

APA YANG BARU?
Instalasi langkah sederhana proses
Lebih user pintas keyboard yang ramah
Aplikasi tambahan di folder tambahan, kafe internet baru-baru ini menggunakan aplikasi, tapi tidak setiap penggunaan warnet itu.
Klik kanan memiliki menu itu sendiri
Beberapa ikon segar Mimetype
Selengkapnya ...

Downloads:

http://dl4.zencafe.web.id/iso/
http://dl5.zencafe.web.id/iso/
http://sjafri.com/zencafe
ftp://dl2.foss-id.web.id/iso/zencafe/2.2/

sumber : http://www.zencafe.web.id/release-zencafe-22/#more-135

Foxit Phantom PDF Suite 2.2.0 Full Serial

2011-10-18T09:19:00.000-07:00

Features :

Small and fast
Create industry-standard compliant PDF file from any printable file
Scan paper document to PDF directly
Edit and modify PDF contents
Compare PDF documentsly
Organize PDF pages
Design and fill-out electronic forms
Protect PDF documents with passwords and certificates
Control PDF document usage such as printing, changing, content extraction
Add digital signatures to PDF documents

New Features in Foxit Phantom PDF Suite 2:

Perform OCR Text Recognition learn more
Add Header & Footer, Watermark & Background to PDF files
Create and Manage Digital Signature Field
Bookmark Creating in Combining PDF files
Choose PDF Specification When Creating PDF files
Search Words in Comments and Bookmarks

untuk download Download Foxit phantom PDF full crack
password : www.remo-xp.com

Merubah Dokumen Scan/Image ke Format Teks MS. Word

2011-10-16T22:16:00.000-07:00

Merubah Dokumen Scan/Image ke Format Teks MS. Word

Baru-baru ini salah seorang teman saya mendapat tugas kuliah Bahasa Prancil dari dosen. Dia disuruh men-translate sebendel dokumen berbahasa Prancis kedalam Bahasa Inggris. Ada ratusan halaman disana, makanya dia bingung bagaimana mentranslate-nya, karena begitu banyak halaman yang harus disalinnya (di blog saya ini juga ada artikel berbahasa Inggris, coba saja kamu baca "TEAK 123 best teak garden furniture manufacturer wholesale in Indonesia").

Lalu, dia bertanya apakah ada software yang bisa melakukan konversi dari dokumen hasil scan menjadi file Word? Karena file word itu nanti akan dia translate kedalam bahasa Inggris.

Saya jawab Ada. Caranya yaitu dengan mengunjungi situs penyedia layanan i2OCR.

i2OCR adalah layanan online gratis yang dapat mengkonversi dokumen hasil scan atau gambar ke dalam dokumen word yang selanjutnya dapat diedit oleh pengguna. OCR online gratis ini tidak membutuhkan pendaftaran untuk menggunakannya, dan mendukung Multi-Kolom dokumen scan untuk pengenalan karakter yang tersedia dalam 33 bahasa termasuk diantaranya Inggris, Perancis, Spanyol, Jerman, Italia, Rusia, Portugis, dan Cina.

Layanan OCR online gratis ini mendukung format gambar seperti TIF, JPEG, PNG, BMP, PPM, PBM, PGM. Anda dapat meng-upload gambar hingga maximal 10 MB. Untuk pengenalan karakter teks yang lebih baik, gambar yang Anda upload harus minimal 200 dpi. Anda dapat menyalin teks hasil konversi ke dalam notepad atau download sebagai file Word.

Buat kamu yang tertari menggunakan software Converter Perubah Dokumen Hasil Scan untuk dirubah kedalam Format Teks Dokumen langsung saja kunjungi situsnya http://www.sciweavers.org/free-online-ocr

Tampilan halaman Converter

Caranya sangat mudah, kamu bisa lihat gambar ilustrasi diatas, yaitu kamu cukup masukkan File atau halaman situs (URL) yang hendak kamu rubah formatnya menjadi Teks Dokument, lalu pilih Bahasa, dan terakhir klik tombol Convert.

Setelah proses Convert selesai maka secara otomatis halaman hasil Scan atau halaman web yang kamu inginkan akan berubah menjadi berformat Teks. Lalu silahkan kamu Copy untuk kamu pakai sebagai dokument biasa (seperti pada MS Office Word).

Semoga tips sederhana Merubah Dokumen Scan/Image ke Format Teks MS. Word ini dapat bermanfaat, dan bagi yang ingin tahu perkembangan info bisnis silahkan baca Peluang bisnis online tanpa ribet

sumber : http://www.wahyu-winoto.com/2011/06/merubah-dokumen-scanimage-ke-format.html

Memisahkan Routing dan Bandwidth Management dengan BGP Peer

2011-10-16T08:10:00.001-07:00

Dalam artikel ini, akan dibahas cara untuk melakukan BGP-Peer ke BGP Router Mikrotik Indonesia untuk melakukan pemisahan gateway untuk koneksi internet internasional dan OpenIXP (NICE). Setelah pemisahan koneksi ini dilakukan, selanjutnya akan dibuat queue untuk tiap klien, yang bisa membatasi penggunaan untuk bandwidth internasional dan OpenIXP (NICE).

Beberapa asumsi yang akan dipakai untuk kasus kali ini adalah :

Router memiliki 3 buah interface, yang masing-masing terhubung ke gateway internasional, gateway OpenIXP (NICE), dan ke network klien.
Untuk koneksi ke OpenIXP (NICE), router milik Anda harus memiliki IP publik.
Untuk klien, akan menggunakan IP private, sehingga akan dilakukan NAT (network address translation)
Mikrotik RouterOS Anda menggunakan versi 2.9.39 atau yang lebih baru, dan mengaktifkan paket routing-test

Jika Anda menghadapi kondisi yang tidak sesuai dengan parameter di atas, harus dilakukan penyesuaian.

PENGATURAN DASAR

Diagram network dan konfigurasi IP Address yang digunakan pada contoh ini adalah seperti gambar berikut ini.

Untuk mempermudah pemberian contoh, kami mengupdate nama masing-masing interface sesuai dengan tugasnya masing-masing.

[admin@MikroTik] > /in pr
Flags: X - disabled, D - dynamic, R - running
#    NAME            TYPE   RX-RATE  TX-RATE  MTU
0  R ether1-intl     ether  0        0        1500
1  R ether2-iix      ether  0        0        1500
2  R ether3-client   ether  0        0        1500

Konfigurasi IP Address sesuai dengan contoh berikut ini. Sesuaikanlah dengan IP Address yang Anda gunakan. Dalam contoh ini, IP Address yang terhubung ke OpenIXP (NICE) menggunakan IP 202.65.113.130/29, terpasang pada interface ether2-iix dan gatewaynya adalah 202.65.113.129. Sedangkan untuk koneksi ke internasional menggunakan IP Address 69.1.1.2/30 pada interface ether1-intl, dengan gateway 69.1.1.1.

Untuk klien, akan menggunakan blok IP 192.168.1.0/24, dan IP Address 192.168.1.1 difungsikan sebagai gateway dan dipasang pada ether3-client. Klien dapat menggunakan IP Address 192.168.1-2 hingga 192.168.1.254 dengan subnet mask 255.255.255.0.

Jangan lupa melakukan konfigurasi DNS server pada router, dan mengaktifkan fitur “allow remote request”.

Karena klien menggunakan IP private, maka kita harus melakukan fungsi src-nat untuk kedua jalur gateway.

[admin@MikroTik] > /ip fi nat pr
Flags: X - disabled, I - invalid, D - dynamic
0   chain=srcnat out-interface=ether1-intl action=masquerade
1   chain=srcnat out-interface=ether2-iix action=masquerade

CEK: Pastikan semua konfigurasi telah berfungsi baik. Buatlah default route pada router secara bergantian ke IP gateway OpenIXP (NICE) dan internasional. Lakukanlah ping (baik dari router maupun dari klien) ke luar network Anda secara bergantian.

PENGATURAN BGP-PEER

Pertama-tama, pastikan bahwa Anda menggunakan gateway internasional Anda sebagai default route, dalam contoh ini adalah 69.1.1.1. Kemudian Anda perlu membuat sebuah static route ke mesin BGP Mikrotik Indonesia, yaitu IP 202.65.120.250.

Lalu periksalah apakah Anda bisa melakukan ping ke 202.65.120.250. Periksalah juga dengan traceroute dari router, apakah jalur pencapaian ke IP 202.65.120.250 telah melalui jalur koneksi yang diperuntukkan bagi trafik OpenIXP (NICE), dan bukan melalui jalur internasional.

Kemudian, Anda harus mendaftarkan IP Address Anda di website Mikrotik Indonesia untuk mengaktifkan layanan BGP-Peer ini. Aktivasi bisa dilakukan di halaman ini. IP Address yang bisa Anda daftarkan hanyalah IP Address yang bisa di-ping dari mesin kami, dan juga harus sudah diadvertise di OIXP. Aturan selengkapnya mengenai penggunaan layanan ini bisa dibaca di halaman ini. Setelah Anda mendaftarkan IP Address Anda, jika semua syarat sudah terpenuhi, Anda akan diinformasikan bahwa aktivasi layanan BGP-Peer Anda sudah sukses. Selanjutnya Anda bisa melihat status layanan BGP Anda di halaman ini.

BGP Router Mikrotik Indonesia akan menggunakan IP Address 202.65.120.250 dan AS Number 64888, dan Router Anda akan menjadi BGP Peer dengan menggunakan AS Number 64666.

Berikutnya adalah langkah-langkah yang harus Anda lakukan pada router Anda. Pertama-tama Anda harus membuat beberapa prefix-list untuk BGP ini. Untuk prefix yang akan Anda terima, untuk alasan keamanan dan hematnya agregasi routing, maka Anda perlu melakukan setting untuk menerima hanya prefix 8 hingga 24. Prefix 0 sampai 7, dan 25 sampai 32 akan Anda blok. Prefix ini kita berinama prefix-in. Untuk prefix-in yang accept, harap diperhatikan bahwa Anda perlu menentukan gateway untuk informasi routing ini, yaitu IP gateway OpenIXP (NICE) Anda. Dalam contoh ini adalah 202.65.113.129. Gantilah IP ini sesuai dengan gateway OpenIXP (NICE) Anda.

Sedangkan karena sifat BGP-Peer ini hanya Anda menerima informasi routing saja, di mana Anda tidak dapat melakukan advertisement, maka harus dilakukan blok untuk semua prefix yang dikirimkan, dan kita beri nama prefix-out.

Berikut ini adalah konfigurasi prefix list yang telah dibuat.

Tahap selanjutnya adalah konfigurasi BGP instance. Yang perlu di-set di sini hanyalah AS Number Anda, pada kasus ini kita menggunakan AS Number private, yaitu 64666.

Dan langkah terakhir pada konfigurasi BGP ini adalah konfigurasi peer. AS Number BGP Router Mikrotik Indonesia adalah 64888 dan IP Addressnya adalah 202.65.120.250. Karena kita sulit menentukan berapa hop jarak BGP Router Mikrotik Indonesia dengan Router Anda, maka kita melakukan konfigurasi TTL menjadi 255. Jangan lupa mengatur rule prefix-in dan prefix-out sesuai dengan prefix yang telah kita buat sebelumnya.

Setelah langkah ini, seharusnya BGP Router Mikrotik sudah dapat terkoneksi dengan Router Anda. Koneksi ini ditandai dengan status peer yang menjadi “established” dan akan dicantumkan pula jumlah informasi routing yang diterima. Anda juga bisa mengecek status peer ini dari sisi BGP Router Mikrotik Indonesia dengan melihat pada halaman ini.

Cek pula pada bagian IP Route, seharusnya sudah diterima ribuan informasi routing, dan pastikan bahwa gatewaynya sesuai dengan gateway OpenIXP (NICE) Anda, dan berada pada interface yang benar, dalam contoh ini adalah “ether2-iix”.

Jika semua sudah berjalan, pastikan bahwa penggunaan 2 buah gateway ini sudah sukses dengan cara melakukan tracerute dari router ataupun dari laptop ke beberapa IP Address baik yang berada di internasional maupun yang berada di jaringan OpenIXP (NICE).

C:>tracert www.yahoo.com

Tracing route to www.yahoo-ht2.akadns.net
[209.131.36.158]
over a maximum of 30 hops:

1    <1>tracert www.cbn.net.id

Tracing route to web.cbn.net.id [210.210.145.202]
over a maximum of 30 hops:

1    <1>

PENGATURAN BANDWIDTH MANAGEMENT

Setelah semua routing dan BGP Peer berjalan dengan baik, yang perlu kita lakukan sekarang adalah mengkonfigurasi bandwidth management. Untuk contoh ini kita akan menggunakan mangle dan queue tree.

Karena network klien menggunakan IP private, maka kita perlu melakukan connection tracking pada mangle. Pastikan bahwa Anda telah mengaktifkan connection tracking pada router Anda.

Untuk masing-masing trafik, lokal dan internasional, kita membuat sebuah rule mangle connection. Dari connection mark tersebut kemudian kita membuat packet-mark untuk masing-masing trafik.

[admin@MikroTik] > /ip firewall mangle print
Flags: X - disabled, I - invalid, D - dynamic
0   chain=forward out-interface=ether1-intl
src-address=192.168.1.2 action=mark-connection
new-connection-mark=conn-intl
passthrough=yes

1   chain=forward out-interface=ether2-iix
src-address=192.168.1.2 action=mark-connection
new-connection-mark=conn-nice
passthrough=yes

2   chain=forward connection-mark=conn-intl
action=mark-packet
new-packet-mark=packet-intl passthrough=yes

3   chain=forward connection-mark=conn-nice
action=mark-packet new-packet-mark=packet-nice
passthrough=yes

Untuk setiap klien, Anda harus membuat rule seperti di atas, sesuai dengan IP Address yang digunakan oleh klien.

Langkah berikutnya adalah membuat queue tree rule. Kita akan membutuhkan 4 buah rule, untuk membedakan upstream / downstream untuk koneksi internasional dan lokal.

[admin@MikroTik] > queue tree print
Flags: X - disabled, I - invalid
0   name="intl-down" parent=ether3-client
packet-mark=packet-intl limit-at=0
queue=default priority=8 max-limit=128000
burst-limit=0 burst-threshold=0 burst-time=0s

1   name="intl-up" parent=ether1-intl
packet-mark=packet-intl limit-at=0
queue=default priority=8 max-limit=32000
burst-limit=0 burst-threshold=0 burst-time=0s

2   name="nice-up" parent=ether2-iix
packet-mark=packet-nice limit-at=0
queue=default priority=8 max-limit=256000
burst-limit=0 burst-threshold=0 burst-time=0s

3   name="nice-down" parent=ether3-client
packet-mark=packet-nice limit-at=0
queue=default priority=8 max-limit=1024000
burst-limit=0 burst-threshold=0 burst-time=0s

Besarnya limit-at / max-limit dan burst bisa Anda sesuaikan dengan layanan yang dibeli oleh klien.

sumber : http://gembelcorp.blogspot.com/2008/12/memisahkan-routing-dan-bandwidth.html

Menang Lawan Qatar, Timnas akan Kebanjiran Bonus

2011-10-11T05:30:00.001-07:00

INILAH.COM, Jakarta - Timnas Indonesia akan kebanjiran bonus jika mampu mengalahkan Qatar dalam lanjutan kualifikasi Piala Dunia 2014, Selasa (11/10) di Stadion Utama Gelora Bung Karno.

Setelah menderita dua kali kekalahan atas Iran dan Bahrain, posisi Indonesia di Grup E cukup kritis. Kekalahan dari Qatar bisa membuat peluang Indonesia lolos ke putaran selanjutnya semakin tipis, bahkan bisa dibilang tertutup. Untuk itu, pasukan Wim Rijsbergen itu harus meraih poin penuh untuk menjaga peluang lolos.

Jika mampu meraih kemenangan atas Qatar, timnas akan kebanjiran bonus. PSSI akan memberikan bonus sebesar Rp 40 juta kepada para pemain. Selain itu, pemain juga akan mendapat bonus dari kocek pribadi penanggung jawab timnas, Bernhard Limbong.

"Jika timnas berhasil meraih kemenangan, mereka akan diberikan bonus oleh PSSI sebesar Rp 40 juta. Bonus tersebut merupakan sebuah penghargaan PSSI kepada pemain yang telah berjuang demi bangsa Indonesia," ujar Limbong di sekretariat PSSI, Senin (10/10) malam.

"Selain dari PSSI, saya selaku penanggung jawab timnas juga akan memberikan bonus dari kocek pribadi. Untuk nominalnya, itu rahasia saya," imbuhnya.

Lantas, apakah pemain timnas juga akan mendapat bonus jika bisa meraih hasil imbang mengingat level permainan Qatar jauh di atas timnas Indonesia.

"Sebenarnya bonus akan diberikan jika meraih kemenangan, namun jika meraih hasil imbang pun pasti ada bonus juga, tapi jumlahnya masih harus dibicarakan lagi," tukasnya.

Selain itu, Limbong juga menyebutkan bahwa kondisi timnas dalam kondisi kondusif dan siap bertanding lawan Qatar.

"Kondisi timnas kondusif sejak pertma kali berkumpul 30 September lalu hingga sore ini. Mereka kompak dan komposisi pemain telah terbentuk. Semoga mereka bisa meraih kemenangan lawan Qatar dan saya mohon dukungannya dan doa dari seluruh rakyat Indonesia," tukasnya.

No Deal: NBA cancels first two weeks of season

2011-10-11T05:27:00.000-07:00

NEW YORK (AP)-Dua minggu pertandingan NBA yang hilang. Banyak lagi bisa dalam bahaya.
Ada "jurang" yang memisahkan pemilik dan pemain, dan mereka harus menutup dengan cepat untuk menghindari kerusakan lebih lanjut untuk jadwal.
Menempel batas waktu, Komisaris David Stern menyapu bersih dua minggu pertama musim-persis 100 game-setelah lebih dari tujuh jam perundingan Senin gagal menghasilkan kesepakatan kerja baru dan melestarikan 1 November pembuka musim.Derek Fisher ketakutan musim NBA tidak akan mulai pada waktu setelah kemunduran terbaru dalam negosiasi tenaga kerja.(AP)
Pembatalan menilai pekerjaan pertama NBA penyumbatan sejak musim 1998-99 dikurangi menjadi 50 game.
Bentrok lebih besar atas sistem gaji topi dari ekonomi-tetapi masih jauh terpisah pada kedua-Stern mengatakan sisi yang "sangat jauh terpisah di hampir semua masalah. ... Kami hanya memiliki jurang yang memisahkan kita.
"Dengan setiap hari yang berlalu, saya pikir kita perlu melihat pengurangan lebih lanjut dalam apa yang tersisa dari musim ini," tambahnya.
Stern mengatakan pekan lalu bahwa ia akan membatalkan dua minggu pertama musim ini Senin tanpa perjanjian tawar-menawar kolektif baru untuk mengakhiri lockout. Kedua belah pihak mengharapkan untuk tetap berada di kontak, tapi tidak ada pembicaraan resmi tambahan telah dijadwalkan.
Stern mengatakan dia "menyesal" dan "sedih" untuk melaporkan pembatalan.
"Kami tentu berharap hal itu tidak akan pernah datang ke ini," katanya. "Saya berpikir bahwa kedua belah pihak bekerja keras untuk mendapatkan solusi yang lebih baik. Kami berpikir bahwa kami membuat proposal yang sangat adil. Saya yakin para pemain berpikir hal yang sama. Tetapi kesenjangan yang begitu signifikan sehingga kita tidak dapat menjembatani pada saat ini. "
Presiden Uni Derek Fisher (catatan) setuju, menekankan bahwa setiap permainan menempatkan hilang musim ini dalam bahaya. Ia juga menekankan ini adalah lockout, bukan pemogokan, dan bahwa itu adalah keputusan pemilik 'tidak bisa bermain basket.
"Ini bukan dimana kita memilih untuk menjadi," katanya. "Kami tidak di tempat di mana kesepakatan yang adil dapat dicapai dengan NBA."
Pembatalan mencakup semua game dijadwalkan untuk dimainkan melalui 14 November, dan arena terpengaruh telah diizinkan untuk rilis tanggal tersebut.
Berdasarkan rata-rata tahun lalu mengumumkan leaguewide pertemuan (hanya lebih dari 17.300 per game) dan biaya musim tiket rata-rata lalu, yang sekarang-dibatalkan 100 game mewakili hampir $ 83.000.000 di tiket hilang penjualan-sebelum konsesi pertama atau souvenir yang dijual dan sebelum pertama mobil membayar ke taman.
Musim-tiket pemegang, namun mendapatkan pengembalian uang, ditambah bunga, untuk semua game dibatalkan.
Meskipun mengecewakan bagi kedua belah pihak dan terutama untuk penggemar, bukanlah hasil mengejutkan lengkap. Serikat telah memperingatkan selama bertahun-tahun pemain untuk menyimpan uang mereka, mengetahui penghentian pekerjaan tampaknya mungkin, dan eksekutif direktur Billy Hunter mengulangi bahwa pemain tidak akan gua hilang begitu mereka mulai membayar cek bulan depan.
"Saya pikir itu kembali ke komentar bahwa Daud membuat bagi saya beberapa tahun yang lalu ketika dia berkata, 'Lihat, ini adalah apa pemilik saya harus memiliki." Dan aku berkata, "Satu-satunya cara Anda akan mendapatkan yang jika Anda siap untuk mengunci kita keluar untuk satu atau dua tahun, dan (ini) menunjukkan kepada saya bahwa mereka bersedia melakukannya, "kata Hunter. "Jadi keyakinan saya, pendapat saya adalah bahwa semua yang dilakukan telah menunjukkan bahwa jenis dia berikut script yang."
Dengan penghentian pekerjaan lain, NBA risiko mengasingkan basis penggemar yang mengirim pendapatan liga dan rating TV melonjak selama musim 2010-11. Dan biaya pembatalan akan mengejutkan. Wakil Komisaris Adam Perak mengatakan liga akan kehilangan ratusan juta dolar; Hunter diperkirakan kerugian pemain '$ 350 juta untuk setiap bulan mereka terkunci di luar.
Sekarang mengantar, personil keamanan, petugas parkir, pekerja konsesi, karyawan restoran dan lain-lain semua berdiri untuk memiliki jam mereka dipotong atau bergabung dengan 14 juta pengangguran di negara itu. Sebuah beberapa tim juga memiliki baik dipangkas staf mereka atau dilembagakan pemotongan-beberapa membayar tajam melakukan itu sebagai lockout mulai-dan PHK lagi yang bisa datang.
Hunter mengatakan dia tidak berpikir musim penuh adalah pada risiko belum dan menekankan akan menjadi suatu kekeliruan bagi NBA untuk kesempatan itu datang dari musim ketika pendapatan dan rating TV melambung.
"Saya pikir itu akan bodoh bagi mereka untuk membunuh musim, dan kami datang dari musim terbaik dalam sejarah NBA dan saya tidak begitu yakin dalam jenis ekonomi bahwa jika ada lockout berkepanjangan apakah liga akan sembuh, "katanya. "Ini membawa kami beberapa saat untuk pulih dari lockout '98, dan saya pikir itu akan membawa kita lebih lama untuk pulih kali ini."
Untuk hari berturut-turut kedua belah pihak berfokus pada masalah sistem, bukan pembagian pendapatan. Stern mengoceh liga konsesi telah dibuat di sana, yang memungkinkan kontrak dijamin, tidak menggulirkan kembali gaji pemain dan memberikan pilihan untuk mempersingkat kesepakatan.
Pemain mengatakan mereka pindah ke sana juga, menawarkan untuk mengurangi nilai pengecualian tingkat menengah sampai $ 5 juta untuk maksimal empat tahun, dan mengurangi panjang kontrak untuk lima tahun untuk pemain kembali penandatanganan dengan tim mereka sendiri untuk empat tahun untuk mengubah tim. Liga menginginkan mereka, saat ini enam dan lima, ke empat dan tiga.
Bersikeras perlu suatu sistem yang memungkinkan semua tim untuk bersaing tidak peduli ukuran pasar, Stern dan Perak mengatakan pihak masih terpisah pada menimbulkan tahunan untuk pemain dan pajak barang mewah bagi tim. Pemain yang kontra ide liga pembuatan pajak barang mewah yang lebih parah akan bertindak sebagai topi keras, menakut-nakuti terlalu banyak tim dari pengeluaran di atas tingkat topi.
"Kami terkejut itulah apa yang masih memisahkan kami," kata Silver. "Kami akan berpikir bahwa para pemain di liga ini juga akan ingin sistem di mana pemain pada setiap tim, jika mereka bermain untuk tim juga membayangkan, berada pada pijakan yang sama. Saya pikir itu akan membuat game yang lebih baik, dan kami pikir itu akan menciptakan harapan untuk lebih banyak penggemar di komunitas lebih banyak dan pada akhirnya akan menyebabkan lebih tertarik pada permainan kami. "
Stern mengatakan para pemain masih diusulkan mereka mendapatkan 53 persen dari pendapatan, sedangkan liga yang diusulkan mereka mendapatkan 47 persen. Kedua belah pihak telah membahas split 50-50 pekan lalu, tetapi hanya dalam diskusi informal, dan diberikan setiap titik BRI bernilai sekitar $ 40.000.000 musim lalu, kesenjangan antara 3 poin dan 6 poin adalah sekitar $ 120 juta pada tahun pertama dari kesepakatan.
Pertemuan Senin adalah: Stern, Silver, pemilik Peter Holt San Antonio, Glen Taylor dari Minnesota dan James Dolan dari New York, wakil presiden senior dan wakil penasihat umum Dan Rube, ditambah Hunter, Fisher, dari Lakers dan wakil presiden Maurice Evans (catatan ) dari Wizards, dan pengacara Jeffrey Kessler dan Ron Klempner.
Pemain bereaksi cepat-dan dalam beberapa kasus, sangat-di Twitter dalam beberapa menit dari cancelations yang diumumkan.
Miami penjaga Dwyane Wade (catatan) mengatakan situasi "baru saja nyata" setelah ia belajar pada dua minggu pertama sekarang hilang, kemudian mengecam komentar Stern di posting kedua dengan mengatakan mereka menyakiti karyawan di arena sekitar liga, bisnis lain yang berkembang dari bisnis NBA dan penggemar liga pada umumnya.
Minnesota rookie-to-be Derrick Williams (catatan), No 2 memilih dalam draft tahun ini, tweeted bahwa pergi ke luar negeri sekarang mungkin menjadi pilihan baginya.
Keberhasilan musim lalu-di pengadilan, di box office dan dalam headline-yakin banyak yang sisi tidak akan pernah mencapai kebuntuan ini.
Tapi kecil-pasar pemiliknya mengeras setelah menonton LeBron James (catatan) meninggalkan Cleveland untuk Miami, Amare Stoudemire (catatan) baut Phoenix untuk New York, dan Carmelo Anthony (catatan) kemudian menggunakan hak pilihan bebas yang akan datang sebagai leverage untuk mengamankan perdagangan dari Denver untuk Knicks. Mereka ingin perubahan yang akan memungkinkan mereka untuk memegang superstar mereka dan bersaing untuk judul dengan belanja besar-tim dari Los Angeles, Boston dan Dallas yang telah melahap empat kejuaraan terakhir.
Sebagai lockout menyeret pada, warisan Stern sebagai salah satu komisaris olahraga 'terbaik adalah melemah. Dia berbalik 69 bulan lalu, dan meskipun dia belum mengatakan kapan dia akan pensiun, ia mengatakan ini akan menjadi negosiasi CBA terakhir setelah hampir 28 tahun berjalan liga.
Dia telah menegaskan sepanjang ia tidak akan khawatir tentang kerusakan reputasinya dan bahwa satu-satunya keprihatinan akan mendapatkan kesepakatan pemiliknya butuhkan.
Ini pasti saat yang akan.
Sisi tidak setuju sampai 6 Januari tahun 1999, tepat sebelum batas waktu untuk membatalkan seluruh musim. Liga berakhir dengan jadwal 50-game, sering terganggu oleh bermain miskin sebagai tim dipaksa untuk menyesuaikan permainan terlalu banyak menjadi terlalu kecil dari jendela.
Mereka bisa terus bertemu sekarang dan menyetujui kesepakatan jauh lebih cepat kali ini. Atau mungkin membagi masih terlalu besar dan mereka akan memutuskan tidak ada alasan untuk terburu-buru kembali ke meja.
Ikuti Brian Mahoney di Twitter: http://www.twitter.com/Briancmahoney

Software Untuk Mereset BIOS

2011-10-11T05:23:00.000-07:00

Basic Input Output System (BIOS) memiliki peranan penting dalam komputer, BIOS sendiri memiliki tugas seperti.

Penyalaan dan melakukan pengujian perangkat keras, proses ini disebut Power On Self Test (POST).
Memuat dan menjalankan sistem operasi.
Mengatur beberapa konfigurasi dasar dalam komputer (seperti seting tanggal, waktu, media penyimpanan, konfigurasi booting, kinerja dan kestabilan komputer).
Membantu sistem operasi dan aplikasi dalam proses pengaturan perangkat keras dengan menggunakan BIOS Runtime Service.

Mengingat BIOS memeliki banyak peranan dalam berjalannya komputer, maka perlu kita hati-hati agar orang tidak melakukan kejahilan dengan merubah konfigurasi BIOS yang mungkin sudah kita setting. Untuk itu kita perlu memberikan password pada BIOS kita, sehingga saat ingin masuk BIOS kita harus memasukan password dulu. Namun terkadang saat kita lupa akan password sendiri yang kita pasang maka akan menjadi masalah bagi kita karena juga tidak bisa diijinkan masuk BIOS.

Software Untuk Merese BIOS

Cara yang sering digunakan jika kita lupa password pada BIOS maka yang dilakukan adalah Short Jamper, proses ini adalah memindahkan jamper slot dari clear CMOS. Dengan begitu maka BIOS akan tereset sendiri dan password akan hilang juga. Atau cara lain adalah menyopot dan memasang kembali baterai CMOS.

Proses ini memang merepotkan dan memakan banyak waktu, selain harus membuka cassing CPU dan melakukan otak-atik. Jika kita sembarangan salah-salah malah kita menyenggol perangkat lain dan membuatnya kendor pemasangannya. Namun hal itu jarang kita memperhatikanya, akan tahu efeknya saat sudah dinyalakan api ada kesalahan. Itu bisa terjadi karena kita menyenggol perangkat lain tadi.

Ada cara yang lebih mudah untuk reset BIOS, caranya dengan menggunakan software yang sudah disesain untuk reset BIOS. Namanya software clear cmos ini adalah PC CMOS Cleaner 2.0. Software ini 100% ampuh dalam menghapus serta menampilkan password yang tersimpan di BIOS, dan mudah sekali penggunaanya. Jadi anda tidak perlu lagi membongkar CPU untuk mereset BIOS, tinggal gunakan software untuk mereset BIOS ini saja sudah cukup. Untuk mendapatkanya anda bisa download langsung dan gratis utuk anda : PC CMOS Cleaner 2.0

sumber : http://www.duniainfo.info/software-untuk-mereset-bios.htm#more-962

cara download video di facebook

2011-09-27T21:30:00.000-07:00

Pernah anda berpikir gimana cara download video di facebook ? saya juga pernah mengalaminya, ketika itu aku dapat sebuah video di facebook hasil upload dari teman saya. Videonya interested banget dan disitulah saya berpikir gimana cara download videonya. Apa bisa download video dari facebook? Pertanyaan saya dan anda sudah terjawab, ternyata bisa. Cukup dengan membuka Temporary Internet Files di Windows Explorer anda.

Anda dapat mendownload video di facebook tanpa menggunakan software. Cukup dengan memutar videonya sampai selesai maka anda sudah mendapatkan video hasil download tersebut otomatis tersave di komputer anda. Gimana, keren kan. Trik ini juga bisa digunakan buat download video dari web lain seperti Youtube, Metacafe, dll.

Cara download video di facebook :

Agar tips ini berhasil, coba buka dulu Windows Explorer > Tools > Folder Option > View > Kemudian pilih Show Hidden Files and Folders dan hilangkan centang Hide extensions for known file types.

Cari video di facebook yang kamu ingin download
Putar video tersebut, ngga usah di otak-atik biarkan play sampai selesai.
Buka Temporary Internet Files : Jika menggunakan Mozilla Firefox lokasi temporary internet filesnya di C:\Documents and Settings\Nama User Anda\Local Settings\Application Data\Mozilla\Firefox\Profiles\2n13k5n3.default\Cache (kode warna tersebut sesuai dengan komputer kamu)
Untuk Opera lokasinya di C:\Documents and Settings\Nama User Anda\Local Settings\Application Data\Opera\Opera\profile\cache4
Untuk Internet Explorer buka Browser IE klik menu tools > Internet Options > General > Setting > View Files
Setelah membuka Temporary Internet Files maka anda akan menemukan beberapa file biasanya hasil download video dari facebook tersebut mempunyai ukuran file yang cukup besar. Setelah dapat, copy paste ke new folder atau folder video anda. Lalu rename file tersebut dengan nama yang diinginkan dengan akhiran .flv misalnya videodarifacebook.flv
Untuk menjalankan file video FLV ini anda membutuhkan FLV player. Jika anda belum punya FLV Player silahkan download di sini

Cara- cara instalasi Ubuntu 9.10 Desktop

2011-09-27T20:00:00.000-07:00

Ubuntu 9.10 yang juga dikenal dengan sebutan Karmic Koala telah dirilis pada tanggal 29 Oktober 2009 yang merupakan rilis kesebelas dari OS Ubuntu.
Spesifikasi hardware yang diberikan di sini sifatnya adalah estimasi, Anda bisa menjalankan Ubuntu pada hardware dengan spesifikasi dibawahnya, namun kemungkinan kinerjanya akan sedikit kurang memuaskan. Spesifikasi minimum hanya diperuntukkan bagi instalasi server (non-graphical). Spesifikasi minimum yang direkomendasikan adalah spesifikasi untuk instalasi ubuntu dengan tampilan grafis.

Instalasi Desktop
Kebanyakan orang menginginkan untuk menginstall sistem desktop seperti Ubuntu, Kubuntu, atau Xubuntu. Sistem desktop biasanya digunakan utnuk keperluan pribadi dan memiliki graphical user interface (GUI).
Spesifikasi Minimum
Ubuntu dapat dijalankan dengan spesifikasi minimum hardware seperti di bawah ini, namun sistem akan berjalan dengan tidak maksimal.
•    300 MHz x86 processor
•    64 MB RAM
•    Paling tidak 4 GB disk space (untuk full installation dan swap space)
•    VGA graphics card dengan resolusi 640×480
•    CD-ROM drive atau network card.
Spesifikasi Minimum yang Direkomendasikan
Ubuntu akan berjalan dengan normal pada komputer dengan spesifikasi minimum hardware seperti berikut ini. Namun fitur-fitur visual effect kemungkinan tidak akan berjalan dengan bagus.
•    700 MHz x86 processor
•    384 MB RAM
•    8 GB disk space
•    Graphic card dengan resolusi 1024×768
•    Sound card
•    Koneksi internet
Catatan: Semua 64-bit (x86-64) PC akan dapat menjalankan Ubuntu. Gunakan CD instalasi 64-bit untuk instalasi 64-bit yang lebih optimal.

Direkomendasikan untuk visual effect
Visual effect memberikan Anda berbagai efek grafis yang spesial untuk tampilan desktop yang lebih baik dan indah juga mudah digunakan.Jika komputer Anda tidak sanggup untuk menjalankan visual effect, maka lebih baik untuk tidak mengaktifkannya namun Anda masih bisa menggunakan Ubuntu desktop dengan baik.
Visual effect akan aktif secara default apabila komputer Anda dilengkapi dengan graphic card yang mendukung.
•    1,2 GHz x86 processor
•    384 MB RAM
•    Graphic card yang mendukung.
Berikut panduan langkah - langkah instalasi Ubuntu 9.101. Pilih bahasa yang Anda inginkan…

Pilih opsi kedua “Install Ubuntu” dan tekan tombol “enter”…

2. Tunggu sampai CD dimuat ke dalam RAM…

3. Anda akan melihat wallpaper untuk beberapa saat. Ketika installer muncul, Anda akan bisa memilih bahasa yang Anda inginkan untuk keseluruhan proses instalasi. Klik tombol “Forward” untuk melanjutkan…

4. Layar kedua akan menampilkan peta bumi. Waktu dari sistem komputer Anda akan menggunakan pilihan   lokasi yang Anda tentukan. Anda juga dapat memilih lokasi menggunakan drop down list yang terletak pada bagian bawah layar. Klik tombol “Forward” setelah Anda memilih lokasi yang diinginkan…

5. Test keyboard Anda
Pada layar ketiga, Anda bisa memilih layout keyboard yang Anda inginkan. Namun layout default biasanya adalah yang sering digunakan. Klik tombol “Forward” jika konfigurasi keyboard telah selesai Anda tentukan.

6. Partisi Hard Disk
Anda memiliki empat pilihan:
1. Jika komputer Anda sudah ada os lain (misalnya Windows 7) dan Anda menginginkan sistem dual boot, pilih opsi pertama: “Install them side by side, choosing between them at each startup”.

Catatan: Opsi ini hanya akan muncul apabila Anda memiliki operating system lain di komputer Anda, seperti Microsoft Windows. Perlu diingat, bahwa setelah instalasi Windows boot loader akan ditimpa oleh Ubuntu boot loader!
2. Jika Anda ingin menghapus operating system yang ada, atau hard drive sudah kosong dan Anda ingin installer secara otomatis melakukan partisi hard drive, pilihlah opsi kedua, “Use the entire disk”.

Catatan: Opsi ini sangat direkomendasikan kepada pengguna yang tidak memiliki os lain di komputernya atau yang ingin menghapus os yang ada, contohnya OS Windows.
3. Opsi ketiga adalah “Use the largest continuous free space” dan akan menginstall Ubuntu 9.10 pada space yang belum dipartisi pada hard drive yang dipilih.

4. Opsi keempat adalah “Specify partitions manually” dan pilihan ini sangat direkomendasikan untuk pengguna level advanced, pilihan ini untuk membuat partisi khusus atau melakukan format hard drive dengan sistem file lain. Ini juga dapat digunakan untuk membuat partisi /home yang sangat berguna untuk melakukan instalasi ulang keseluruhan sistem.
Berikut cara yang digunakan apabila Anda melakukan partisi manual dengan /home:
- Pilih “Specifiy partitions manually (advanced)” dan klik tombol “Forward”.
- Pastikan hard drive yang dipilih sudah benar. /dev/sda adalah physical hard drive pertama. /dev/sdb adalah hard drive kedua pada komputer Anda. Jadi, pastikan hard drive mana yang ingin Anda format! Kalau tidak, Anda akan kehilangan seluruh data pada hard drive tersebut!
- Misalkan hard drive yang dipilih kosong (tidak ada operating system atau data penting pada hard drive yang dipilih), namun ada sedikit partisi. Pilih setiap partisi dan klik tombol “Delete”. Setelah beberapa saat, akan muncul kata “free space”. Lakukan hal yang sama dengan partisi lain pada hard drive yang dipilih sampai semuanya terhapus dan muncul kata “free space”.
- Pilih kata “free space”, lalu klik tombol “Add”. Pada jendela yang baru, ketikkan 2000 pada kolom “New partition size in megabytes” dan pilih opsi “swap area” dari drop down list “Use as:”. Klik tombol OK dan dalam beberapa saat Anda akan melihat baris “swap” dengan ukuran yang telah ditentukan.
Pilih kata “free space”, klik tombol “Add”. Pada jendela baru, pilih opsi “Primary”, ketikkan nilai antara 10.000 dan 50.000 pada kolom “New partition size in megabytes” dan pilih / sebagai “Mount point”. Klik tombol OK dan dalam beberapa saat Anda akan diberitahukan baris “ext4 /” dengan ukuran yang telah ditentukan.
Pilih kata “free space”, klik tombol “Add”. Pada jendela baru yang munbul, pilih opsi “Primary”, ketikkan nilai antara 30.000 dan 50.000 (atau space yang tersisa pada hard drive Anda) pada kolom “New partition size in megabytes” dan pilih /home sebagai “Mount point”. Klik tombol OK dan dalam beberapa saat Anda akan diberitahukan baris “ext4 /home” dengan ukuran yang telah ditentukan.

7. Tampilan partisi Anda seharusnya seperti gambar di bawah ini. Jika benar, klik tombol “Forward” untuk melanjutkan instalasi…

Warning: Seluruh data pada hard drive yang dipilih akan dihapus dan tidak dapat dikembalikan.
Klik tombol “Forward” untuk melanjutkan instalasi.

8. Pada layar ini, Anda harus memasukkan data yang benar sesuai pertanyaannya. Isilah kolom yang tersedia dengan nama asli Anda, nama yang Anda inginkan untuk login pada OS Ubuntu (yang disebut juga dengan “username” yang dibutuhkan untuk login pada system), password dan nama komputer (secara otomatis sudah tertulis, namun bisa Anda ganti).
Pada tahapan ini, ada opsi yang disebut “Log in automatically”. Jika kotak pilihan ini Anda centang, maka Anda akan login secara otomatis pada Ubuntu Desktop. Klik tombol “Forward” untuk melanjutkan…

9. Ini adalah langkah akhir instalasi. Pada tahapan ini, Anda dapat memilih untuk menginstall boot loader pada partisi lain atau hard drive, namun ini sangat direkomendasikan bagi yang sudah advanced saja.
Untuk itu, klik tombol “Advanced” dan pilih drive yang benar (USB stick)…

10. Klik tombol “Install” untuk memulai proses instalasi…

11. Operating System Ubuntu 9.10 (Karmic Koala) akan segera diinstall…

12. Setelah kira-kira 10 sampai 18 menit (tergantung pada spesifikasi komputer Anda), pop-up window akan muncul, mengingatkan Anda bahwa instalasi sudah selesai, Anda perlu melakukan restart komputer untuk melihat operating system Ubuntu berjalan. Klik tombol “Restart now”…

13. CD akan dikeluarkan dari CD ROM, lalu tekan tombol “Enter” untuk reboot. Komputer akan direset, dalam beberapa saat Anda akan melihat Ubuntu boot splash dan Xsplash…
13. CD akan dikeluarkan dari CD ROM, lalu tekan tombol “Enter” untuk reboot. Komputer akan direset, dalam beberapa saat Anda akan melihat Ubuntu boot splash dan Xsplash…

14. Pada layar login, klik pada username Anda dan masukkan passwordnya. Klik Log in atau tombol enter…

17. Silakan menikmati Ubuntu 9.10 Anda…

Koneksi Telkom Speedy Menggunakan pppoeconf pada Ubuntu

2011-09-27T19:56:00.000-07:00

Setelahmencoba modem speedy dijadikan router yang mengakibatkan "tewas"-nyamodem Prolink 9200 Series.
Saran dari teknisi Telkom Speedy sebaiknya yang melakukan "dial"koneksi adalah sebuah komputer bukan si-modem.

Persiapan yang dilakukan menyiapkan username dan password Speedy.
Sebagai catatan modem yang digunakan adalah SMC Barricade dengan seriSMC7901BRA2.

Setting untuk modem :
1. Buka web browser kesayangan anda *kesayangan saya Firefox* :D
2. Masukkan IP address Modem
3. Masukkan password modem anda
4. Pilih dan klik WAN >> ATM PVC >> VC1
5. Pilih Protocol-nya : 1483 Bridging
6. Masukkan VPI : 8 dan VCI : 81
7. Pilih Encapsulation-nya : LLC
8. Pilih QoS Class-nya : UBR
9. Masukkan PCR : 4000, SCR : 4000, MBS : 10
10. Klik Save Settings
11. Pilih dan klik ADSL >> Parameters
12. Pilih Operation Mode-nya : G.992.1(G.DMT)
13. Klik OK

Baik..., langkah-langkah setting pppoeconf sebagai berikut :
1. Matikan default gw dengan menjalankan perintah sudo route del default gw192.168.0.254
2. Menjalan perintah sudo pppoeconf
3. Tunggu deteksi dari pppoeconf dan ikuti petunjuk yang ada
4. Jika ada permintaan memasukkan username, masukkan username yang diberikanTelkom misal 237621419287423@telkom.net
5. Jika ada permintaan memasukkan password, masukkan password yang diberikanTelkom
6. Ikuti saja petunjuk standar
7. Silahkan uji koneksi anda.

Free Download Internet Download Manager

2011-09-22T06:53:00.000-07:00

Internet Download Manager Untuk download silahkan kilik disini

Pegawai Negeri Sipil

2011-09-21T07:28:00.000-07:00

Pegawai Negeri Sipil (PNS) adalah salah satu jenis Kepegawaian Negeri di samping anggota TNI dan Anggota POLRI (UU No 43 Th 1999). Pengertian Pegawai Negeri adalah warga negara RI yang telah memenuhi syarat yang ditentukan, diangkat oleh pejabat yang berwenang dan diserahi tugas dalam suatu jabatan negeri, atau diserahi tugas negara lainnya, dan digaji berdasarkan peraturan perundang-undangan yang berlaku (pasal 1 ayat 1 UU 43/1999).

DP3 atau Daftar Penilaian Pelaksanaan Pekerjaan PNS tersebut, tertuang dalam PP Nomor 10 Tahun 1979, terdiri atas delapan norma-norma sikap perilaku :
1. Kesetiaan
2. Prestasi Kerja
3. Tanggung Jawab
4. Ketaatan
5. Kejujuran
6. Kerjasama
7. Prakarsa
8. Kepemimpinan
Kantor Menpan tahun 2002 menemukan dan mengidentifikasi adanya Pola Pikir Negatif (Pola Pikir Tetap) PNS yang tercermin dalam bentuk 24 hambatan atau permasalahan perilaku budaya kerja paratur pemerintahan, yaitu pola pikir Negatif (Tetap) seorang PNS yaitu :
1. Komitmen dan konsistensi terhadap visi dan misi organisasi masih rendah.
2. Sering terjadi penyimpangan dan kesalahan dalam kebijakan publik yang berdampak luas kepada masyarakat.
3. Pelaksanaan kebijakan jauh berbeda dari yang diharapkan.
4. Terjadi arogansi pejabat dan penyalahgunaan kekuasaan.
5. Pelaksanaan wewenang dan tangung jawab aparatur saat ini belum seimbang.
6. Dalam praktek di lapangan sulit dibedakan antara ikhlas dan tidak ikhlas, jujur dan tidak jujur.
7. Pejabat yang KKN akan menyebabkan KKNn meluas pada pegawai, dunia usaha dan masyarakat.
8. Gaji pegawai yang rendah/kecil dibandingkan dengan harga barang/jasa lainnya.
9. Banyak aparatur yang integritas, loyalitas dan profesionalnya rendah.
10. Belum adanya sistem merit yang jelas untuk mengukur kinerja pegawai dan tindak lanjut hasil penilaiannya.
11. Kreativitas karyawan kurang mendapat perhatian atasan.
12. Kepekaan terhadap keluhan masyarakat dinilai masih rendah.
13. Sikap yang berorientasi vertikal menyebabkan hilangnya kreativitas, rasa takut berimprovisasi.
14. Budaya suap bukan hal yang rahasia, sehingga dapat mempengaruhi sikap dan tingkah laku pimpinan dalam bekerja.
15. Ada kecenderungan para pemimpin tidak mau mengakui kesalahan di depan bawahan.
16. Masing-masing bekerja sesuai dengan uraian tugas yang ada dan belum optimal untuk bekerjasa sama dengan unit lain.
17. Sifat individualisme lebih menonjol dibandingkan kebersamaan.
18. Tidak ada sanksi yang jelas dan tegas jika pegawai melanggar aturan.
19. Budaya KKN yang menjiwai sebagian aparat.
20. Tingkat kesejahteraan yang kurang memadai.
21. Pengaruh budaya prestise yang lebih menonjol, sehingga aspek rasionalitas sering dikesampingkan.
22. Sistem seleksi (rekruitmen) yang masih kurang transparan.
23. Tidak berani tegas, karena khawatir mendapat reaksi yang negatif.
23. Banyak aparatur belum memahami makna keadilan dan keterbukaan.
24. Mengubah pola pikir (Juni Pranoto, 2007) berarti berusaha menggeser pola pikir negatif (tetap) tersebut, menjadi pola pikir positif (berkembang).
Dalam penjelasan umum Undang-undang Nomor 43 Tahun 1999 tentang Perubahan Atas Undang-undang Nomor 8 Tahun 1974 tentang Pokok-Pokok Kepegawaian ditegaskan bahwa untuk kelancaran penyelengggaraan tugas pemerintahan dan pembangunan nasional sangat tergantung pada penyempurnaan aparatur negara khususnya Pegawai Negeri Sipil.

Muins Berdasarkan uraian di atas, dapat disimpulkan bahwa konsep profesionalisme Pegawai Negeri Sipil harus memiliki ciri-ciri sebagai berikut :
1. Menguasai pengetahuan dibidangnya
Selalu berusaha dengan sungguh-sungguh untuk mem-perdalam pengetahuannya dengan tujuan agar dapat melaksanakan tugasnya secara berdaya guna dan berhasil guna. Untuk dapat mengetahui penguasaan pengetahuan dibidangnya dapat ditelusuri melalui :
a. Meningkatkan pengetahuan
Merupakan keinginan dan kesungguhan dari seorang PNS untuk selalu meningkatkan pengetahuannya agar dapat mengikuti perkembangan yang terjadi dalam lingkungan kerjanya
b. Menguasai bidang tugas
Merupakan bentuk kesadaran dan kesanggupan yang mendorong dari seorang PNS untuk selalu memiliki tekad dan ketekunan dalam melaksanakan tugas pekerjaan.
c. Efektivitas dalam melaksanakan pekerjaan
Merupakan keinginan dari seorang PNS untuk dapat melaksanakan tugasnya secara berdaya guna dan berhasil guna.
2. Komitmen pada kualitas
Sebagai rasa keterikatan untuk selalu meningkatkan kepandaian, kecakapan dan mutu pekerjaan dari seorang PNS agar dapat mendorong kinerja. Untuk dapat mengetahui komitmen pada kualitas dapat ditelusuri melalui :
a. Memiliki kecakapan
Merupakan kepedulian PNS untuk selalu meningkatkan kemampuan dalam mengerjakan pekerjaan yang menjadi tanggungjawabnya.
b. Kesanggupan dalam bekerja
Sebagai rasa keterikatan dalam dirinya terhadap tu-gas pekerjaan yang menjadi tanggung jawabnya se-hingga dapat melaksanakan tugas dengan baik.
c. Selalu meningkatkan mutu kerja
Merupakan keseriusan dari seorang PNS untuk me-laksanakan pekerjaan dengan sebaik-baiknya agar diperoleh hasil kerja yang optimal
3. Dedikasi
Sebagai suatu bentuk pengabdian dari seorang PNS atas segala sesuatu yang menjadi tanggung jawabnya dalam rangka membantu/melayani masyarakat atau orang lain. Untuk dapat mengetahui dedikasi PNS dapat ditelusuri :
a. Kebanggaan pada pekerjaan
Merupakan perasaan yang ada pada diri seseorang yang dapat menciptakan kepuasan apabila dapat me-lakukan pekerjaan yang baik.
b. Tanggungjawab pada pekerjaan
Merupakan kecenderungan sikap dari seseorang untuk berani mengambil resiko atas pekerjaan yang telah dilakukannya.
c. Mengutamakan pada kepentingan umum
Sebagai kecenderungan sikap dan keinginan yang kuat dari seseorang untuk selalu mendahulukan kepentingan orang lain daripada kepentingan diri sendiri/golongan.
4. Keinginan untuk membantu
Sebagai suatu sikap seseorang yang mencerminkan keju-juran dan keihlasan dalam bekerja untuk membantu masyarakat. Untuk dapat mengetahui keinginan PNS untuk membantu masyarakat dapat ditelusuri melalui :
a. Kejujuran
Merupakan sikap yang harus dimiliki oleh seorang PNS untuk tidak menyalahgunakan wewenang yang dibebankan kepadanya.
b. Keihlasan
Merupakan kecenderungan seorang PNS untuk me-laksanakan tugas yang menjadi tanggungjawabnya secara tulus.
Dari teori-teori sebagaimana diuraikan di atas dapat disimpulkan, bahwa profesionalisme sangat diperlukan dikalangan Pegawai Negeri Sipil, karena profesionalisme sangat berkaitan dengan kompetensi, yang ditandai oleh ciri-ciri sebagai berikut :
1. Meningkatkan pengetahuan
2. Komitmen pada kualitas
3. Dedikasi
4. Keinginan untuk membantu.

Sumber: http://id.shvoong.com/social-sciences/sociology/2025013-pengertian-pegawai-negeri-sipil-pns/#ixzz1YYOInOZ7

Tugas Pokok Kepala Sekolah

2011-09-19T02:28:00.000-07:00

Tugas pokok Kepala Sekolah ini diuraikan dalam dua bagian besar yaitu 1) Prosedur Standar Operasi ( Standard Operation Procedure ) Tugas Kepala Sekolah. 2) Proses dan Pendekatan Interpersonal dalam Menjalankan Tugas Sebagai Kepala Sekolah.

I. Prosedur Standar Operasi (Standard Operation Procedure ) Kepala Sekolah .

Kepala Sekolah sebagai pimpina tertingi di dalam suatu sekolah mempunyai tugas yang kompleks dan dan sangat menentukan maju mundurnya suatu sekolah. Tugas Kepala Sekolah yang kompleks tersebut, tidak dapat dirumuskan seluruhnya kedalam suatu prosedur tugas Kepala Sekolah. Meski pun demikian, standar minimal prosedur tugas Kepala Sekolah dapat digolongkan menjadi tujuh pokok sebagai berikut:

Kepala Sekolah Sebagai Pendidik (Edukator).
Kepala Sekolah Sebagai Manajer.
Kepala Sekolah Sebagai Administrator.
Kepala Sekolah Sebagai Supervisor (Penyelia).
Kepala Sekolah Sebagai Leader (Pemimpin).
Kepala Sekolah Sebagai Inovator.
Kepala Sekolah sebagai Motivator.

Baca selanjutnya……………..

Tutorial dan Modul Corel Draw 11

2011-09-16T10:18:00.000-07:00

Sobat Info Sararea sesi kali ini saya shering buat kalian semua mengenai Tutorial atau modul Corel Draw 11, pungsi dari software yang satu ini adalah software yang di gunakan untuk pengeditan dan pembuatan desain gambar dan desain semacam sertifikat dll.

kalo sobat Info Sararea Membutuhkannya tinggal download aja DISINI mudah-mudahan bermanfaat.

Tutorial Membuat Website dengan Photoshop CS2

2011-09-16T10:03:00.000-07:00

Sobat Info Sararea kali ini saya coba sharing mengenai Desain Website dengan Adobe Photoshop CS2.

Web yang sering dikunjungi orang merupakan nilai plus bagi seorang web designer. Banyaknya pengunjung yang datang dapat dijadikan tolok ukur keberhasilan seseorang dalam merancang dan mengembangkan sebuah website profesional.

Ada beberapa unsur yang mempengaruhi keberhasilan tersebut, diantaranya: mudah digunakan, proses koneksi cepat, tampilan menarik, perpaduan warna sangat tepat, navigasi mudah dipahami dan digunakan, isi artikel sangat berguna, dan masih banyak lagi unsur lain. Semua itu bergantung pada respon pengunjung/pengguna terhadap website yang kita buat.

Saat ini website sudah menjadi salah satu bagian dari identitas sebuah institusi, sama pentingnya dengan alamat perusahaan. Website dapat dijadikan “guide” bagi pelanggan untuk mengetahui lebih jauh tentang profil sebuah institusi secara online.

Ada beberapa sofware yang dapat digunakan untuk merancang interface sebuah website pribadi, diantaranya: Adobe Macromedia Firework dan Adobe Photoshop. Rancangan yang dibuat dalam Photoshop dapat disimpan menjadi html kemudian dapat dioleh menggunakan Adobe Macromedia Dreamweaver. Jadi anda tidak perlu lagi membuat kode html yang rumit dan panjang, cukup menggunakan perpaduan Adobe Photoshop dan Adobe Macromedia Dreamweaver.

Berikut ini, saya akan memberikan sedikit tutorial tentang pembuatan website pribadi yang impresif menggunakan Adobe Photoshop. Artikel yang saya muat di sini merupakan cuplikan dari salah satu bab buku saya yang dalam proses pencetakan di penerbit Datakom Lintas Buana. Jadi, apabila tutorial ini kurang dari sempurna, sebaiknya membeli buku tersebut

Tapi anda juga mungkin membutuhkan bisa langsung download aja DI SINI

Contoh Kata Pengantar Laporan Prakerin

2011-09-14T01:07:00.000-07:00

Sobat Info Sararea semuanya kali ini saya coba postingkan sebuah contoh Kata Pengantar Laporan Prakerin tentunya saya berharap mudah-mudahan file ini bermanfaat bagi anda semua terimakasih.
di bawah tertera link download apabila anda memerlukan.

Silahkan Klik Aja DISINI

Modul Teknik Komputer Jaringan

2011-09-13T02:23:00.001-07:00

Berikut ini materi jaringan lengkap dengan Video penjelasannya :
Dasar-dasar Jaringan :

Kumpulan Modul TKJ

( Modul modul di atas adalah sesuai dengan kurikulum TKJ tahun 2004 ), dalam praktek sehari-hari kami padukan dengan modul-modul lain hasil googling via internet. Hal ini disebabkan perkembangan yang demikian pesat terkait software , hardware maupun operating sistem khususnya basis opensource.

sumber : http://pakkardiyono.wordpress.com

Modul KKPI

2011-09-13T02:22:00.000-07:00

Modul Close source :
Modul 1 – mengetik 10 Jari
Modul 2 – mengidentifikasi dan mengoperasikan Komputer Personal
Modul 3 – Mengoperasikan Peripheral
Modul 4 – Mengoperasikan perangkat lunak pengolah kata
Modul 5 – Mengoperasikan perangkat lunak lembar sebar
Modul 6 – Mengoperasikan perangkat lunak presentasi
Modul 7 – Mengoperasikan perangkat lunak nasis data
Modul 8 – Melakukan Koneksi Internet dan bekerja dengan internet
Modul 9 – Mengelola Informasi
Modul Open Source
Kumpulan modul opensource

Sumber : http://pakkardiyono.wordpress.com

RPP Kewirausahaan Kelas 2

2011-09-13T02:16:00.001-07:00

RPP Kewirausahaan untuk kelas 2 berikut hanya sebagai contoh saya rasa masih banyak kekurangan yang bisa kita perbaiki bersama.
rpp-kls-ii-12
rpp-wu-sem-2

Sumber : http://dhienar.wordpress.com

Waspadai Kicauan Beracun Pada Akun Twitter Anda

2011-09-13T00:57:00.001-07:00

Liputan6.com, Jakarta: Punya banyak follower di Twitter boleh dibilang indikator kesuksesan seseorang di dunia maya. Tetapi yakinkah kita pendengar setia kicauan di Twitter benar-benar nyata? Waspadalah, demikian imbau pakar internet Inggris seperti dikutip Daily Mail, karena beberapa biang spam dan virus bersembuyi di balik akun-akun follower Anda.

Menurut laporan itu satu akun Twitter rata-rata menerima 17 'kicauan beracun' dalam satu hari. Tweet berbahaya seperti itu biasanya berupa 'link-link' internet yang berisi virus. Saat ini terdapat 200 juta akun Twitter yang terdaftar di dunia dan 200 juta tweet dikirim setiap hari. "Tweet yang diterima bisa mencapai 350 miliar, karena satu tweet bisa ditujukan kepada lebih dari satu orang," kata Catalin Cosoi, pakar piranti lunak dari BitDefender, perusahaan penyedia piranti lunak antivirus.

"Menurut analisis statistik kami, satu persen dari jumlah tweet yang diterima berpotensi bahaya, mengandung spam, atau link yang berisi virus dan piranti lunak berbahaya. Artinya sekitar 3,5 miliar tweet jahat diterima setiap hari," tegas Cosoi.

Daily Mail, mengutip sebuah blog teknologi, Trend Micro, bahkan menyebut contoh pengguna Twitter di Indonesia yang baru-baru ini menyerang pengguna Twitter lain dengan link berisi virus untuk merampok uang pemilik akun itu.

Empat Langkah Mengubah Ide Menjadi Bisnis

2011-09-12T21:23:00.000-07:00

SEJUMLAH ide cemerlang yang Anda miliki bisa disulap menjadi peluang bisnis potensial. Tapi, ada baiknya mempersiapkan sejumlah faktor penting sebelum melibatkan diri ke dalamnya.

Berikut ini adalah empat langkah yang dapat membantu Anda menghemat waktu, uang, dan tenaga sepanjang proses:

Membayangkan
Cari tahu apakah hal ini benar-benar sesuatu yang diinginkan. Anda tidak harus memiliki gairah terhadap produk atau jasa tertentu yang hendak ditawarkan. Tapi, Anda harus memiliki semangat tinggi untuk membuat bisnis tersebut sukses, sehingga memberikan stamina yang dibutuhkan untuk melalui pasang-surut keadaan.

Meneliti
Guna menentukan kecemerlangan ide itu, Anda perlu mengetahui apakah ide tersebut memenuhi kebutuhan tertentu dan adakah pasar untuknya. Anda juga membutuhkan naluri bisnis. Jadi, berbicaralah dengan semua orang.

Jangan takut untuk mendiskusikan ide karena karena khawatir seseorang akan mencurinya. Sebab, ketakutan itu justru menghilangkan peluang Anda mendapatkan bantuan yang diperlukan.

Merencanakan
Mayoritas rencana bisnis mencakup tujuan Anda, deskripsi bisnis, analisa pasar, analisa permulaan dan biaya sehari-hari, strategi pemasaran dan penjualan, serta rencana organisasi. Banyak perempuan membuat kesalahan dengan tidak memperhitungkan waktu dan tenaga yang mereka curahkan ke dalam rencana bisnisnya. Gaji Anda seharusnya menjadi bagian dari rencana biaya.

Mendanai
Melakukan proyeksi keuangan tidak berbeda dari merencanakan dana kuliah anak. Pertama, siapkan biaya untuk meluncurkan perusahaan Anda. Setelah itu, tentukan di mana Anda memutuskan mengamankan dana tersebut ke depan.

Banyak orang menggunakan uang tunai atau kredit mereka sendiri, atau meminjam bantuan dana dari keluarga atau teman-teman mereka. Selain itu, ada pula yang menggunakan modal ventura.

Anda juga harus melakukan analisa impas (proyeksi tentang kapan pendapatan akan melebihi pengeluaran dan Anda akan menghasilkan uang) dan belajar untuk menulis laporan keuangan, yang menunjukkan nilai perusahaan Anda. (MI/ICH)

Singkatan yang ada pada Twitter: arti RT,DM,@,PRT

2011-09-12T20:17:00.000-07:00

RT = Retweet = Ngetweet Ulang atau meneruskan twit orang yang menurut kamu twit itu bagus dan perlu dibaca oleh follower (pengikut)

PRT = Please Retweet => Mohon di tweet Ulang

DM = Direct Message => Pesan Langsung atau bisa juga privat message.

OH = Overheard => Sudah Sering Mendengar

BTW : By The Way => Ngomong ngomong

@ [username] => dipakai jika ingin membalas atau menulis pesan untuk seseorang (wajib digunakan) : semisal @ristiae (spasi) twit kamu

FTW = For The Win => Untuk Yang Menang

FTL = For The Loss => Untuk Yang Kalah

BR = Best Regards => Salam Hormat

LOL = Laugh out Loud => Tertawa terbahak-bahak (sering saya gunakan) :P

ROTFLOL = Rolling on the floor laughing out loud