[ISENG] Membuat Program Enkripsi dan Dekripsi di VB6

Dalam bidang CODER, terdapat bagian Sekuriti, Dan Sekuriti pada salah satu materinya adalah Basic Mission 7 yaitu tentang enkripsi – enkripsi. Teknik yang digunakan dalam persandiannya adalah menggunakan pergeseran nilai ASCII dari karakter sesuai dengan posisi yang ia tempati.

Kita dapat mengetahui bahwa metode ini menggunakan nilai ASCII dengan cara masukkan huruf a sebanyak – banyaknya hingga dirasa cukup, kemudian tekan tombol Enkripsi. Maka akan muncul kotak – kotak yang bukan berupa huruf maupun simbol tapi berupa kotak – kotak yang di dalamnya terdapat angka. Dari situ dapat kita ketahui bahwa pergeserannya adalah menggunakan nilai ASCII.

Melalui Microsoft Visual Basic 6.0, kita dapat mengambil nilai ASCII dari sebuah karakter, adalah dengan menggunakan perintah ASC(). Sedangkan untuk mengembalikan karakter dari sebuah nilai, kita gunakan perintah CHR().

Metode Enkripsi dan Dekripsi ini dapat kita gunakan untuk mengirimkan pesan rahasia, pesan pribadi, dan lain-lain. Cukup dengan memiliki program Enkripsi dan Dekripsi yang sama, kita dapat mengirimkan pesan yang hanya dapat diterjemahkan oleh kita. Pergeseran Nilai ASCII nya pun dapat kita ubah sesuai dengan keinginan kita agar lebih private.

Referensi aslinya dapet dari sini http://acid.it-kosongsatu.com/2009/08/basic-mission-7/  tapi sedikit di otak-atik, jadi ada fitur baru yaitu bisa pake kode kunci (key), jadi logikanya ketika kita enkripsi dengan key 5 namun ketika didekripsi dengan key mis. 9 tidak akan mengembalikan nilai aslinya, intinya key ketika di enkripsi dan didekripsi harus sama.


codingnya:

Private Sub cmdencrypt_Click()
Text2.Text = Empty
a = Len(Text1.Text)
For i = 0 To (a - 1)
B = Asc(Mid(Text1.Text, i + 1, 1))
C = B + i + Val(Text3)
d = Chr(C)
If Text3.Text = "" Then
MsgBox "Silahkan Masukkan Key!"
End If
Text2.Text = Text2.Text + d
Next i
End Sub

Private Sub cmddecrypt_Click()
Text2.Text = Empty
a = Len(Text1.Text)
For i = 0 To (a - 1)
B = Asc(Mid(Text1.Text, i + 1, 1))
C = B - i - Val(Text3)
d = Chr(C)
If Text3.Text = "" Then
MsgBox "Silahkan Masukkan Key!"
End If
Text2.Text = Text2.Text + d
Next i
End Sub

Tapi berhubung cuma iseng, jadi masih banyak bug ==a nanti kapan-kapan lanjut dikembangin lagi :)


contoh outputnya:


Kalimat "I Love You :)" dienkripsi menggunakan key 5

Selanjutnya ketika hasil enkripsi tadi didekripsi dengan key 7

Hasilnya jadi aneh wkwkwk


Dan terakhir ketika didekripsi menggunakan key yang sama ketika dienkripsi yaitu 5

Sekian iseng saya (halah ==a) semoga bermanfaat..

Tujuan Pembelajaran Ilmu Budaya Dasar di Lingkungan Kampus

Secara umum tujuan dari pembelajaran Ilmu Budaya Dasar adalah untuk mengembangkan kepribadian mahasiswa dengan cara memperluas wawasan pemikiran mahasiswa serta kemampuan kritikalnya mahasiswa terhadap nilai budaya, baik menyangkut orang lain dan alam sekitarnya maupun yang menyangkut dirinya sendiri. Ilmu budaya dasar juga merupakan ilmu untuk mengenali perilaku sendiri dan orang lain. 

Tujuan lain dari Ilmu Budaya Dasar adalah supaya membuat mahasiswa yang mempelajarinya (khususnya) mampu bersikap luwes setelah mengetahui jiwa dan perasaan manusia. Tanggap terhadap hasil budaya manusia secara lebih mendalam. Memiliki penglihatan yang jelas Dan pemikiran yang mendasar serta mampu menghargai budaya di sekitarnya dan ikut serta mengembangakan budaya bangsa. Supaya tidak terjatuh kepada sifat kedaerahan jika menjadi seorang pemimpin. Dan yang terakhir adalah sebagai jembatan para saran yang berbeda yang mampu berdialog dengan baik.

