LISTING PROGRAM. Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

A-1 LISTING PROGRAM

TAMPILAN UTAMA Public Class FormUtama Public lokasiLsb As String Public lokasi2Lsb As String Public besarFileLsb As Long Public besarFile2Lsb As Long Public lokasiEof As String Public lokasi2Eof As String Public besarFileEof As Long Public besarFile2Eof As Long Public waktuSisipLsb As Long Public waktuSisipEof As Long Public waktuEkstraksiLsb As Long Public waktuEkstraksiEof As Long Private Sub LSBToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LSBToolStripMenuItem.Click Dim frm As New LSB frm.Show() End Sub Private Sub EOFToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EOFToolStripMenuItem.Click Dim frm As New EOF frm.Show() End Sub Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click Dim frm As New Tentang frm.Show() End Sub

Universitas Sumatera Utara

A-2 EOF Public Class EOF Public lokasi As String = "" Public lokasi2 As String = "" Public namaFile As String = "" Public namaFile2 As String = "" Public besarFileAsli As Long = 0 Public besarFileSetelahProses As Long = 0 Dim kelas As New Kelas() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.Title = "Buka File Gambar" OpenFileDialog1.Filter = "BMP Files (*.bmp)|*.bmp|JPEG Files (*.jpeg)|*.jpeg|JPG Files (*.jpg)|*.jpg|All files (*.*)|*.*" OpenFileDialog1.FilterIndex = 1 OpenFileDialog1.RestoreDirectory = True OpenFileDialog1.FileName = "" OpenFileDialog1.ShowDialog() End Sub Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk 'Buka file gambar 'Variabel temp untuk menampung nama file sementara, jika diujung nama file terdapat terdapat -EOF.bmp berarti file tersebut sudah tersisip gambar. Dim temp = OpenFileDialog1.SafeFileName.ToString 'Cek apakah file tersebut memiliki panjang string lebih dari 8 agar tidak terjadi error. If temp.Length > 8 Then temp = temp.Substring(temp.Length - 8) End If If temp <> "-EOF.bmp" Then 'Inisialisasi pembukaan file. Dim strm As System.IO.Stream strm = OpenFileDialog1.OpenFile() lokasi = OpenFileDialog1.FileName.ToString FormUtama.lokasiEof = lokasi namaFile = OpenFileDialog1.SafeFileName.ToString namaFile = namaFile.Remove(namaFile.Length - 4) besarFileAsli = New System.IO.FileInfo(lokasi).Length FormUtama.besarFileEof = besarFileAsli 'besarFileAsli *= 0.000976562 'Masukkan gambar pada textbox PictureBox1.ImageLocation = lokasi PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage If IsNothing(strm) Then strm.Close() End If Else


A-3 LSB Public Class LSB Public lokasi As String = "" Public lokasi2 As String = "" Public namaFile As String = "" Public namaFile2 As String = "" Public besarFileAsli As Long = 0 Public besarFileSetelahProses As Long = 0 Dim sudahSisip = False Dim kelas As New Kelas() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.Title = "Buka File Gambar" OpenFileDialog1.Filter = "BMP Files (*.bmp)|*.bmp|JPEG Files (*.jpeg)|*.jpeg|JPG Files (*.jpg)|*.jpg|All files (*.*)|*.*" OpenFileDialog1.FilterIndex = 1 OpenFileDialog1.RestoreDirectory = True OpenFileDialog1.FileName = "" OpenFileDialog1.ShowDialog() End Sub Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk 'Buka file gambar 'Variabel temp untuk menampung nama file sementara, jika diujung file terdapat terdapat -LSB.bmp berarti file tersebut sudah tersisip gambar. Dim temp = OpenFileDialog1.SafeFileName.ToString 'Cek apakah file tersebut memiliki panjang string lebih dari 8 agar tidak terjadi error. If temp.Length > 8 Then temp = temp.Substring(temp.Length - 8) End If If temp <> "-LSB.bmp" Then 'Inisialisasi pembukaan file. Dim strm As System.IO.Stream strm = OpenFileDialog1.OpenFile() lokasi = OpenFileDialog1.FileName.ToString FormUtama.lokasiLsb = lokasi namaFile = OpenFileDialog1.SafeFileName.ToString namaFile = namaFile.Remove(namaFile.Length - 4) besarFileAsli = New System.IO.FileInfo(lokasi).Length FormUtama.besarFileLsb = besarFileAsli 'besarFileAsli *= 0.000976562 'Masukkan gambar pada textbox PictureBox1.ImageLocation = lokasi PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage sudahSisip = False If IsNothing(strm) Then strm.Close() End If Else 'Inisialisasi pembukaan file. Dim strm As System.IO.Stream strm = OpenFileDialog1.OpenFile() lokasi2 = OpenFileDialog1.FileName.ToString


