Jump to content

Stealth

Legendary Member
  • Posts

    1,178
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Everything posted by Stealth

  1. You know what?Screw it , I will go open source again, even if I am just wasting my time in here and my work is ignored. The file will be uploaded in a couple minutes. EDIT: File uploaded. EDIT2: Source uploaded.
  2. Ok make one in 30 minutes and pm me. It took me 5 hours to make this. Plus the fixes. The thing that i have made it simple does not mean that its easy to code too.
  3. L2 Account Master Information: L2 Account Master is an application that can help you create or update accounts on your server easily. The algorithm for password encoding of the accounts is embedded into the application. You can also update the accounts with the new password just with a single click. Its also a great replacement for the normal SQLAccountManager script. Many new features are coming. Screenshots: Downloads: Download Source: Imports L2_Account_Master.IniFile Imports System.Security.Cryptography Public Class Form1 Private version As String = "0.3beta" Private title As String = "L2 Account Master " & version Private Connection As New MySql.Data.MySqlClient.MySqlConnection Private Command As New MySql.Data.MySqlClient.MySqlCommand Private Adapter As New MySql.Data.MySqlClient.MySqlDataAdapter Private config As String = Application.StartupPath & "\config.ini" Private connectionstring As String Public Function RecreateINI() If IO.File.Exists(config) Then Else IO.File.CreateText(config) End If End Function Private Function Encode(ByVal value As String) As String Dim sha As SHA1 = New SHA1Managed() Dim encDataByte As Byte() = New Byte(value.Length - 1) {} Return Convert.ToBase64String(sha.ComputeHash(System.Text.Encoding.UTF8.GetBytes(value))) End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = title Command.Connection = Connection End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then TextBox9.PasswordChar = Nothing Else TextBox9.PasswordChar = "*" End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If Connection.State = ConnectionState.Open Then mysqlconnstatus.Text = "Active" mysqlconnstatus.ForeColor = Color.Green ToolStripStatusLabel2.Visible = False Button6.Enabled = False Else Button6.Enabled = True ToolStripStatusLabel2.Visible = True mysqlconnstatus.Text = "Inactive" mysqlconnstatus.ForeColor = Color.Red End If End Sub Private Sub ToolStripStatusLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripStatusLabel2.Click TabControl1.SelectedTab() = TabControl1.TabPages(2) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If IO.File.Exists(config) Then Dim ini As New IniFile(config) TextBox7.Text = ini.GetString("MySQL", "Hostname", "") TextBox8.Text = ini.GetString("MySQL", "Username", "") TextBox9.Text = ini.GetString("MySQL", "Password", "") TextBox10.Text = ini.GetString("MySQL", "Database", "") Else RecreateINI() Dim ini As New IniFile(config) ini.WriteString("MySQL", "Hostname", TextBox7.Text) ini.WriteString("MySQL", "Username", TextBox8.Text) ini.WriteString("MySQL", "Password", TextBox9.Text) ini.WriteString("MySQL", "Database", TextBox10.Text) End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If IO.File.Exists(config) Then Dim ini As New IniFile(config) ini.WriteString("MySQL", "Hostname", TextBox7.Text) ini.WriteString("MySQL", "Username", TextBox8.Text) ini.WriteString("MySQL", "Password", TextBox9.Text) ini.WriteString("MySQL", "Database", TextBox10.Text) Else RecreateINI() Dim ini As New IniFile(config) ini.WriteString("MySQL", "Hostname", TextBox7.Text) ini.WriteString("MySQL", "Username", TextBox8.Text) ini.WriteString("MySQL", "Password", TextBox9.Text) ini.WriteString("MySQL", "Database", TextBox10.Text) End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click connectionstring = "Server=" & TextBox7.Text & ";Database=" & TextBox10.Text & ";Uid=" & TextBox8.Text & ";Pwd=" & TextBox9.Text & ";" Connection.ConnectionString = connectionstring Try Connection.Open() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() End Sub Private Sub TabPage3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage3.Enter If IO.File.Exists(config) Then Dim ini As New IniFile(config) TextBox7.Text = ini.GetString("MySQL", "Hostname", "") TextBox8.Text = ini.GetString("MySQL", "Username", "") TextBox9.Text = ini.GetString("MySQL", "Password", "") TextBox10.Text = ini.GetString("MySQL", "Database", "") Else RecreateINI() Dim ini As New IniFile(config) ini.WriteString("MySQL", "Hostname", TextBox7.Text) ini.WriteString("MySQL", "Username", TextBox8.Text) ini.WriteString("MySQL", "Password", TextBox9.Text) ini.WriteString("MySQL", "Database", TextBox10.Text) End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox2.Text = TextBox3.Text Then Command.CommandText = "INSERT INTO `accounts` (`login`, `password`, `lastactive`, `accessLevel`, `lastIP`, `lastServer`) VALUES ('" & TextBox1.Text & "', '" & Encode(TextBox2.Text) & "', '1', '0', '0.0.0.0', '1')" MsgBox("Account created!") Try Command.BeginExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try Else MsgBox("The two passwords don't match!", MsgBoxStyle.Critical) End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox4.Text = TextBox5.Text Then Command.CommandText = "UPDATE `accounts` SET `password`='" & Encode(TextBox5.Text) & "' WHERE (`login`='" & TextBox6.Text & "')" MsgBox("Account updated!") Try Command.BeginExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try Else MsgBox("The two passwords don't match!", MsgBoxStyle.Critical) End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() End Sub End Class Public Class IniFile ' API functions Private Declare Ansi Function GetPrivateProfileString _ Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _ (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal lpDefault As String, _ ByVal lpReturnedString As System.Text.StringBuilder, _ ByVal nSize As Integer, ByVal lpFileName As String) _ As Integer Private Declare Ansi Function WritePrivateProfileString _ Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal lpString As String, _ ByVal lpFileName As String) As Integer Private Declare Ansi Function GetPrivateProfileInt _ Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _ (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal nDefault As Integer, _ ByVal lpFileName As String) As Integer Private Declare Ansi Function FlushPrivateProfileString _ Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationName As Integer, _ ByVal lpKeyName As Integer, ByVal lpString As Integer, _ ByVal lpFileName As String) As Integer Dim strFilename As String ' Constructor, accepting a filename Public Sub New(ByVal Filename As String) strFilename = Filename End Sub ' Read-only filename property ReadOnly Property FileName() As String Get Return strFilename End Get End Property Public Function GetString(ByVal Section As String, _ ByVal Key As String, ByVal [Default] As String) As String ' Returns a string from your INI file Dim intCharCount As Integer Dim objResult As New System.Text.StringBuilder(256) intCharCount = GetPrivateProfileString(Section, Key, _ [Default], objResult, objResult.Capacity, strFilename) If intCharCount > 0 Then GetString = objResult.ToString End Function Public Function GetInteger(ByVal Section As String, _ ByVal Key As String, ByVal [Default] As Integer) As Integer ' Returns an integer from your INI file Return GetPrivateProfileInt(Section, Key, _ [Default], strFilename) End Function Public Function GetBoolean(ByVal Section As String, _ ByVal Key As String, ByVal [Default] As Boolean) As Boolean ' Returns a boolean from your INI file Return (GetPrivateProfileInt(Section, Key, _ CInt([Default]), strFilename) = 1) End Function Public Sub WriteString(ByVal Section As String, _ ByVal Key As String, ByVal Value As String) ' Writes a string to your INI file WritePrivateProfileString(Section, Key, Value, strFilename) Flush() End Sub Public Sub WriteInteger(ByVal Section As String, _ ByVal Key As String, ByVal Value As Integer) ' Writes an integer to your INI file WriteString(Section, Key, CStr(Value)) Flush() End Sub Public Sub WriteBoolean(ByVal Section As String, _ ByVal Key As String, ByVal Value As Boolean) ' Writes a boolean to your INI file WriteString(Section, Key, CStr(CInt(Value))) Flush() End Sub Private Sub Flush() ' Stores all the cached changes to your INI file FlushPrivateProfileString(0, 0, 0, strFilename) End Sub End Class Encryption part: Private Function Encode(ByVal value As String) As String Dim sha As SHA1 = New SHA1Managed() Dim encDataByte As Byte() = New Byte(value.Length - 1) {} Return Convert.ToBase64String(sha.ComputeHash(System.Text.Encoding.UTF8.GetBytes(value))) End Function
  4. Here you go: http://java.sun.com/javase/downloads/widget/jdk6.jsp Are you sure its the correct path , i mean the path where you setup jdk was that for sure? Mine is the default one something like C:\Program Files\Java\jdk1.6.0_18
  5. I would choose l2j. Despite the bugs and all that stuff I like the activity and the dedication that the L2J team shows. They are also very quick in fixing bugs , and it has a pretty big community instead of l2off which has like no support and no community since its illegal. Thats on from me. + The fact that running an l2j server is far more easy and simple than running an l2off server. + That l2off requirements for running the server are a LOT bigger than l2j (which makes l2j serverpacks lighter).
  6. I need some feedback about the new version , if anyone could post something it would be great. You can post what did you find good about the software , what you did/did not like , any requests or suggestions on future versions etc.
  7. First post has been updated new video and improved version added.
  8. @ExTrEmEDwarf Yeah , sources are like more user-friendly :P @all Anyway please guys that your are looking at my topic , post any feedback if possible.
  9. Oops , please wait a few minutes. Edit:First post updated with source.
  10. Yeap I saw that thread before were you posted and that guy didn't even read it , so I though I could make a tool so no more problems of that kind will be posted again.
  11. New version (0.2b) now supports adding specific external hostname. First post updated.
  12. Ok i will update the version and add other hostname support, thanks for the remind. Thanks for your good words.
  13. It was offline for a few seconds because youtube was approving it. Now its ok and it has max quality.
  14. I thought it could be usefull for newbies not for advanced users, since it is a faster way to quickly edit server network files.
  15. L2 Network Fix Information With this tool , you can easily edit your server's external and internal ip with just a few clicks. Almost no experience is needed to use it , you just need to have default settings in your .properties files and the program does the work for you.Its as easy as one-two-three steps and boom! your done! How it works?It just replaces the default externalip and internalip lines in your configs with the one's you either enter on the program or the one's it detects by itself. Requirements To use this tool your login and game server network configs should be the default one's or the program won't work. In the default ones both game and login have a line that looks like this: ExternalHostname = 127.0.0.1 InternalHostname = 127.0.0.1 If you don't have that line then replace the existing lines with this and then use the program. Screenshots Videos Download Version 0.3b ==> http://www.mediafire.com/?xmwyknbyyol Version 0.2b ==> http://www.mediafire.com/?tonutdrymmz Version 0.1b ==> http://www.mediafire.com/?dmmay2gmozg Source Code ==> http://www.mediafire.com/?jnmmmhn2zy2 This tool is mostly for newbies, because its fast and it does not require anything but a few clicks.
  16. Nekys δυο πράγματα. 1ον έχεις καλό λέγειν και τα εξήγεις ωραία και απλά κάτι που βοηθά τους αρχάριους αλλά και τους έμπειρους χρήστες στην κατανόηση. 2ον έκανες ένα από τα καλύτερα ποστ στο Greek Section. Μπράβο και ευχαριστώ. Αν μπορούσες επίσης να γράψεις εδώ τι ρυθμίσεις θα έπρεπε να είχε το gameserver.bat με το hardware που πρότεινες για το συγκεκριμένο μηχάνημα , για να πάρω μια ιδέα για το Java Garbage Collector.
  17. Better then L2j Donation Manager. And yes vb. xD
  18. It can help you manage players , items , events and other server server stuff (eg. shutdown - restart - reload) without having to use a client , and without having to login to the server. You will just need this tool (approximate size < 500kb) and to config the server to use telnet. Thats it. Simple , easy , cool. Well indeed , but nowadays I dont really have much time , so I need to use it wisely.
  19. Hello all, Im thinking of making a management project for L2J Servers. It is a tool which will connect with telnet to the server and let you manage your players and all other stuff that can be managed with telnet access. I just want your opinion about this tool , would you use it on your server or am i gonna just waste my time? Please vote xD. Thanks for your time.
  20. Check this out => http://www.maxcheaters.com/forum/index.php?topic=49302.0
  21. Its does not support x64 so far , later on I may add support.
×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock