like wtf the funniest shit is i wrote it at 15 yo lul
use it to shufflle your protocol definitions in atumprotocol.h and not get hacked!!1
Code:Imports System.IO Imports System.Threading Module Module1 Public ProtocolNamesList As New List(Of String) Public ProtocolValuesList As New List(Of String) Public LineList As New List(Of String) Public CommonList As New Dictionary(Of Integer, String) Public now As System.DateTime 'Public PacketNamesList As New List(Of String) 'Public PacketValuesList As New List(Of String) Sub Main() Console.WriteLine("######### Aesir AtumProtocol Obfuscator #########") Console.WriteLine("[C] Input A Valid AtumProtocol.h File") Do ReadConsoleInput(Console.ReadLine()) Loop End Sub Private Sub ReadConsoleInput(Input As String) If CheckFile(Input) Then now = System.DateTime.Now Console.WriteLine("[C] Reading File...") ReadProtocolsAndPackets(Input) Console.WriteLine("[C] Writing Patched File...") Write(Input) Console.WriteLine("#################################################") End If End Sub Private Function CheckFile(path As String) As Boolean If Not File.Exists(path) Then Console.WriteLine("[C] File Does Not Exist!") Return False End If Return True End Function Private OldListProt As New List(Of String) Private OldListPack As New List(Of String) Private Sub ReadProtocolsAndPackets(Path As String) Dim a As Integer = 0 For Each line As String In IO.File.ReadLines(Path) If line.StartsWith("#define T0_") Then Dim mystr As String = Mid(line, 8) Dim mystr2 As String() = mystr.Split("x") Dim ProtocolName = "0x" + Mid(mystr2(1), 1, 2) Dim ProtocolNumber = mystr2(0).Remove(mystr2(0).Length - 1) ProtocolValuesList.Add(ProtocolName) ProtocolNamesList.Add(ProtocolNumber) 'ElseIf line.StartsWith("#define T1_") Then ' Dim mystr As String = Mid(line, 8) ' Dim mystr2 As String() = mystr.Split("x") ' Dim ProtocolName = "0x" + Mid(mystr2(1), 1, 2) ' Dim ProtocolNumber = mystr2(0).Remove(mystr2(0).Length - 1) ' PacketValuesList.Add(ProtocolName) ' PacketNamesList.Add(ProtocolNumber) CommonList.Add(a, line) a += 1 End If LineList.Add(line) Next Console.WriteLine("[C] Read Complete! Protocols[" + ProtocolValuesList.Count.ToString + "]") 'Packets[" + PacketValuesList.Count.ToString + "]") OldListPack = New List(Of String) OldListProt = New List(Of String) 'For i As Integer = 0 To PacketValuesList.Count - 1 ' OldListPack.Add(PacketValuesList(i)) 'Next For i As Integer = 0 To ProtocolValuesList.Count - 1 OldListProt.Add(ProtocolValuesList(i)) Next 'PacketValuesList.Shuffle() ProtocolValuesList.Shuffle() Obfuscate() End Sub Private Sub Obfuscate() If File.Exists("C:\AtumProtocolObfuscationLog.txt") Then System.IO.File.Delete("C:\AtumProtocolObfuscationLog.txt") Using LogWriter As System.IO.StreamWriter = New IO.StreamWriter("C:\AtumProtocolObfuscationLog.txt") LogWriter.WriteLine("######### Aesir AtumProtocol Obfuscator #########") LogWriter.WriteLine("Protocol Obfuscation Date: " + System.DateTime.Now.Day.ToString _ + "/" + System.DateTime.Now.Month.ToString + "/" + System.DateTime.Now.Year.ToString) LogWriter.WriteLine("Protocol Obfuscation Time: " + System.DateTime.Now.Hour.ToString + ":" + System.DateTime.Now.Minute.ToString + ":" + System.DateTime.Now.Second.ToString + "." + System.DateTime.Now.Millisecond.ToString) For i As Integer = 0 To ProtocolValuesList.Count - 1 LogWriter.WriteLine() LogWriter.WriteLine() LogWriter.WriteLine() LogWriter.WriteLine("###################################################################################################") LogWriter.WriteLine() LogWriter.WriteLine("Using Protocol: " + ProtocolNamesList(i)) LogWriter.WriteLine() LogWriter.WriteLine() LogWriter.WriteLine(" [" + OldListProt(i) + "] ---> [" + ProtocolValuesList(i) + "]") LogWriter.WriteLine() LogWriter.WriteLine("###################################################################################################") Next 'For i As Integer = 0 To PacketValuesList.Count - 1 ' LogWriter.WriteLine() ' LogWriter.WriteLine() ' LogWriter.WriteLine() ' LogWriter.WriteLine("###################################################################################################") ' LogWriter.WriteLine("Using Packet: " + PacketNamesList(i)) ' LogWriter.WriteLine() ' LogWriter.WriteLine() ' LogWriter.WriteLine(" [" + OldListPack(i) + "] ---> [" + PacketValuesList(i) + "]") ' LogWriter.WriteLine() ' LogWriter.WriteLine("###################################################################################################") 'Next End Using End Sub Private rng As New Random() <System.Runtime.CompilerServices.Extension> _ Public Sub Shuffle(Of T)(list As IList(Of T)) Dim n As Integer = list.Count While n > 1 n -= 1 Dim k As Integer = rng.[Next](n + 1) Dim value As T = list(k) list(k) = list(n) list(n) = value End While End Sub Private Sub Write(OriginalFile As String) If File.Exists("C:\ObfuscatedAtumProtocol.h") Then System.IO.File.Delete("C:\ObfuscatedAtumProtocol.h") Using File As System.IO.StreamWriter = New IO.StreamWriter("C:\ObfuscatedAtumProtocol.h") File.WriteLine("//Protocol Obfuscation Date: " + System.DateTime.Now.Day.ToString _ + "/" + System.DateTime.Now.Month.ToString + "/" + System.DateTime.Now.Year.ToString) File.WriteLine("//Protocol Obfuscation Time: " + System.DateTime.Now.Hour.ToString + ":" + System.DateTime.Now.Minute.ToString + ":" + System.DateTime.Now.Second.ToString + "." + System.DateTime.Now.Millisecond.ToString) 'For i As Integer = 0 To ProtocolNamesList.Count - 1 ' Dim tmpstr As String = "#define " + ProtocolNamesList(i) + " " + ProtocolValuesList(i) + " // AESIR - Protocol Obfuscation" ' File.WriteLine(tmpstr) 'Next 'For i As Integer = 0 To PacketNamesList.Count - 1 ' Dim tmpstr As String = "#define " + PacketNamesList(i) + " " + PacketValuesList(i) + " // AESIR - Protocol Obfuscation" ' File.WriteLine(tmpstr) 'Next 'File.WriteLine() 'File.WriteLine() File.WriteLine("//#################################################") 'For Each line As String In IO.File.ReadLines(OriginalFile) ' If Not line.StartsWith("#define T0_") Then ' 'If Not line.StartsWith("#define T1_") Then ' File.WriteLine(line) ' 'End If ' End If 'Next Dim IDX As Integer = 0 For i As Integer = 0 To LineList.Count - 1 If LineList(i).StartsWith("#define T0_") Then 'CommonList.ContainsKey(i) Then Dim tmpstr As String = "#define " + ProtocolNamesList(IDX) + " " + ProtocolValuesList(IDX) + " // Aesir - " + System.DateTime.Now.Day.ToString + "/" + System.DateTime.Now.Month.ToString + "/" + (Mid(System.DateTime.Now.Year.ToString, 3, 4)) + " - Protocol Obfuscation" File.WriteLine(tmpstr) Console.WriteLine("Writing Protocol -> " + ProtocolNamesList(IDX)) Thread.Sleep(300) IDX += 1 Else File.WriteLine(LineList(i)) End If Next End Using Console.WriteLine("Obfuscation Complete!") End Sub End Module
Reply With Quote
