Injector Undetector

        void _Patch(string keyword)
        {
            if (keyword == string.Empty) return;
            OpenFileDialog OF = new OpenFileDialog();
            if (OF.ShowDialog() == DialogResult.OK)
            {
                byte[] SIn = File.ReadAllBytes(OF.FileName);
                bool Found = false;
                
                if (SIn.Length == 0) return;
                byte[] SFor = Encoding.ASCII.GetBytes(keyword);
                int[] Byts = new int[256];
                int End = SFor.Length - 1, j = 0;

                for (int i = 0; i < 256; i++)
                    Byts[i] = SFor.Length;

                for (int i = 0; i < End; i++)
                    Byts[SFor[i]] = End - i;

                while (j <= SIn.Length - SFor.Length & !Found)
                {
                    for (int i = End; SIn[j + i] == SFor[i]; i--)
                    {
                        if (i == 0)
                        {
                            #region Random String
                            string _Chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwx  yz";
                            char[] Buff = new char[keyword.Length];
                            Random Ran = new Random();
                            for (int k = keyword.Length; k-- > 0; )
                            {
                                SIn[j + k] = (byte)_Chars[Ran.Next(_Chars.Length)];
                            }
                            #endregion
                            Found = true;
                            string _Extension = Path.GetExtension(OF.FileName), FileName = Path.GetFileNameWithoutExtension(OF.FileName);
                            File.WriteAllBytes(Path.GetDirectoryName(OF.FileNa  me) + @"\" + "Patched-" + FileName + _Extension, SIn);
                            break;
                        }
                    }
                    j += Byts[SIn[j + End]];
                }
                MessageBox.Show(Found ? "Patched successful..." : "Keyword not found. Nothing patched...", "Status...");
            }
        }

    Private Sub _Patch(ByVal keyword As String)
        If keyword = String.Empty Then
            Return
        End If
        Dim _Open As New OpenFileDialog
        If (_Open.ShowDialog = DialogResult.OK) Then
            Dim SIn As Byte() = File.ReadAllBytes(_Open.FileName)
            Dim Found As Boolean = False
            If SIn.Length = 0 Then
                Return
            End If
            Dim SFor As Byte() = Encoding.ASCII.GetBytes(keyword)
            Dim Byts(256) As Byte
            Dim _End As Integer = SFor.Length - 1, j = 0

            For i As Integer = 0 To 256
                Byts(i) = SFor.Length
            Next
            For i As Integer = 0 To _End
                Byts(SFor(i)) = _End - i
            Next
            Dim Index As Integer = 0
            While j <= SIn.Length - SFor.Length And Not Found
                Index = _End
                Do While SIn(j + Index) = SFor(Index)
                    If Index = 0 Then
                        Dim _Chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwx  yz"
                        Dim Buff(keyword.Length) As Char
                        Dim Ran As New Random
                        For k = keyword.Length To 0 Step -1
                            Dim tmp As String = _Chars(Ran.Next(_Chars.Length))
                            SIn(j + k) = CByte(Asc(tmp))
                        Next
                        Found = True
                        File.WriteAllBytes(Path.GetDirectoryName(_Open.Fil  eName) & "\Patched-" & Path.GetFileNameWithoutExtension(_Open.FileName) & Path.GetExtension(_Open.FileName), SIn)
                        Exit Do
                    End If
                    Index -= 1
                Loop
                If Byts(SIn(j + _End)) = 0 Then
                    Exit While
                End If
                j += Byts(SIn(j + _End))
            End While
            MessageBox.Show(If(Found, "Patched successful...", "Keyword not found. Nothing patched..."), "Status...")
        End If
    End Sub