A-4 namaFile2 = OpenFileDialog1.SafeFileName.ToString 'Masukkan gambar pada textbox PictureBox1.ImageLocation = lokasi2 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage sudahSisip = True If IsNothing(strm) Then strm.Close() End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If lokasi = "" Then MsgBox("Gambar belum di masukkan!") Else If TextBox1.Text.Length = 0 Then MsgBox("Pesan yang ingin disisipkan kosong!") Else If ((TextBox1.Text.Length * 8) + 1) > ((PictureBox1.Image.Width * PictureBox1.Image.Height) * 3) Then MsgBox("Dimensi gambar tidak cukup untuk menampung pesan!") ElseIf sudahSisip = True Then MsgBox("Gambar yang dipilih adalah gambar yang sudah disisipi!") PictureBox1.Image = Nothing TextBox1.Text = "" Button1.Focus() Else 'Masukkan gambar kepada variabel bmp Dim bmp As New Bitmap(lokasi) 'Inisialisasi kelas LSB bmp = kelas.leastSignificantBit(bmp, TextBox1.Text & "#") PictureBox1.Image = bmp 'Beri nama file dengan akhiran -LSB agar dapat diketahui gambar yang telah disisipi text atau tidak. Dim lokasiNamaFile As String = Environment.CurrentDirectory & "\" & namaFile & "-LSB.bmp" FormUtama.lokasi2Lsb = lokasiNamaFile 'Simpan gambar bmp.Save(lokasiNamaFile, System.Drawing.Imaging.ImageFormat.Bmp) besarFileSetelahProses = New System.IO.FileInfo(lokasiNamaFile).Length FormUtama.besarFile2Lsb = besarFileSetelahProses 'besarFileSetelahProses *= 0.000976562 TextBox1.Clear() PictureBox1.Image = Nothing MsgBox("Pesan telah disisip, disimpan pada " & lokasiNamaFile) End If End If End If End Sub


A-5 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If lokasi2 = "" Then MsgBox("Gambar hasil sisip LSB belum di masukkan") Else Dim bmp As New Bitmap(lokasi2) TextBox1.Text = kelas.ekstraksiLSB(bmp) End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click PictureBox1.Image = Nothing TextBox1.Text = "" lokasi = "" lokasi2 = "" namaFile = "" namaFile2 = "" End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If namaFile = "" Then MsgBox("Masukkan gambar terlebih dahulu!") TextBox1.Clear() Button1.Focus() Else If IsNothing(PictureBox1.Image) Then Else Label1.Text = TextBox1.Text.Length & " / " & Math.Floor((((PictureBox1.Image.Width * PictureBox1.Image.Height) * 3) / 8) - 1) End If End If End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub End Class


A-6

