wolftü Kodlama [Lütfen Yardım]

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
5 Haz 2016
Mesajlar
46
Tepki puanı
2
Ödüller
8
Yaş
28
10 HİZMET YILI
Beyler klasik yöntemlerden farklı bir yöntemle hile kodluyorum. yaklaşık 4-5 ay önce bu yöntemim çalışıyordu lakin şuan sürekli csh-obj-bin hatası alıyorum yardım edecek olan coder bir dost varsa lütfen yardım etsin. istediği bir facebook hesabını anında kapatabilirim. ya da sahte kimlik falan yapabilirim. yardımda bulunacak arkadaşım bana öm atarsa dosyaları atabilirim.
L3A4JZ.png

5V7295.png

y45lyk.png
3oLP29.png
 
Üye
Katılım
15 May 2016
Mesajlar
47
Tepki puanı
0
Yaş
28
10 HİZMET YILI
BYPASS CEKME KODU:

Try
Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
FileSystem.FileClose(New Integer() {1})
FileSystem.FileClose(New Integer() {2})
If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then
FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

Else
File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
TextBox7.Text = ("Erişim Engellendi ")
End If
If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then
FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

Else
File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

End If
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim ex As Exception = exception1
ProjectData.SetProjectError(ex)
Dim exception As Exception = ex
ProjectData.ClearProjectError()
ProjectData.ClearProjectError()
End Try

CSH CEKME KODU:

Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In s.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
csh.Text = moz.BaseAddress.ToString
End If
Next

-----BIN-------

Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In s.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
bin.Text = moz.BaseAddress.ToString
End If
Next


BU KADAR YARDMCI OLDUYSAM NE MUTLU BANA :)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst