130 likes | 327 Views
PENGAMANAN INFORMASI DENGAN SANDI VIGENERE. OLEH : SYAIFULLAH. PENDAHULUAN. EFUL. KEVIN. DEFINISI MASALAH. ASCI. KUNCI NYA. ENKRIPSI. DESKRIPSI. PEMECAHAN MASALAH DENGAN FLOWCHART. START. I<3. T. G. Y. INPUT NAMA. CH=READKEY(). CH=#13. T. PASS=PASS+CH. WRITE(‘*’). Y.
E N D
PENGAMANAN INFORMASIDENGAN SANDI VIGENERE OLEH : SYAIFULLAH
PENDAHULUAN EFUL KEVIN
DEFINISI MASALAH ASCI KUNCI NYA ENKRIPSI
START I<3 T G Y INPUT NAMA CH=READKEY() CH=#13 T PASS=PASS+CH WRITE(‘*’) Y NAMA=’SYAIFUL’ AND PASS= ’1->P3TRUK’ ANDA BERHAK MENGGUNAKAN PROGRAM INI A INC(I) I<3 T ANDA TIDAK BERHAK MENGGUNAKAN PROGRAM INI G Y END ANDA MEMPUNYAI KESEMPATAN TINGGAL 3-I KALI
A H INPUT PIL Y PIL=1 PROC PLAINTEX B T Y PIL=2 PROC ENKRIPSI C T Y PIL=3 PROC H_ENKRIPSI D T Y PIL=4 PROC DESKRIPSI E T Y PIL=5 PROC H_DESKRIPSI F T Y T PIL=6 G
B ASSIGN(T,’C:\PLAIN.TXT’ REWRITE(T) BACA TEMP Y TEMP<>’’ CLOSE(T) T H WRITELN(T,TEMP) READLN(TEMP)
C A ASSIGN(T1,’C:\PLAIN.TXT’) ASSIGN(T2,’C:\ENKRIPSI.TXT’ RESET(T1) REWRITE(T2) K1=(K1+ORD(KUNCI(I1) Y K1>255 K1=K1-255 I1=1 T I1=LENGTH (KUNCI) Y INPUT KUNCI I1=1 C Y EOF(T1) T CLOSE(T1) CLOSE(T2) I1=I1+1 T K1=1 C1=CHR(K1) H B Y EOLN(T1) WRITE(T2,C1) READLN(T1) WRITELN(T2) T B READ(T1,C1) C K1=ORD(C1) A
D ASSIGN(T,’C:\H_ENKRIPSI.TXT’ RESET(T) Y EOF(T) CLOSE(T) T H WRITELN(T,TEMP) READLN(TEMP)
E A ASSIGN(T1,’C:\ENKRIPSI.TXT’) ASSIGN(T2,’C:\DESKRIPSI.TXT’ RESET(T1) REWRITE(T2) K1=(ORD(C1)-ORD(KUNCI[I1])) Y K1=((K1+255)-ORD(KUNCI[I1])) K1<0 I1=1 T I1=LENGTH (KUNCI) Y INPUT KUNCI I1=1 C Y EOF(T1) T CLOSE(T1) CLOSE(T2) I1=I1+1 T K1=1 C1=CHR(K1) H B Y EOLN(T1) WRITE(T2,C1) READLN(T1) WRITELN(T2) T B READ(T1,C1) C A
F ASSIGN(T,’C:\H_DESKRIPSI.TXT’ RESET(T) Y EOF(T) CLOSE(T) T H WRITELN(T,TEMP) READLN(TEMP)