I just can protect a server the same way i did for @OverBash or when I hacked realesta74, septera, zestaria, classictibia
Maybe i cant find all vulns and I'm not a genious but I'm sure you neither so gl
If a script kid like you can hack those servers then I am sure they deserve what they got.
Where are that tips I cant find them?
It was the tip when you told me my offline database could get hacked if It was online as I shared the sqlstring? Nice tip I didnt know that
Sure, let me spoonfeed that to you. My first tip was that exposing sensitive data is a no-go. My second tip was that you should make data that changes configurable (such as connection strings).
You want more indications that your code is bad?
Classictibia-Char-Scanner/KuhiScan/KuhiScan.vb at master · Kuhicop/Classictibia-Char-Scanner
http://classictibia.com character scanner, you can track people in hunted, enemy, friend and suspect list - Kuhicop/Classictibia-Char-Scanner
github.com
Code:
Control.CheckForIllegalCrossThreadCalls = False
This line alone shows that you have no clue how to write proper multi-threaded code. I'm sure you ran into a deadlock or an illegal cross thread operation. If you Googled how to solve these problems and you figured out this was the answer, you either didn't read properly or you decided to go the easy way.
Code:
Private enemylistfile As String = Directory.GetCurrentDirectory + "\enemylist.txt"
Private huntedlistfile As String = Directory.GetCurrentDirectory + "\huntedlist.txt"
Private friendlistfile As String = Directory.GetCurrentDirectory + "\friendlist.txt"
Private suspectlistfile As String = Directory.GetCurrentDirectory + "\suspectlist.txt"
So if I go alter the contents of these files, I automatically can get any result I feel like?
Code:
Dim timenow As String = New Net.WebClient().DownloadString("http://just-the-time.appspot.com/")
????? DateTime.Now?
Code:
Environment.Exit(1)
Is there any reason you're returning exit code 1 to the OS?
Code:
Public ReadOnly Property getdbversion As String
Get
Return dbversion
End Get
End Property
Public ReadOnly Property getpcversion As String
Get
Return filereader
End Get
End Property
Public ReadOnly Property getHWID As String
Get
Return HWID
End Get
End Property
Is there any reason you're encapsulating these fields and not just using auto properties at once? Is there also any reason for these members to be properties?
Code:
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
If txtpass.Text <> "" And txtuser.Text <> "" Then
cmd.CommandText = "SELECT * FROM accounts WHERE passwd='" + txtpass.Text + "' AND name='" + txtuser.Text + "'"
da = New MySqlDataAdapter(cmd)
da.Fill(ds, "account")
soloUnaTabla = ds.Tables("account")
dtRow = soloUnaTabla.Rows.Item(0)
If CInt(dtRow("premdays")) = 0 Then
MsgBox("Out of days!")
Application.Exit()
Else MsgBox(dtRow("premdays").ToString + " days left!")
End If
'Tengo dtRow("campo") para sacar cualquier valor :D
If txtuser.Text = dtRow("name") And txtpass.Text = dtRow("passwd") And HWID = dtRow("HWID") Then
checkTime.Stop()
KuhiScan.Show()
Me.Hide()
ElseIf dtRow("HWID") = "ADMIN" Then
checkTime.Stop()
KuhiScan.Show()
Me.Hide()
Else
MsgBox("Login failed!")
End If
Else
MsgBox("Please, write username and password!")
End If
End Sub
So, your only way of reusing this functionality is by doing this:
Code:
Private Sub txtpass_KeyDown(sender As Object, e As KeyEventArgs) Handles txtpass.KeyDown
If e.KeyCode = Keys.Enter Then
PictureBox1_Click(sender, e)
End If
End Sub
Are you ok with these or need more?