LAPORAN Public Class Laporan Private Sub Laporan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If FormUtama.lokasiLsb = "" Or FormUtama.lokasi2Lsb = "" Or FormUtama.besarFileLsb = 0 Or FormUtama.besarFile2Lsb = 0 Then MsgBox("Penyisipan / Ekstraksi LSB belum di lakukan!") Else Dim bmp1 As New Bitmap(FormUtama.lokasiLsb) pBoxLSB1.Image = bmp1 pBoxLSB1.SizeMode = PictureBoxSizeMode.StretchImage lokasiLSB1.Text = FormUtama.lokasiLsb besarLSB1.Text = FormUtama.besarFileLsb & " Byte" resolusiLSB1.Text = bmp1.Width & " x " & bmp1.Height lblWaktuSisipLSB.Text = FormUtama.waktuSisipLsb & " ms" Dim bmp2 As New Bitmap(FormUtama.lokasi2Lsb) pBoxLSB2.Image = bmp2 pBoxLSB2.SizeMode = PictureBoxSizeMode.StretchImage lokasiLSB2.Text = FormUtama.lokasi2Lsb besarLSB2.Text = FormUtama.besarFile2Lsb & " Byte" resolusiLSB2.Text = bmp2.Width & " x " & bmp2.Height lblWaktuEkstraksiLSB.Text = FormUtama.waktuEkstraksiLsb & " ms" End If If FormUtama.lokasiEof = "" Or FormUtama.lokasi2Eof = "" Or FormUtama.besarFileEof = 0 Or FormUtama.besarFile2Eof = 0 Then MsgBox("Penyisipan / Ekstraksi EOF belum di lakukan!") Else Dim bmp1 As New Bitmap(FormUtama.lokasiEof) pBoxEof1.Image = bmp1 pBoxEof1.SizeMode = PictureBoxSizeMode.StretchImage lokasiEof1.Text = FormUtama.lokasiEof besarEof1.Text = FormUtama.besarFileEof & " Byte" resolusiEof1.Text = bmp1.Width & " x " & bmp1.Height lblWaktuSisipEof.Text = FormUtama.waktuSisipEof & " ms" Dim bmp2 As New Bitmap(FormUtama.lokasi2Eof) pBoxEof2.Image = bmp2 pBoxEof2.SizeMode = PictureBoxSizeMode.StretchImage lokasiEof2.Text = FormUtama.lokasi2Eof besarEof2.Text = FormUtama.besarFile2Eof & " Byte" resolusiEof2.Text = bmp2.Width & " x " & bmp2.Height lblWaktuEkstraksiEof.Text = FormUtama.waktuEkstraksiEof & " ms" End If End Sub Private Sub pBoxLSB2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pBoxLSB2.Click End Sub End Class


A-7 TENTANG Public Class Tentang Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub End Class

HELP Public Class Help Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub End Class

CLASS Imports System.Drawing Public Class Kelas Private Function binerKeDesimal(ByVal biner As String) Dim hasil As Integer = 0 Dim multi As Integer = 0 Dim i As Integer = biner.Length - 1 Do While (i >= 0) If biner.Substring(i, 1) = "1" Then hasil += Math.Pow(2, multi) End If multi += 1 i -= 1 Loop Return hasil End Function Private Function desimalKeBiner(ByVal desimal As Integer) Dim biner As String = "" Dim temp As Integer = 0 While (desimal > 0) temp = desimal Mod 2 desimal = Math.Floor(desimal / 2) biner = biner.Insert(0, temp.ToString) End While If biner.Length < 8 Then For i As Integer = 0 To 8 - biner.Length - 1 biner = biner.Insert(i, "0") Next End If Return biner End Function


A-8 Public Function leastSignificantBit(ByVal bmp As Bitmap, ByVal txt As String) Dim waktu As DateTime = DateTime.Now Dim selang As TimeSpan Dim maksX As Integer = bmp.Width Dim maksY As Integer = bmp.Height Dim str As String = "" Dim z As Integer = 0 Dim habis As Boolean = False 'Ubah setiap karakter dari string menjadi ASCII lalu ubah kedalam bentuk biner. 'Tambahkan setiap 8 bit biner kedalam String str untuk mempermudah penyisipan. For i As Integer = 0 To (txt.Length - 1) str += desimalKeBiner(AscW(txt.Substring(i, 1))) Next 'Perulangan dari kiri atas gambar hingga kanan bawah gambar. For y As Integer = 0 To (maksY - 1) For x As Integer = 0 To (maksX - 1) 'Ambil R,G,B dari setiap Piksel dan ubah kedalam bentuk biner lalu masukkan ke variabel merah,hijau,biru. Dim merah As String = desimalKeBiner(bmp.GetPixel(x, y).R) Dim hijau As String = desimalKeBiner(bmp.GetPixel(x, y).G) Dim biru As String = desimalKeBiner(bmp.GetPixel(x, y).B) 'Cek apakah penyisipan bit telah selesai / sampai z = panjang dari str. If z < str.Length Then 'Buang bit terakhir dari merah. merah = merah.Remove(7, 1) 'Sisipkan bit ke z dari str pada merah. merah = merah.Insert(7, str.Substring(z, 1)) 'Tambahkan z agar dapat membaca bit selanjutnya pada str. z += 1 End If 'Cek apakah penyisipan bit telah selesai / sampai z = panjang dari str. If z < str.Length Then 'Buang bit terakhir dari hijau. hijau = hijau.Remove(7, 1) 'Sisipkan bit ke z dari str pada hijau. hijau = hijau.Insert(7, str.Substring(z, 1)) 'Tambahkan z agar dapat membaca bit selanjutnya pada str. z += 1 End If 'Cek apakah penyisipan bit telah selesai / sampai z = panjang dari str. If z < str.Length Then 'Buang bit terakhir dari biru. biru = biru.Remove(7, 1) 'Sisipkan bit ke z dari str pada biru.


