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

[Unexpected™]

Başlıkta Yazdığı Gibi Hileyi Açtığımda Direk assembly rasgele olacak ?

 

[Lyceion]

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:

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:

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:

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.

 

[Unexpected™]

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:

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:

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:

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.

Yok Aga Olmadı

 

[Lyceion]

Yok Aga Olmadı

Kodları şimdi dendim çalışmakta. ilk kodu formun loadına, 2. kodu bir timer oluşturuyoruz ve adını timerStop koyup kodu onun içine bırakıyoruz.

3. kodu da laodera koyuyoruz ve Hile.exe adlı dosya ile aynı konuma koyuyoruz.

 

[Lyceion]

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

 

[Lyceion]

Applicationpath yerine kendin el ile dosya konumunu yazıp bir de öyle deneyebilirsin onun ile alakalı olabilir(?).

 

[Unexpected™]

Ekli dosyayı görüntüle 8618

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

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

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

 

[Lyceion]

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

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

Yapacağın Assembly Changer Loader'a. Bütün her şeyi değiştirip en son hileyi açıcak

 

[Gizli Komutan]

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

 

[MHdwordMH]

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

Eyw bro sagol

 

[selimax]

keşke bilgisayar dilim olsa