Secara spesifik tujuan pembelajarannya di lingkungan kampus adalah agar mahasiswa dapat menjalani proses sosialisasi di lingkungan kampus dengan lebih baik, jadi mahasiswa dapat saling mempelajari dan menghormati perbedaan kebudayaan di kampus karena mahasiswa lain berasal dari daerah yang berbeda begitupun dengan budaya yang dibawanya, menjunjung tinggi kebudayaan mahasiswa lain di lingkungan kampus merupakan hal yang wajib, oleh karena itu pembelajaran Ilmu Budaya Dasar sangat diperlukan untuk diterapkan di lingkungan kampus.


Referensi:
http://zulfikararticle.blogspot.com/2011/02/tujuan-ilmu-budaya-dasar-dan-definisi.html

Hubungan antara Teknologi dan Budaya dalam Kehidupan Manusia

Teknologi merupakan perkembangan suatu media/alat yang dapat digunakan dengan lebih efisien guna memproses serta mengendalikan suatu masalah. Perkembangan teknologi berlangsung secara evolutif. Dalam memasuki Era Industrialisasi, pencapaiannya sangat ditentukan oleh penguasaan teknologi karena teknologi adalah mesin penggerak pertumbuhan melalui industri. Oleh sebab itu, tepat momentumnya jika kita merenungkan masalah teknologi, menginventarisasi yang kita miliki, memperkirakan apa yang ingin kita capai dan bagaimana caranya memperoleh teknologi yang kita perlukan itu, serta mengamati betapa besar dampaknya terhadap transformasi budaya kita. Sebagian dari kita beranggapan teknologi adalah barang atau sesuatu yang baru. padahal, kalau kita membaca sejarah, teknologi itu telah berumur sangat panjang dan merupakan suatu gejala kontemporer. Setiap zaman memiliki teknologinya sendiri.
Budaya adalah suatu cara hidup yang berkembang dan dimiliki bersama oleh sebuah kelompok orang dan diwariskan dari generasi ke generasi. Budaya terbentuk dari banyak unsur yang rumit, termasuk sistem agama dan politik, adat istiadat, bahasa, perkakas, pakaian, bangunan, dan karya seni.

Hubungan Teknologi dengan Kebudayaan

Teknologi merupakan salah satu komponen kebudayaan. Teknologi menyangkut cara-cara atau teknik memproduksi, memakai, serta memelihara segala peralatan dan perlengkapan. Teknologi muncul dalam cara-cara manusia mengorganisasikan masyarakat, dalam cara-cara mengekspresikan rasa keindahan, atau dalam memproduksi hasil-hasil kesenian.
Masyarakat kecil yang berpindah-pindah atau masyarakat pedesaan yang hidup dari pertanian paling sedikit mengenal delapan macam teknologi tradisional (disebut juga sistem peralatan dan unsur kebudayaan fisik), yaitu:

• alat-alat produktif
• senjata
• wadah
• alat-alat menyalakan api
• makanan
• pakaian
• tempat berlindung dan perumahan
• alat-alat transportasi

Dengan semakin majunya perkembangan teknologi, maka hal tersebut akan berdampak pada perubahan kebudayaan. Dampak tersebut diantaranya adalah: 

1. Perubahan Sosial Budaya 
Perubahan sosial budaya adalah sebuah gejala berubahnya struktur sosial dan pola budaya dalam suatu masyarakat. Perubahan sosial budaya merupakan gejala umum yang terjadi sepanjang masa dalam setiap masyarakat. Perubahan itu terjadi sesuai dengan hakikat dan sifat dasar manusia yang selalu ingin mengadakan perubahan. Seiring dengan kemajuan teknologi, sebuah budaya dapat terpengaruh dan pada akhirnya terjadi perubahan budaya.

2. Penetrasi Kebudayaan

Yang dimaksud dengan penetrasi kebudayaan adalah masuknya pengaruh suatu kebudayaan ke kebudayaan lainnya. Dengan semakin pesatnya perkembangan teknologi dapat membuat masuknya kebudayaan lain.

Simpulan:
Sebaiknya keberadaan budaya harus kita junjung tinggi sebagai tanda penghormatan kepada para leluhur kita dengan tetap melestarikannya, jangan hanya karena kemajuan teknologi yang semakin pesat membuat kita melupakan kebudayaan yang sudah susah payah dijaga. Sebagai generasi muda marilah kita menjaga warisan leluhur yang salah satunya adalah kebudayaan yang beragam.

Referensi:
http://id.wikipedia.org/wiki/Budaya
http://id.wikipedia.org/wiki/Teknologi

Trik Ampuh Mencari Driver Windows