A-9 biru = biru.Insert(7, str.Substring(z, 1)) 'Tambahkan z agar dapat membaca bit selanjutnya pada str. z += 1 End If 'Masukkan piksel yang telah dirubah R,G,B nya kepada bmp. bmp.SetPixel(x, y, Color.FromArgb(binerKeDesimal(merah), binerKeDesimal(hijau), binerKeDesimal(biru))) 'Jika z = panjang dari str, maka habis = true dan keluar dari perulangan x. If z = str.Length Then habis = True Exit For End If Next 'Jika habis = true, keluar dari perulangan y. If habis Then Exit For End If Next 'Hitung selang waktu. selang = DateTime.Now - waktu FormUtama.waktuSisipLsb = selang.TotalMilliseconds 'Lempar kembali bmp ke si pemanggil fungsi ini. Return bmp End Function Public Function ekstraksiLSB(ByVal bmp) Dim waktu As DateTime = DateTime.Now Dim selang As TimeSpan Dim maksX As Integer = bmp.Width Dim maksY As Integer = bmp.Height Dim str As String = "" Dim biner As String = "" Dim z As Integer = 0 Dim selesai As Boolean = False 'Perulangan dari kiri atas gambar hingga kanan bawah gambar. For y As Integer = 0 To (maksY - 1) For x As Integer = 0 To (maksX - 1) 'Ambil R,G,B dari setiap Piksel dan ubah kedalam bentuk biner lalu masukkan ke variabel merah,hijau,biru. Dim merah As String = desimalKeBiner(bmp.GetPixel(x, y).R) Dim hijau As String = desimalKeBiner(bmp.GetPixel(x, y).G) Dim biru As String = desimalKeBiner(bmp.GetPixel(x, y).B)

'Cek apakah z=8 / bit yang telah terbaca sudah terdapat 8 bit. If z = 8 Then 'Ubah biner ke desimal ASCII lalu ubah kembali menjadi karakter biasa, masukkan dalam variabel temp.


A-10 Dim temp As String = Chr(binerKeDesimal(biner)).ToString 'Jika karakter yang ditemukan = # maka proses ekstraksi telah selesai / selesai=true, keluar dari perulangan x. If temp = "#" Then selesai = True Exit For End If 'Jika tidak tambahkan karakter yang didapatkan kepada String str. str += temp 'Set z=0 agar dapat diketahui berapa bit yang telah terbaca. z = 0 'Kosongkan String biner biner = "" End If 'Ambil bit terakhir dari merah, dan tambahkan kedalam String biner. biner += merah.Substring(7, 1) 'Tambahkan indeks z. z += 1 'Cek apakah z=8 / bit yang telah terbaca sudah terdapat 8 bit. If z = 8 Then 'Ubah biner ke desimal ASCII lalu ubah kembali menjadi karakter biasa, masukkan dalam variabel temp. Dim temp As String = Chr(binerKeDesimal(biner)).ToString 'Jika karakter yang ditemukan = # maka proses ekstraksi telah selesai / selesai=true, keluar dari perulangan x. If temp = "#" Then selesai = True Exit For End If 'Jika tidak tambahkan karakter yang didapatkan kepada String str. str += temp 'Set z=0 agar dapat diketahui berapa bit yang telah terbaca. z = 0 'Kosongkan String biner biner = "" End If 'Ambil bit terakhir dari hijau, dan tambahkan kedalam String biner. biner += hijau.Substring(7, 1) 'Tambahkan indeks z. z += 1 'Cek apakah z=8 / bit yang telah terbaca sudah terdapat 8 bit. If z = 8 Then 'Ubah biner ke desimal ASCII lalu ubah kembali menjadi karakter biasa, masukkan dalam variabel temp. Dim temp As String = Chr(binerKeDesimal(biner)).ToString


