Network Protocol Obfuscation Script

[Aesir]

like wtf the funniest poop is i wrote it at 15 yo lul
use it to shufflle your protocol definitions in atumprotocol.h and not get hacked!!1

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