Algoritma kunci-publik seperti RSA, Elgamal, DSA, dan sebagainya, sederhana dalam perhitungannya namun sulit dalam implementasinya dalam perangkat lunak. Hal ini karena algoritma tersebut melakukan operasi perpangkatan dengan bilangan yang besar.

Misalnya, pada algoritma RSA, setiap blok xi dienkripsi menjadi blok yi dengan rumus

yi = xi PK mod r

dan blok cipherteks yi didekripsi kembali menjadi blok xi
dengan rumus

xi = yi SK mod r

Pada algoritma DSA, kunci publik y dihitung dengan rumus

y = gx mod p

dan sidik dijital dihitung dengan rumus

r = (gk mod p) mod q

Karena bilangan bulat yang dioperasikan bisa sangat besar, maka kita perlu membuat algoritma perpangkatan semangkus mungkin.

Sebagai contoh, kita akan menghitung 5123 mod 713. Jika dilakukan secara konvensional, maka

5123 mod 713 = (5  5  …  5) mod 713
= 9.403954806578300063749892297778e+85 mod 713
= 435

Algoritma konvensional untuk menghitung an mod m:

function Expo1(a, n, m : LongInt):LongInt
{ Mengembalikan an mod m }
var
i : integer;
H : LongInt;
begin
H:=1;
for i:=1 to n do
H:=H*a;
{endfor}
Expo1:= H mod m; { return value }
end;

Dengan algoritma Expo1 di atas, dibutuhkan n kali operasi perkalian dalam perpangkatannya. Untuk n yang besar, algoritma membutuhkan waktu yang lebih lama. Selain itu,
nilai antara yang dihasilkan selama perkalian meningkat tajam, sehingga ada kemungkinan tipe integer yang digunakan tidak sanggup menampunya.

Kesulitan di atas dapat diatasi dengan mengingat bahwa

ab mod m = [(a mod m)(b mod m)] mod m

Contoh. Sebagai ilustrasi, untuk menghitung 57237 mod 713 dapat dilakukan sebagai berikut:

57237 = 57236  572 = 57232  5724  572

5722 mod 713 = 327184 mod 713 = 630

5724 mod 713 = 5722 . 5722 mod 713
= [(5722 mod 713)(5722 mod 713)] mod 713
= 6302 mod 713 = 396900 mod 713 = 472

5728 mod 713 = 5724 . 5724 mod 713
= [(5724 mod 713)(5724 mod 713)] mod 713
= 4722 mod 713 = 222784 mod 713 = 328

57216 mod 713 = 5728 . 5728 mod 713
= [(5728 mod 713)(5728 mod 713)] mod 713
= 3282 mod 713 = 107584 mod 713 = 634

57232 mod 713 = 57216 . 57216 mod 713
= [(57216 mod 713)(57216 mod 713)] mod 713
= 6342 mod 713 = 401956 mod 713 = 537

57236 mod 713 = 57232 . 5724 mod 713
= [(57232 mod 713)(5724 mod 713)] mod 713
= 537 . 472 mod 713 = 253464 mod 713 = 349

57237 mod 713 = 57236 . 572 mod 713
= [(57236 mod 713)(572 mod 713)] mod 713
= 349 . 572 mod 713 = 199628 mod 713 = 701

Jadi, 57237 mod 713 = 701

Private Function ReadRegistryValue(ByVal hKey As Long, ByVal strSubKey As String, ByVal strValueName As String)

Dim ret As Long
Dim hasil As String * 255, bufsize As Long
Dim kembalian As Long

On Error GoTo salah
RegCreateKey hKey, strSubKey, ret
RegQueryValueEx ret, strValueName, 0, typevalue, ByVal 0, bufsize
Select Case typevalue
Case REG_SZ
RegQueryValueEx ret, strValueName, 0, typevalue, ByVal hasil, bufsize
ReadRegistryValue = Left$(hasil, InStr(hasil, Chr$(0)) – 1)
Case REG_EXPAND_SZ
RegQueryValueEx ret, strValueName, 0, typevalue, ByVal hasil, bufsize
ReadRegistryValue = Left$(hasil, InStr(hasil, Chr$(0)) – 1)
Case REG_DWORD
Dim hasildword As Long
RegQueryValueEx ret, strValueName, 0, typevalue, hasildword, bufsize
ReadRegistryValue = hasildword
Case REG_BINARY
Dim hasilbinary As Integer
RegQueryValueEx ret, strValueName, 0, typevalue, hasilbinary, bufsize
ReadRegistryValue = hasilbinary
End Select
MsgBox ReadRegistryValue, vbInformation, “Read Value”
RegCloseKey ret
Exit Function

salah:
MsgBox Err.Description, vbInformation, “Error Number: ” & Err.Number
End Function

Private Sub Form_Load()

ReadRegistryValue HKEY_CURRENT_USER, “Control Panel\Desktop”, “ConvertedWallpaper”

End Sub