Jump to content
View in the app

A better way to browse. Learn more.

Tuts 4 You

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Search n Replace byte VB.net

Featured Replies

Posted

i will make patch with vb.net


but i dont know how read or write sepecific bytes


ex:


 


&HF7, &HD8, &H1B, &HC0, &H40, &H89, &H45, &HE0


 


i want to change  &H1B to &H33 and &H40 to &H90 but skip other byte


 


( Skip(HF7),Skip(HD8), patch(H1B),Skip(HC0), Patch(H40), skip skip skip) like in uPPP


 


search : F7 D8 1B C0 40 89 45 E0


Replace ..     ..  33  ..   90  ..    .. ..



Private Shared ReadOnly PatchFind As Byte() = {&HF7, &HD8, &H1B, &HC0, &H40, &H89, &H45, &HE0}
Private Shared ReadOnly PatchReplace As Byte() = {&HF7, &HD8, &H33, &HC0, &H90, &H89, &H45, &HE0}
<MethodImpl(MethodImplOptions.AggressiveInlining)>
Private Shared Function DetectPatch(sequence As Byte(), position As Integer) As Boolean
If position + PatchFind.Length > sequence.Length Then
Return False
End If
For p As Integer = 0 To PatchFind.Length - 1
If PatchFind(p) <> sequence(position + p) Then
Return False
End If
Next
Return True
End Function Private Shared Sub PatchFile(originalFile As String, patchedFile As String)
' Ensure target directory exists.
Dim targetDirectory = Path.GetDirectoryName(patchedFile)
If targetDirectory Is Nothing Then
Return
End If
Directory.CreateDirectory(targetDirectory) ' Read file bytes.
Dim fileContent As Byte() = File.ReadAllBytes(originalFile) ' Detect and patch file.
For p As Integer = 0 To fileContent.Length - 1
If Not DetectPatch(fileContent, p) Then
Continue For
End If For w As Integer = 0 To PatchFind.Length - 1 fileContent(p + w) = PatchReplace(w)
Next
Next ' Save it to another location.
File.WriteAllBytes(patchedFile, fileContent)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PatchFile("C:\App.exe", "C:\App_patch.exe")
End Sub

thx before


 


sorry my english is bad


Edited by andrextrap

Look to my R6002 tool or ExeCryptor CRC patcher.


Create an account or sign in to comment

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.