CSH - kodu atacak varmı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
7 Ara 2016
Mesajlar
22
Tepki puanı
6
başlıktada görüldüğü gibi beyler

BYPASS - obj - ve csh lazım rica etsem atarmısınz
 
Üye
Katılım
3 Nis 2018
Mesajlar
28
Tepki puanı
0
Yaş
23
Dim enumerator As IEnumerator

Dim process As Process = process.GetProcessesByName("wolftü.bin")(0)

Try

enumerator = process.Modules.GetEnumerator

Do While enumerator.MoveNext

Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)

If (current.FileName.IndexOf("csh") <> -1) Then

Me.Label1.Text = current.BaseAddress.ToString

End If

If (current.FileName.IndexOf("bin") <> -1) Then

Me.Label2.Text = current.BaseAddress.ToString

End If

If (current.FileName.IndexOf("obj") <> -1) Then

Me.Label3.Text = current.BaseAddress.ToString

End If

Loop

Finally

If TypeOf enumerator Is IDisposable Then

TryCast(enumerator, IDisposable).Dispose()

End If

End Try
 
Ultra Üye
Katılım
6 May 2018
Mesajlar
2,369
Çözümler
1
Tepki puanı
587
Ödüller
7
bu oto csh bin ve obj çekme kodu timere ekle:
Dim enumerator As IEnumerator

Dim process As Process = Process.GetProcessesByName("wolftü.bin")(0)

Try

enumerator = process.Modules.GetEnumerator

Do While enumerator.MoveNext

Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)

If (current.FileName.IndexOf("csh") <> -1) Then

Me.Label1.Text = current.BaseAddress.ToString

End If

If (current.FileName.IndexOf("bin") <> -1) Then

Me.Label2.Text = current.BaseAddress.ToString

End If

If (current.FileName.IndexOf("obj") <> -1) Then

Me.Label3.Text = current.BaseAddress.ToString

End If

Loop

Finally

If TypeOf enumerator Is IDisposable Then

TryCast(enumerator, IDisposable).Dispose()

End If

End Try
Bu da bypass :)
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)
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
Dim p As Process()
p = Process.GetProcessesByName("wolftü.bin") 'set wolftü process
If p.Count = 1 Then ' if wolftü process detected
End If
O kod sekmesi boşuna konulmadı oraya kod şeklinde atar mısın?
 
Üye
Katılım
3 Nis 2018
Mesajlar
28
Tepki puanı
0
Yaş
23
WritePointerInteger("wolftü.bin", Csh.Text + &H6A27E0 , "19601", &H28) 'Wolf Ability
WritePointerInteger kodlama örneği atabilirmisinz
 
in your area
Süper Üye
Katılım
30 Ağu 2017
Mesajlar
1,412
Çözümler
56
Tepki puanı
4,039
Ödüller
10
al bu güncel fly hack bin ama csh değil.
WritePointerInteger("wolftü.bin", label2.Text + &H053E3B50, "1", &H14, &H120, &H464)
WritePointerInteger("wolftü.bin", label2.Text + &H053E3B50, "1", &H14, &H120, &H464)
oto çektin mi bin obj csh ya da timera felan kodladın mı yoksa çalışmaz.
 
Üye
Katılım
3 Nis 2018
Mesajlar
28
Tepki puanı
0
Yaş
23
oto çektin mi bin obj csh ya da timera felan kodladın mı yoksa çalışmaz.
unknown.png

unknown.png
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst
  AdBlock Detected
Elbette, reklam engelleme yazılımı, reklamları engelleme konusunda harika bir iş çıkarır, ancak aynı zamanda web sitemizin bazı yararlı ve önemli özelliklerini de engeller. Mümkün olan en iyi site deneyimi için lütfen bir dakikanızı ayırarak AdBlocker'ınızı devre dışı bırakın.