Hile Açıldığında assembly değiştirmek Mümkün Mü ?

cylops' Alıntı:

Kendini büyük ihtimal düzenleyemeyecektir. Extra bir loader gibi bir şey yaz o değiştirsin. Program da sadece loaderdan açılabilsin.
Hilenin loadında vb.net de argüman kontrol ettirme şöyle yapılabilir:

Kod:

timerStop.start()
For Each kontrol As String In My.Application.CommandLineArgs
            Select Case Trim(LTrim(kontrol))
                Case "/supersecretcommand"
                    timerStop.Stop()
            End Select

Bunu formun loadına yerleştirdikten sonra timerimizi ayarlıyoruz:

Kod:

timerStop.Stop()
        MsgBox("Please Open This Sh*t With The F*ckn Loader!", MsgBoxStyle.Critical, "Err!")
        End

Şimdi yaptığın assembly changer ın bitişinin içine:

Kod:

string programpath = System.IO.Path.GetDirectoryName(Application.ExecutablePath)
Process.Start(programpath + "\Hile.exe", "/supersecretcommand")

Bunu yazarsan hile hatasız açılacaktır ama hileyi normal açmaya çalışırsan hata verecek ve kapanacaktır.


NOT: Ön yargım için kusura bakma ama VB.NET yazdığını baz alarak kodları hazırladım.

Genişletmek için tıklayın ...

Unexpected™' Alıntı:

Yok Aga Olmadı

Genişletmek için tıklayın ...

cylops' Alıntı:

Ekli dosyayı görüntüle 8618

Kodları şimdi test ettim hepsi tıkır tıkır. Soruce atmam bu başka proje....

Genişletmek için tıklayın ...

string programpath = System.IO.Path.GetDirectoryName(Application.ExecutablePath)
Process.Start(programpath + "\Hile.exe", "/supersecretcommand")

Unexpected™' Alıntı:

2. sini yaptımda şu kodu nereye koyacağımı bilmiyorum -

Kod:

string programpath = System.IO.Path.GetDirectoryName(Application.ExecutablePath)
Process.Start(programpath + "\Hile.exe", "/supersecretcommand")

Genişletmek için tıklayın ...

Gizli Komutan' Alıntı:

1 Adet Timer Açıp Form Load
Timer1.start Yazıp Timer Gelip İnterval 1 Yapıp Aşağı Kodu Yapıştırın Herşeyi Açıkladım
Bu Timer1.stop Yapmamızın Nedeni .exe ismi Değiştirsin diye
İf AppName Projenin İsmi Neyse Onu Yazın
Bu Kodu Kullanırsın Kolay gele

Dim AppName As String = System.Diagnostics.Process.GetCurrentProcess().ProcessName + ".exe" 'Programımızın Tam Adını Çekiyoruz
Timer1.Stop()
If AppName = "Proje İsmi Yazın.exe" Then 'Burda Random name sizin Exe nizin Normal Adı yani build ettikten sonraki adını yazın benim projemin adı Random name.exe olduğu için bunu yazdım siz kendi projenizin adını yazacaksınız
Dim Path As String = Application.StartupPath 'Dosyanın yolunu çekiyoruz
Dim k As String() = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "v", "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
Label1.Text = ""
For i As Integer = 0 To 35 ' üretmesi istenenden bir eksigi kadar
Randomize()
Label1.Text += k(Rnd() * 32).ToUpper 'k degişkenine tamımlanan harf/sayı kadar
Next
My.Computer.FileSystem.RenameFile(Path + "/" + AppName, Label1.Text + ".exe")
Application.Exit()
End If

Genişletmek için tıklayın ...