Algoritma XTEA (eXtended Tiny Encryption Algorithm)

Algoritma XTEA (eXtended Tiny Encryption Algorithm) adalah salah satu algoritma yang dapat digunakan untuk melakukan enkripsi data sehingga data asli hanya dapat dibaca oleh seseorang yang memiliki kunci enkripsi tersebut. Contoh yang dibahas kali ini adalah mengenai enkripsi dan dekripsi dari sebuah kalimat.
Algoritma ini merupakan pengembangan dari TEA (Tiny Encryption Algorithm) dan dikembangkan untuk memperbaiki kelemahan dari algoritma tersebut. Perbedaan dengan algoritma sebelumnya adalah penggunakan key yang lebih kompleks dan pengaturan urutan dari operasi shift, XOR, dan penambahan.

Langkah-langkah penggunaan algoritma ini adalah

1. Tentukan kalimat yang akan dienkrip

Console.WriteLine("Masukkan kalimat yang akan dienkrip: ")
Dim input As String = Console.ReadLine

2. Tentukan kata kunci enkripsi yang digunakan

Console.WriteLine("Masukkan kata kunci enkripsi: ")
Dim kataKunci As String = Console.ReadLine

3. Lakukan inisialisasi variabel yang digunakan oleh metode ini
Penjelasan lebih detail tentang fungsi ini dapat dilihat pada penjelasan skrip dibawah ini

Dim xt As New XTEA()

* Skrip tersebut akan melakukan inisialisasi pada Class XTEA. Class ini berisi tentang fungsi-fungsi yang digunakan untuk melakukan enkripsi dan dekripsi. Deklarasi Class XTEA adalah sebagai berikut:

Public Class XTEA	
	. . .
End Class

4. Lakukan enkripsi kalimat awal menggunakan algoritma ini
Penjelasan lebih detail tentang fungsi ini dapat dilihat pada penjelasan skrip dibawah ini

Dim hasilEnkripsi As String = xt.Encrypt(input, kataKunci)

* Skrip tersebut akan menjalankan proses enkripsi yang terdapat dalam Class XTEA.

Public Function Encrypt(input As String, Key As String) As String
	If input.Length = 0 Then
		Throw New ArgumentException("Data harus memiliki setidaknya 1 karakter.")
	End If

	Dim formattedKey As UInteger() = FormatKey(Key)

	'Pastikan input memiliki panjang yang berjumlah genap dengan menambahkan karakter null
	If input.Length Mod 2 <> 0 Then
		input += ControlChars.NullChar
	End If

	Dim byteInput As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)

	Dim cipher As String = String.Empty
	Dim tempData As UInteger() = New UInteger(1) {}
	For i As Integer = 0 To byteInput.Length - 1 Step 2
		tempData(0) = byteInput(i)
		tempData(1) = byteInput(i + 1)
		encode(tempData, formattedKey)
		cipher += UIntToStr(tempData(0)) + UIntToStr(tempData(1))
	Next

	Return cipher
End Function

* Sedangkan proses enkripsi utama algoritma XTEA adalah sebagai berikut

Private Sub encode(v As UInteger(), k As UInteger())
	Dim y As UInteger = v(0)
	Dim z As UInteger = v(1)
	Dim sum As UInteger = 0
	Dim delta As UInteger = &H9E3779B9UI
	Dim n As UInteger = 32

	While n > 0
		y += (z << 4 Xor z >> 5) + z Xor sum + k(sum And 3)
		sum += delta
		z += (y << 4 Xor y >> 5) + y Xor sum + k(sum >> 11 And 3)

		n -= 1
	End While

	v(0) = y
	v(1) = z
End Sub

5. Lakukan dekripsi dari kalimat yang telah terenkripsi
Penjelasan lebih detail tentang fungsi ini dapat dilihat pada penjelasan skrip dibawah ini

Dim hasilDekripsi As String = xt.Decrypt(hasilEnkripsi)

* Skrip tersebut akan menjalankan proses dekripsi yang terdapat dalam Class XTEA.

Public Function Decrypt(input As String, Key As String) As String
	Dim formattedKey As UInteger() = FormatKey(Key)

	Dim x As Integer = 0
	Dim tempData As UInteger() = New UInteger(1) {}
	Dim byteInput As Byte() = New Byte(input.Length / 8 * 2 - 1) {}
	For i As Integer = 0 To input.Length - 1 Step 8
		tempData(0) = StrToUint(input.Substring(i, 4))
		tempData(1) = StrToUint(input.Substring(i + 4, 4))
		decode(tempData, formattedKey)

		byteInput(x) = CByte(tempData(0))
		x += 1
		byteInput(x) = CByte(tempData(1))
		x += 1
	Next

	'Hilangkan karakter null jika sebelumnya telah ditambahkan
	Dim cipher As String = System.Text.ASCIIEncoding.ASCII.GetString(byteInput, 0, byteInput.Length)
	If cipher(cipher.Length - 1) = ControlChars.NullChar Then
		cipher = cipher.Substring(0, cipher.Length - 1)
	End If
	Return cipher
End Function

* Sedangkan proses dekripsi utama algoritma XTEA adalah sebagai berikut

Private Sub decode(v As UInteger(), k As UInteger())
	Dim y As UInteger = v(0)
	Dim z As UInteger = v(1)
	Dim sum As UInteger = &HC6EF3720UI
	Dim delta As UInteger = &H9E3779B9UI
	Dim n As UInteger = 32

	While n > 0
		z -= (y << 4 Xor y >> 5) + y Xor sum + k(sum >> 11 And 3)
		sum -= delta
		y -= (z << 4 Xor z >> 5) + z Xor sum + k(sum And 3)

		n -= 1
	End While

	v(0) = y
	v(1) = z
End Sub

Hasil akhir adalah: (klik untuk perbesar gambar)

Contoh modul / source code dalam bahasa VB (Visual Basic) dapat didownload disini:

Jika membutuhkan jasa kami dalam pembuatan program, keterangan selanjutnya dapat dilihat di Fasilitas dan Harga
Jika ada yang kurang paham dengan langkah-langkah algoritma diatas, silahkan berikan komentar Anda.
Selamat mencoba.