yap, kali ini saya ingin share bagi teman-teman yang mungkin sering kesulitan untuk menemukan driver bagi Laptop\PC kesayangan, jika telah mencari di segala sumber namun tidak mendapatkan driver yang dimaksud, teman-teman dapat mengunjungi website ini www.devid.info, situs ini sangat ampuh untuk mencari driver bagi hardware apapun, cara penggunaannya adalah sebagai berikut:
1. Buka Device Manager
2. Pilih Hardware yang belum terinstall drivernya
3. Klik kanan dan pilih Properties, masuk ke Tab Details, klik di bagian Property dan pilih Device Instance Path, klik kanan teks yang muncul di bawahnya dan klik copy
mis. saya ingin mencari driver untuk VGA Intel GMA 950

Device Instance Path yang di dapat adalah PCI\VEN_8086&DEV_27AE&SUBSYS_01101462&REV_03\3&11583659&0&10

4. pergi ke www.devid.info

5. masukkan Device Instance Path yang telah didapat tadi dan klik OK

6. voila, driver yang saya butuhkan langsung terlist disana, dan siap untuk di download.

cat: Device Instance Path biasanya terdapat pada Windows 7, pada Windows XP, biasanya namanya adalah Device Instance Id

Demikian penjelasan saya, Semoga Bermanfaat. ^^

Sharing is Caring :)

referensi:

www.devid.info

I Love DEPAPEPE ^^

kali ini mau nulis santai-santai aja nih..
mau share grup duo dari jepang yang lagunya enak dan top, DEPAPEPE namanya..

dari wikipedia:
DEPAPEPE (デパペペ) adalah grup musik berasal dari Jepang yang kedua personilnya memainkan gitar akustik. Nama DEPAPEPE sendiri berasal dari gabungan kedua nama pendek dari kedua personilnya. Dibentuk tahun 2002, mereka sempat mengeluarkan 3 album indie sebelum akhirnya mereka bergabung dengan label Sony Music.

Anggota

• Miura Takuya (三浦拓也) - Depa (Lahir: Kobe, 5 Maret 1983)
• Tokuoka Yoshinari (徳岡慶也) - Pepe (Lahir: Kobe, 15 Juli 1977)

Aliran yang mereka usung adalah Accoustic dan Instrumental Guitar, lagu-lagunya itu loh xD enak semuanya, walaupun hanya berupa petikan gitar, namun semua nada yang dibawa oleh mereka dapat memberi arti tersendiri, ada yang bisa membuat senang, bersemangat, sedih, sampai ada yang bisa bikin ngantuk :p


Saya mau share beberapa lagu yang saya suka, diantaranya:
Album : Song
BEGINNING OF THE ROAD ～collection of early songs～ : Saya suka semua lagu disini xD
Ciao! Bravo!! : Lahaina, SUNSHINE SURF!!
デパクラ (DEPACLA)　～DEPAPEPE PLAYS THE CLASSICS～ : パッヘルベルのカノン Pachelbel's Canon in D (Mainin CANON xD)
Let's Go!!! : START (pertama kepincut DEPAPEPE gara2 denger lagu ini), Wedding Bell
HOP! SKIP! JUMP! : Marine Drive, GIGIO2
デパナツ (DEPANATSU) ～drive!drive!!drive!!!～ : SUMMER PARADE
Do! : KATANA, HighRock!!, PaPaPa, Special Lady～the wedding anthem～
デパクラ2～DEPAPEPE PLAYS THE CLASSICS 2 : enak semua, DEPAPEPE mainin lagu klasik yg populer, ex. Mozart's Turkish March


Oia, kalau kuping anda jeli, lagu-lagu mereka sering menjadi background song pada acara-acara televisi di indonesia (ga mau sebut channel hehe).
Sekian Share Saya Mengenai DEPAPEPE, kalau mau denger ya udah tau kan tempat nyarinya :p
Sharing is Caring :)


sedikit sumber:
id.wikipedia.org/wiki/DEPAPEPE
en.wikipedia.org/wiki/Depapepe

WMouseXP, Presentasi Menjadi Semakin Mudah

hi, ketemu lagi nih, kali ini mau share progie maknyus lagi :p, WMouseXP namanya, ketika kita sedang presentasi, pasti nggak mau direpotin dengan mengganti slide dengan cara menekan tombol di mouse/keyboard/dll karena pasti akan merepotkan dan mengganggu konsentrasi pada saat presentasi, nah dengan menggunakan software WMouseXP ini, presentasi akan dikendalikan melalui HP! ya, melalui Handphone anda, biasanya untuk nokia ada Nokia Wireless Presenter, namun sayangnya program ini tidak terlalu support banyak HP dan masih banyak bug, sedangkan cara lain adalah membeli mouse wireless namun pasti anda tidak akan mau memilih cara ini karena harga mouse wireless yang rata-rata masih mahal, solusi yang tepat adalah dengan menggunakan program ini, yang anda butuhkan hanya:
1. HP yang sudah support JAVA MIDP 2.0 dan memiliki koneksi bluetooth. (Sejauh ini baru coba HP Nokia)
2. Laptop/PC yang sudah memiliki koneksi bluetooth
3. Software WMouseXP yang bisa didownload disini (direct link) homepagenya aslinya disini
oia, WMouseXP ada 2 versi, yang versi www.clearevo.com/wmousexp/ adalah versi berbayar, sedangkan versi ini adalah versi open source (gratisss) berlisensi GPL.
Langsung saja, cara menggunakannya:
1. Download melalui direct link di atas dan Extract ykasidit-WMouseXP-dd574bf.zip (dimana aja terserah :p)
2. Aktifkan bluetooth pada laptop dan HP anda
3. Buka folder ykasidit-WMouseXP-dd574bf dan jalankan (klik 2x) Start_WMouseXP
Tampilan awal WMouseXP

