Dim str As String = "u2R7y@U.@-Sl4KSZt8#C.4xh5[=M|/FUib25 L~*My1'281_L'.-%~A3J!h^0uzUd3T03=((10}V/D6%v l9N@l6!vOTu43q"
        Dim r As New Random
        Dim sb As New StringBuilder
        For i As Integer = 1 To 18
            Dim idx As Integer = r.Next(0, 35)
            sb.Append(str.Substring(idx, 1))
        Next
        Me.Text = sb.ToString