Membuat Enkripsi dan Dekripsi Dengan Pascal

Pada kesempatan ini saya akan share tentang Membuat Enkripsi Dan Dekripsi Dengan Pascal, mungkin bagi sebagian orang membuat Enkripsi Dan Dekripsi Dengan Pascal tidak sulit kok. Nah, disini saya akan memberikan Contoh Enkripsi Dan Dekripsi Dengan Pascal. Versi Pascal yang saya pakai adalah Pascal versi Windows, tepatnya Pascal 1.5. Jika anda menggunakan Pascal for DOS / Turbo Pascal, silahkan ganti statement Uses WinCrt dengan Uses Crt dan diawal program utama ditambahkan dengan ClrScr.

Program Kriptography;

Uses wincrt;
var
i, pilihan : byte;
kata : string;
label
a, b, c ;

begin
gotoxy(25,5);writeln(‘=========================================’);
gotoxy(25,6);writeln(‘   Contoh Program Enkripsi & Dekripsi ‘);
gotoxy(25,7);writeln(‘=========================================’);
gotoxy(33,8);writeln(‘           == By  ==’);
gotoxy(25,9);writeln(‘=========================================’);
gotoxy(32,10);writeln(‘           narkovic ‘);
gotoxy(32,11);writeln(‘ STT DUTA BANGSA@2009 – cikarang  ‘);
gotoxy(25,16);writeln(‘=========================================’);
gotoxy(38,17); readkey;
a:
clrscr;
gotoxy(25,5);writeln(‘=========================================’);
gotoxy(35,6);writeln(‘ MENU ‘);
gotoxy(25,7);writeln(‘=========================================’);
gotoxy(27,8);writeln(’1. Enkripsi & Dekripsi’);
gotoxy(27,9);writeln(’2. Exit ‘);
gotoxy(27,10);write(‘Pilihan Anda : ‘);readln(pilihan);
case pilihan of
1: begin
clrscr;
gotoxy(25,4); write (‘Tuliskan kata : ‘); readln(kata);
gotoxy(24,5); writeln(‘=========================================’);
gotoxy(30,8); writeln(‘program enkripsi’);
gotoxy(24,9); writeln(‘=========================================’);
for i:=1 to length(kata) do ;
begin
kata[i]:=chr(ord(kata[i])+6);
end;
gotoxy(24,10); writeln(‘hasil enkripsi : ‘,kata);
gotoxy(24,11); writeln(‘=========================================’);
gotoxy(24,13);write(‘tekan enter untuk mendekripsi’);readln;
gotoxy(30,15); writeln(‘program dekripsi’);
gotoxy(24,16); writeln(‘=========================================’);
for i:=1 to length(kata) do
begin
kata[i]:=chr(ord(kata[i])-6);
end;
gotoxy(24,17); writeln(‘hasil dekripsi : ‘,kata);
gotoxy(24,18); writeln(‘=========================================’);
gotoxy(21,20); write(‘Tekan enter untuk kembali ke menu’); readln;
goto a;
end;
2: begin
clrscr;
gotoxy(33,12); writeln(‘ ..::::.. ‘);
gotoxy(33,13); writeln(‘ Terima kasih ‘);
gotoxy(39,14); readkey;
donewincrt;
end;
end;
end.

Keterangan :
write (‘Tuliskan kata : ‘);
readln(kata);
Setelah penginputan selesai maka diteruskan ke pengenkripsian dengan menggunakan fungsi looping untuk menghitung jumlah karakter dalam satu kata yang ada pada variabel kata, setelah itu kata akan di acak dengan menggunakan perintah :

for i:=1 to length(kata) do
begin
kata[i]:=chr(ord(kata[i])+6);
end;

Dimana fungsi diatas menerangkan bahwa melakukan pengulangan menghitung jumlah karakter dalam satu kata, setelah itu melakukan pengacakan dimana setiap karakter dalam kata akan ditambah 6, atau akan bergeser ke enam langkah berikutnya.

Setelah hasil proses dari enkripsi ditampilkan dilayar, variable kata yang telah terenkripsi akan dikirim ke fungsi dekripsi yang mana berfungsi untuk mengembalikan isi dari variable kata menjadi seperti semula, fungsi dekripsi akan menghitung jumlah karakter yang ada dalam variabel kata yang telah terenkripsi, untuk kemudian tiap karakter tersebut akan didekripsi, berikut script dekripsi kebalikan dari key enkripsi :
for i:=1 to length(kata) do
begin
kata[i]:=chr(ord(kata[i])-6);
end;

Nah, Sekian dulu posting dari saya mengenai Membuat Enkripsi Dan Dekripsi Dengan Pascal.

Semoga bermanfaat.....!!

» JANGAN LUPA LIKE N Komentarnya Yeach...

= Baca Juga Sob =