A-11 'Jika karakter yang ditemukan = # maka proses ekstraksi telah selesai / selesai=true, keluar dari perulangan x. If temp = "#" Then selesai = True Exit For End If 'Jika tidak tambahkan karakter yang didapatkan kepada String str. str += temp 'Set z=0 agar dapat diketahui berapa bit yang telah terbaca. z = 0 'Kosongkan String biner biner = "" End If 'Ambil bit terakhir dari biru, dan tambahkan kedalam String biner. biner += biru.Substring(7, 1) 'Tambahkan indeks z. z += 1 Next 'Jika selesai = true, keluar dari perulangan y. If selesai Then Exit For End If Next 'Hitung selang waktu. selang = DateTime.Now - waktu FormUtama.waktuEkstraksiLsb = selang.TotalMilliseconds 'Lempar kembali String str kepada si pemanggil fungsi. Return str End Function Public Function endOfFile(ByVal bmp As Bitmap, ByVal txt As String) Dim waktu As DateTime = DateTime.Now Dim selang As TimeSpan Dim maksX As Integer = bmp.Width Dim maksY As Integer = bmp.Height 'Hitung penambahan pada Y dengan rumus bulatkan keatas(panjang teks / tinggi gambar). Dim penambahanPadaY As Integer = Math.Ceiling(Val(txt.Length) / Val(maksX)) Dim bmp2 As New Bitmap(maksX, bmp.Height + penambahanPadaY + 1) Dim z As Integer = 0 Dim habis = False 'Beri penanda pada awal pesan dan akhir pesan. txt = txt.Insert(0, "#") txt = txt.Insert(txt.Length, "#") 'Isi semua pixel gambar asli kepada gambar yang akan ditambahkan pesan. For y As Integer = 0 To maksY - 1 For x As Integer = 0 To maksX - 1 Dim merah As Integer = bmp.GetPixel(x, y).R Dim hijau As Integer = bmp.GetPixel(x, y).G


A-12 Dim biru As Integer = bmp.GetPixel(x, y).B bmp2.SetPixel(x, y, Color.FromArgb(merah, hijau, biru)) Next Next 'Perulangan dari tinggi maksimum gambar sampai penambahan yang telah dihitung. For y As Integer = maksY To maksY + penambahanPadaY For x As Integer = 0 To maksX - 1 'Cek apakah z = panjang text. Jika sudah, habis = true dan isi semua piksel yang belum terisi sepanjang X dengan 0(NULL) / warna hitam. If z = txt.Length Then habis = True bmp2.SetPixel(x, y, Color.FromArgb(0, 0, 0)) Else 'Ambil 1 karakter pada String txt dan ubah menjadi ASCII. Dim karakter As Integer = AscW(txt.Substring(z, 1)) 'Tambahkan indeks z. z += 1 'Masukkan piksel yang berisikan nilai karakter,karakter,karakter sebagai R,G,B pada bmp2. bmp2.SetPixel(x, y, Color.FromArgb(karakter, karakter, karakter)) End If Next 'Jika habis = true, maka keluar dari perulangan y. If habis Then Exit For End If Next 'Hitung selang Waktu. selang = DateTime.Now - waktu FormUtama.waktuSisipEof = selang.TotalMilliseconds ' Lempar kembali bmp2 kepada si pemanggil fungsi. Return bmp2 End Function Public Function ekstraksiEOF(ByVal bmp As Bitmap) Dim waktu As DateTime = DateTime.Now Dim selang As TimeSpan Dim maksY As Integer = bmp.Height Dim maksX As Integer = bmp.Width Dim str As String = "" Dim start As Boolean = False Dim selesai As Boolean = False Dim x As Integer = maksX - 1 Dim y As Integer = maksY - 1 'Perulangan dari maksimumY dan maksimumX hingga selesai = true. Do While (selesai = False) 'Ambil R dari bmp dan ubah menjadi karakter lalu masukkan kepada variabel karakter. Dim karakter As String = Chr(bmp.GetPixel(x, y).R)


