Advertisement
Guest User

Untitled

a guest
Sep 25th, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim newMegaFakeIP as String
  2. Randomize()
  3. For i = 1 to 4
  4.       For i2 = 1 to (Rnd() * 2) + 1
  5.             newMegaFakeIP &= Rnd() * 9
  6.       Next
  7.       If Not i = 4 Then
  8.               newMegaFakeIP &= "."
  9.       End If
  10. Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement