tugas saya terimalasih

Selesaikan kasus berikut ini menggunakan metode TOPSIS dengan bobot W=[4,5,4,3] :

Nama KK	C1	C2	C3	C4
ALDYAN	2	2	3	1
HENDRO	3	4	1	2
JOKO	2	5	1	2
DONI	2	3	2	2
DONO	3	4	4	2
KASINO	2	3	2	2
SUSANTO	1	5	5	1

1.       X1= √2²+3²+2²+2²+3²+2²+1² = 5,9160

R11=2/5,9160=0,3380

R12=3/5,9160=0,5070

R13=2/5,9160=0,3380

R14=2/5,9160=0,3380

R15=3/5,9160=0,5070

R16=2/5,9160=0,3380

R17=1/5,9160=0,1690

2.       X2=√2²+4²+5²+3²+4²+3²+5² = 10,1980

R12=2/10,1980=0,1961

R22=4/10,1980=0,3922

R32=5/10.1980=0,4902

R42=3/10,1980=0,2941

R52=4/10,1980=0,3922

R62=3/10,1980=0,2941

R72=5/10.1980=0,4902

3.       X3=√3²+1²+1²+2²+4²+2²+5² = 7,7459

R13=3/7,7459=0,3837

R23=1/7,7459=0,1291

R33=1/7,7459=0,1291

R43=2/7,7459=0,2582

R53=4/7,7459=0,5164

R63=2/7,7459=0,2582

R73=5/7,7459=0,6455

4.       X4=√1²+2²+2²+2²+2²+2²+1² =4, 6904

R14=1/4,6904=0,2132

R24=2/4,6904=0,4264

R34=2/4,6904=0,4264

R44=2/4,6904=0,4264

R54=2/4,6904=0,4264

564=2/4,6904=0,4264

R74=1/4,6904=0,2132

Matrik R

0,3380                   0,1961                   0,3837                   0,2132

0,5070                   0,3922                   0,1291                   0,4264

0,3380                   0,4902                   0,1291                   0,4264

0,3380                   0,2941                   0,2582                   0,4264

0,5070                   0,3922                   0,5164                   0,4264

0,3380                   0,2941                   0,2582                   0,4264

0,1690                   0,4902                   0,6455                   0,2132

Y11=w1r11=4*0,3380=1,352

Y21=w1r21=4*0,5070=2,028

Y31=w1r31=4*0,3380=1,352

Y41=w1r41=4*0,3380=1,352

Y51=w1r51=4*0,5070=2,028

Y61=w1r61=4*0,3380=1,352

Y71=w1r71=4*0,1690=0,676

Y12=w2r12=5*0,1961=0.9805

Y22=w2r22=5*0,3922=1,961

Y32=w2r32=5*0,4902=2,451

Y42=w2r42=5*0,2941=1,4705

Y52=w2r52=5*0,3922=1,961

Y62=w2r62=5*0,2941=1,4705

Y72=w2r72=5*0,4902=2,451

Y13=w3r13=4*0,3837=1,5348

Y23=w3r23=4*0,1291=0,5164

Y33=w3r33=4*0,1291=0,5164

Y43=w3r43=4*0,2582=1,0328

Y53=w3r53=4*0,5164=2,0656

y63=w3r63=4*0,2582=1,0328

y73=w3r73=4*0,6455=2,582

y14=w4r14=3*0,2132=0,6396

y24=w4r24=3*0,4264=1,2786

y34=w4r34=3*0,4264=1,2786

y44=w4r44=3*0,4264=1,2786

y54=w4r54=3*0,4264=1,2786

y64=w4r64=3*0,4264=1,2786

y74=w4r74=3*0,2132=0,6396

Matrik Y

1,352                     0,9805                   1,5348                   0,6396

2,028                     1,961                     0,5164                   1,2786

1,352                     2,451                     0,5164                   1,2786

1,352                     1,4705                   1,0328                   1,2786

2,028                     1,961                     2,0656                   1,2786

1,352                     1,4705                   1,0328                   1,2786

0,676                     2,451                     2,582                     0,6396

Y+=max{1,352,2,028,1,352,1,352,2,028,1,352,0,676}=2,028

y-=min{0,9805,1,961,2,451,1,4705,1,961,1,4705,2,451}=0,9805

y-=min{1,5348,0,5164,0,5164,1,0328,2,0656,1,0328,2,582}=0,5164

y+=max{0,6396,1,2786,1,2786, 1,2786,1,2786, 1,2786,0,6396}=1,2786

                A+={2,028,0,9805,0,5164,1,2786}

Y-=max{1,352,2,028,1,352,1,352,2,028,1,352,0,676}=0,676

Y+=min{0,9805,1,961,2,451,1,4705,1,961,1,4705,2,451}=2,451

Y+=min{1,

5348,0,5164,0,5164,1,0328,2,0656,1,0328,2,582}=2,582

y-=max{0,6396,1,2786,1,2786, 1,2786,1,2786, 1,2786,0,6396}=0,6396

                A-={0,676,2,451,2,582,0,6396}

D1+=√(1,3521-2,028)²+(0,9805-0,9805)²+(1,5348-0,5164)²+(0,6396-1,2786)²=1,2022

