Original Posted By setiadi2708►Untuk mengubah A menjadi Z langkah2nya adalah

Ubah hurup A sampai Z menjadi ASCIInya
A=65, B=66, C=67, ... , X=88, Y=89, Z=90

kemudian ASCII tersebut dikurang dengan 65 untuk mendapatkan
A=0, B=1, C=2, ... , X=23, Y=24, Z=25

kemudian berikutnya 90 dikurangi dengan angka diatas menjadi
A=90, B=89, C=88, ... , X=67, Y=66, Z=65

ubah angka diatas menjadi menurut ASCIInya lagi
A=Z, B=Y, C=X, .... , X=C, Y=B, Z=A

Untuk mengenkripsi kalimat
1. Input Kalimat
2. PanjangKalimat=Length(Kalimat)
3. HasilEnkripsiKalimat=""
4. For i=1 to PanjangKalimat
5. Hurup = Hurup ke i pada Kalimat
6. Angka = ASCII(Hurup)
7. Angka=Angka-65
8. Angka=90-Angka
9. HasilEnkripsiHurup=CHAR(Angka)
10. HasilEnkripsiKalimat=HasilEnkripsiKalimat+HasilEnkripsiHurup
11. Next i
12. Print HasilEnkripsiKalimat