Serious Hacking Tool

Sub Main
    Do While Run <> "Exit"
        Run = ButtonDialog(Run)
        Wait .1
    Loop
End Sub

Function ButtonDialog(Run)
    Begin Dialog UserDialog 50,50,330,175,"CSI:NY IP Tracker" ' %GRID:10,7,1,1
        GroupBox 10,7,320,161,"",.GroupBox1
        PushButton 50,84,220,28,"DO HACKING",.Things
        CancelButton 120,133,90,21
        Text 80,28,180,14,"Enter IP Address to Track",.Text1
        TextBox 60,56,200,21,.TextBox1
    End Dialog
    Dim dlg As UserDialog
    Selection = Dialog(dlg) 'runs Dialog Box


    Select Case Selection
        Case 0 'allow graceful exit
            Run = "Exit"
        Case 1 'Stuff
                Message = "DOING HACKING..."+vbCr
                For i=1 To 16
                    TBlock = ""
                    For j= 1 To 16
                        TBlock = TBlock + Chr(64+RandomGen(5))
                        TBlock = TBlock + Chr(47+RandomGen(10))
                        TBlock = TBlock + " "
                    Next j
                    Message = Message + TBlock +vbCr
                Next i
                MsgBox(Message,vbSystemModal,"HACKING")
    End Select
    ButtonDialog = Run
End Function

Function RandomGen(RangeVal)
    RandomResult = Int( (Rnd()* RangeVal) +1)
    RandomGen = RandomResult
End Function