A-13 'Jika start = true. If start Then 'Masukkan karakter ke String str, di indeks ke 0 String str tersebut. str = str.Insert(0, karakter) End If 'Jika karakter = # dan start = false. If karakter = "#" And start = False Then 'Telah ditemukan tanda pagar, inisialisasi start = true. start = True ElseIf karakter = "#" And start = True Then 'Jika karakter = # dan start = true. 'Hilangkan indeks ke 0 dari String str agar tanda # tidak terikut ke pesan. str = str.Remove(0, 1) 'Keluar dari perulangan. selesai = True Exit Do End If 'Jika y<0 keluar perulangan agar tidak terjadi error. If y <= 0 Then Exit Do End If 'Jika x masi lebih besar dari 0, kurangi x agar dapat membaca kolom piksel selanjutnya. If x > 0 Then x -= 1 Else 'Ini menandakan baris tertentu telah terbaca semuanya. 'Jika x = 0 maka x = maksimumX dari gambar dikurang 1. x = maksX - 1 'Kurangi y agar dpt membaca baris berikutnya. y -= 1 End If Loop 'Hitung selang waktu. selang = DateTime.Now - waktu FormUtama.waktuEkstraksiEof = selang.TotalMilliseconds 'Lempar kembali str kepada si pemanggil fungsi. Return str End Function End Class


B-1

ASCII Table (ASCII = American Standard Code for Information Interchage)

Decimal 048 049 050 051 052 053 054 055 056 057 065 066 067 068 069 070 071 072 073 074 075 076 077 078 079 080 081 082 083 084 085 086 087 088 089 090 097 098 099 100 101 102 103 104 105 106 107

Octal Hex 060 061 062 063 064 065 066 067 070 071 101 102 103 104 105 106 107 110 111 112 113 114 115 116 117 120 121 122 123 124 125 126 127 130 131 132 141 142 143 144 145 146 147 150 151 152 153

30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 61 62 63 64 65 66 67 68 69 6A 6B

Binary 00110000 00110001 00110010 00110011 00110100 00110101 00110110 00110111 00111000 00111001 01000001 01000010 01000011 01000100 01000101 01000110 01000111 01001000 01001001 01001010 01001011 01001100 01001101 01001110 01001111 01010000 01010001 01010010 01010011 01010100 01010101 01010110 01010111 01011000 01011001 01011010 01100001 01100010 01100011 01100100 01100101 01100110 01100111 01101000 01101001 01101010 01101011

Character 0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k


B-2 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122

154 155 156 157 160 161 162 163 164 165 166 167 170 171 172

6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7A

01101100 01101101 01101110 01101111 01110000 01110001 01110010 01110011 01110100 01110101 01110110 01110111 01111000 01111001 01111010

l m n o p q r s t u v w x y z


C-1

CURRICULUM VITAE

Data Personal Nama

: Cindy Violita.

Tempat/Tanggal Lahir

: Medan/7 November 1990

Jenis Kelamin

: Perempuan

Status Perkawinan

: Belum Kawin

Alamat Lengkap 20216

: Jl. A.R.Hakim GG.Sukahati No.5 Medan. Kode pos

Telp/Hp

: 061 – 7361366 / 081375368884

Email

:[email protected]

Riwayat Pendidikan Universitas Sumatera Utara dari Tahun 2008 s/d Tahun 2013 SMA Negeri 10 Medan

dari Tahun 2005 s/d Tahun 2008

SMP Negeri 3 Medan


SD Swasta Kartini Medan


Kemampuan 1. Dance 2. Modeling


LISTING PROGRAM. Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Recommend Documents