4. klik Send & Install on phone
5. pada bagian select your phone, pilih HP yang akan digunakan, klik OK

6. WMouseXP akan mengirimkan file WMouseXP.jar ke HP yang dituju, pada HP tersebut buka file tersebut dan install (HP nokia s60) atau biasanya pada HP nokia s40 dll langsung dapat dijalankan.
7. Setelah terinstall, buka WMouseXP pada HP, jika bluetooth belum diaktifkan, maka akan ada konfirmasi untuk mengaktifkannya, dan biasanya ada konfirmasi izin untuk menggunakan konektivitas bluetooth pada HP tersebut, pilih izinkan.
Tampilan awal  WMouseXP di HP

pastikan pada WMouseXP di HP terdapat tulisan Awaiting PC-Side
8. Klik Connect pada WMouseXP PC-Side yang telah dijalankan di Laptop
9. Simsalabim, anda pun sudah dapat mengendalikan Laptop anda dari sebuah HandPhone!

semua Command dapat dilihat pada WMouseXP di HP, Command-Command ini juga dapat dimodifikasi melalui WMouseXP PC-Side, dengan mengklik menu Custom Commands pada menubar.
cobalah untuk melakukan presentasi, buka file powerpoint, dll dan tekan tombol 3 (yg ada gambar slide) pasti bisa..
WMouseXP juga dapat menggantikan fungsi mouse pada Laptop/PC, misalnya:
- klik kiri = tombol OK 1x
- klik 2x = tombol OK 2x
- klik kanan = tahan tombol OK
cat: kalau bisa gunakan bluetooth yang memiliki antena sebagai penguat sinyal pada Laptop/PC agar jarak dapat semakin jauh.

Sekian dan Semoga Bermanfaat :D
Sharing is Caring :)

DOSBox, Alternatif untuk software yang tidak support 64bit

hey guys, kali ini ane mau share progie bagus ^^..
DOSBox namanya, software ini berlisensi GPL, jadi open source dan pastinya gratis tis tis :p, kalo mau download ke sini, pilih sesuai operating system yang digunakan..
nah pasti kalian bertanya-tanya bagaimana cara menggunakan DOSBox ini kan?
berikut saya beri tutorial singkatnya..
oia pada tutorial ini saya akan menjalankan software DBASE IV v2, software DBMS yang jadul naujubileh (tahun 93) =.= berikut langkah-langkahnya:
1. Download dan Install DOSBox dari link di atas (ga usah dijelasin kali ya :LOL)
2. Jalanin DOSBox, biasanya ada shortcutnya di desktop, kalau tidak ada jalanin dari Start-All Programs-DOSBox-DOSBox
Tampilan awal DOSBox

3. mount path pada HDD
mount C: <path_HDD>
DOSBox biasanya menggunakan drive C: (Virtual)
path= lokasi folder tempat software yang ingin dijalankan
pada tutorial ini, saya mengasumsikan software DBASE terdapat di path D:\DBASE
jadi untuk mounting path ini menggunakan
mount C: D:\DBASE
4. masuk ke drive yang di mount
sekarang drive C: di DOSBox adalah path D:\DBASE pada HDD kita, selanjutnya kita masuk ke C: pada DOSBox, cukup mengetikkan
C:
5. Jalankan software yang ingin dijalankan
sekarang kita sudah berada pada D:\DBASE yang sudah di mount ke C: dalam DOSBox, langkah selanjutnya adalah menjalankan file utama DBASE.exe pada folder yang telah di mount, cukup ketikkan
DBASE
atau
DBASE.exe
6. Taraa.. pasti DBASE dapat berjalan dengan sukses ^^
cat: software ini juga dapat menjalankan software 32bit lainnya yang tidak support di 64bit (biasanya software jadul, ex. Pascal, QBASIC, dll)

Berikut Beberapa Screenshotnya:

Selamat Mencoba.. :D
Sharing Is Caring :)