Acak Angka atau Text VB.NET

Kadang dalam program dibutuhkan suatu fungsi untuk mengacak data/kata guna untuk menjaga kerahasiaan dari data itu sendiri. Nah, berikut ini adalah contoh kecil untuk mengacak data...


Function AcakAcak(ByVal strNilai As String) As String
Dim i As Integer = 0
Dim j As Integer = 0

Dim strHasil As String = ""
Dim strAngka1 As String = ""
Dim strAngka2 As String = ""

For i = 0 To strNilai.Length - 1
j = i * 2
strAngka1 = Mid(strNilai, j + 1, 1)
strAngka2 = Mid(strNilai, j + 2, 1)
strHasil += (strAngka2 & strAngka1)
Next

Return strHasil
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = AcakAcak(TextBox1.Text)
End Sub


Untuk selanjutnya, silahkan kembangkan sendiri...

Semoga bermanfaat....

Categories

Widget by Scrapur