D10d3

Serious Hacking Tool

Jan 10th, 2020
152
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub Main
  2.     Do While Run <> "Exit"
  3.         Run = ButtonDialog(Run)
  4.         Wait .1
  5.     Loop
  6. End Sub
  7.  
  8. Function ButtonDialog(Run)
  9.     Begin Dialog UserDialog 50,50,330,175,"CSI:NY IP Tracker" ' %GRID:10,7,1,1
  10.         GroupBox 10,7,320,161,"",.GroupBox1
  11.         PushButton 50,84,220,28,"DO HACKING",.Things
  12.         CancelButton 120,133,90,21
  13.         Text 80,28,180,14,"Enter IP Address to Track",.Text1
  14.         TextBox 60,56,200,21,.TextBox1
  15.     End Dialog
  16.     Dim dlg As UserDialog
  17.     Selection = Dialog(dlg) 'runs Dialog Box
  18.  
  19.  
  20.     Select Case Selection
  21.         Case 0 'allow graceful exit
  22.             Run = "Exit"
  23.         Case 1 'Stuff
  24.                 Message = "DOING HACKING..."+vbCr
  25.                 For i=1 To 16
  26.                     TBlock = ""
  27.                     For j= 1 To 16
  28.                         TBlock = TBlock + Chr(64+RandomGen(5))
  29.                         TBlock = TBlock + Chr(47+RandomGen(10))
  30.                         TBlock = TBlock + " "
  31.                     Next j
  32.                     Message = Message + TBlock +vbCr
  33.                 Next i
  34.                 MsgBox(Message,vbSystemModal,"HACKING")
  35.     End Select
  36.     ButtonDialog = Run
  37. End Function
  38.  
  39. Function RandomGen(RangeVal)
  40.     RandomResult = Int( (Rnd()* RangeVal) +1)
  41.     RandomGen = RandomResult
  42. End Function
RAW Paste Data