D2+=√(2,028-2,028)²+(1,961-0,9805)²+(0,5164-0,5164)²+(1,2786-1,2786)²=0,9805

D3+=√(1,352-2,028)²+(2,451-0,9805)²+(0,5164-0,5164)²+(1,2786-1,2786)²=1,6836

D4+=√(1,352-2,028)²+(1,4705-0,9805)²+(1,0328-0,5164)²+(1,2786-1,2786)²=0,9817

D5+=√(2,028-2,028)²+(1,961-0,9805)²+(2,0656-0,5164)²+(1,2786-1,2786)²=1,6248

D6+=√(1,352-2,028)²+(1,4705-0,9805)²+(1,0328-0,5164)²+(1,2786-1,2786)²=0,9817

D7+=√(0,676-2,028)²+(2,451-0,9805)²+(2,582-0,5164)²+(0,6396-1,2786)²=2,9436

D1-=√(1,014-0,676)²+(0,9605-2,451)²+(1,5348-2,582)²+(0,8528-0,6396)²=1,8649

D2-=√(1,521-0,676)²+(1,961-2,451)²+(0,5164-2,582)²+(1,7056-0,6396)²=2,5213

D3-=√(1,014-0,676)²+(2,541-2,451)²+(0,5164-2,582)²+(1,7056-0,6396)²=2,3488

D4-=√(1,104-0,676)²+(1,4705-2,451)²+(1,0328-2,582)²+(1,7056-0,6396)²=2,1635

D5-=√(1,521-0,676)²+(1,961-2,451)²+(2,0636-2,582)²+(1,7056-0,6396)²=1,5359

D6-=√(1,014-0,676)²+(1,4705-2,451)²+(1,0328-2,582)²+(1,7056-0,6396)²=2,1475

D7-=√(0,507-0,676)²+(2,451-2,451)²+(2,582-2,582)²+(0,8528-0,6396)²=0,2720

V1=        DI

         Di- + Di+

V1=        1,8649

         1,8649+1,2022 =1,6446

V2=        2,5213

         2,5213+0,9805 =1,3888

V3=        2,3488

         2,3488+1,6836 =1,7167

V4=        2,1635

        2,1636+0,9817 =1,4537

V5=        1,5359

        1,5359+1,6248 =2,0578

V6=        2,1475

         2,1475+0,9817 =1,4571

V7=        0

        0+2,9436 =0

PEMOGRAMAN KRIPTOGRAFI

A.Vernam Chiper(One Time Pad)

            One Time Pad  termasuk dalam kelompok kriptografi simestris. One Time Pad  (pad=kertas blaknot)berisi deretan karakter-karakter kunci yang di bangkitkan secara acak.Chiper ini diimplementasikan melalui sebuah kunci yang terdiri dari sekumpulan random  karakter – karakter yang tidak berulang.Setiap huruf kunci di jumlahkan modulo  26 dengan huruf pada plaintext. Pada One Time Pad , setiap hurup kunci digunakan satu kali untuk satu pesan dan tidak digunakan kembali.Panjang stream karakter kunci sama dengan panjang pesan.

Ok kali ini saya akan mengasih contoh Vernam Chiper ini dengan mengunakan microsoft visual studio2008.

01.  Pertama Buka microsoft visual studio2008

02.   Setelah itu klik Create:   Project

03.  Selanjutnya  anda akan dibawa ke tampilan seperti di bawah ini

Pada kotak name : isikan nama project anda dengan sesuka hati.

Pada kotak location :  pilih tempat penyimpanan project anda

Setelah itu pilih OK

04.   Maka akan muncul lembar kerja anda

05.   Di lembar kerja anda isikan atau desain seperti gambar di bawah ini:

Keterangan

Plainteks          : label      =>     textbox           

Kunci              : label      =>     textbox

Chiperteks       : label      =>     textbox

Dikontak properties ganti name texbok dan textnya,dan jangan lupa ganti juga “ multiline = true” dan “scorollbars  = vertical”

Enkripsi           : button

Ganti name button =btnenkripsi

Text = enkripsi

06.  Listing Program

Public Class OneTimePad

    Private Sub OneTimePad_load(ByVal sender As System.Object, ByVal e As System.EventArgs)handles mybase.load

        plainteks.Text = ""

        kunci.Text = ""

        chiperteks.Text = ""

    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click

        Dim j As Integer

        Dim jum As Integer

        Dim skey As String

        Dim nkata As Integer

        Dim nkunci As Integer

        Dim skata As String

        Dim splain As String = ""

        Dim nenc As Integer

        j = 0

        skata = plainteks.Text

        jum = Len(skata)

        skey = kunci.Text

        For i = 1 To jum

            If j = Len(skey) Then

                j = 1

            Else

                j = j + 1

            End If

            nkata = Asc(Mid(skata, i, 1)) - 65

            nkunci = Asc(Mid(skey, j, 1)) - 65

            nenc = ((nkata + nkunci) Mod 26)

            splain = splain & Chr((nenc) + 65)

        Next i

        chiperteks.Text = splain

    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged

    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

    End Sub

End Class

07.   Setelah anda selesai menulis coding di atas tekan F5 untuk menjalankanya,

Seperti di bawah ini

08.  Selamat mencoba