RE: Wolftü Güncel Pointerler 28 Nisan 2017
Nevzat42' Alıntı:
HackerTR' Alıntı:
kardeşim bunlar pointer valuesiz nasıl kodlucaz?
Hangisi Lazım söle atıyım
low
eynir:
kardeşim zamanında benim kodladığım hile meşhurdu
takla hilesi için:
koşma
takla atma
tutunma ws.
bu arada bypass kodu sabit değilmi değişmedi:
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)
TextBox1.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
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Imports System.Environment
Ben hile kodlayınca eskiden olurdu bi ara bıraktım kodlamayı şimdi olmuyor bare dur kodları tam yazim kodladıgım kodları eksiğim varsa düzeltin pls
CSH-BİN-OBJ:
Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In s.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
----------------------------------------------------------------------------------
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
------------------------------------------------------------------------------------------
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("wolftü.bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next
-------------------------------------------------------------------------------------------------
Checkbox:
If CheckBox1.Checked = True Then
Timer1.Start()
End If
If CheckBox1.Checked = False Then
Timer1.Stop()
End If
Timer:
WriteLong("wolftü.bin", label1.Text + &H-----, "------")
Kodlar w.s değişmiş olabilir cunku 1 yıldır hile kodlamıyorum ondan attım eksik varsa soyleyın