AoB Pattern Generator ( by AikonCWD - Cheat Engine Forum )
Its coded under VBS (open source) and you can compare more than 2 AoB to get the best wilcard-aob
---------------------------------------------------------------------------------------------------------------------------------------------
'Created by AikonCWD
Set oWSH = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
T = InputBox("Enter array of bytes nº 1:")
T = T & vbcrlf & InputBox("Enter array of bytes nº 2:")
X = 3
While MsgBox("Do you want to introduce another array of bytes?", vbYesNo, "AoB Pattern Generator") = vbYes
T = T & vbcrlf & InputBox("Enter array of bytes nº " & X &":")
X = X + 1
Wend
AoB = Split(T, vbcrlf)
F = ""
W = 0
X = 0
For i = 1 To Len(AoB(0))
For u = 1 To UBound(AoB)
If Mid(AoB(u), i, 1) <> Mid(AoB(0), i, 1) Then
F = F & "?"
W = W + 1
X = 1
Exit For
End If
Next
If X <> 1 Then F = F & Mid(AoB(0), i, 1)
X = 0
Next
Set File = oFSO.CreateTextFile("aob.txt")
File.Write "Original array of bytes:" & vbcrlf & vbcrlf
File.Write Replace(T, vbcrlf & vbcrlf, vbcrlf) & vbcrlf & vbcrlf
File.Write "Total array of bytes: " & UBound(AoB) + 1 & vbcrlf
File.Write "Total wildcards used: " & W & vbcrlf & vbcrlf
File.Write "Your AoB Pattern:" & vbcrlf & vbcrlf & F
File.Close
'MsgBox F
If MsgBox("AoB Patter Generator finished" & vbcrlf & vbcrlf & "Do you want to open aob.txt file?", vbYesNo, "AoB Pattern Generator") = vbYes Then
oWSH.Run "notepad.exe aob.txt"
End If
---------------------------------------------------------------------------------------------------------------------------------------------
'Created by AikonCWD
Set oWSH = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
T = InputBox("Enter array of bytes nº 1:")
T = T & vbcrlf & InputBox("Enter array of bytes nº 2:")
X = 3
While MsgBox("Do you want to introduce another array of bytes?", vbYesNo, "AoB Pattern Generator") = vbYes
T = T & vbcrlf & InputBox("Enter array of bytes nº " & X &":")
X = X + 1
Wend
AoB = Split(T, vbcrlf)
F = ""
W = 0
X = 0
For i = 1 To Len(AoB(0))
For u = 1 To UBound(AoB)
If Mid(AoB(u), i, 1) <> Mid(AoB(0), i, 1) Then
F = F & "?"
W = W + 1
X = 1
Exit For
End If
Next
If X <> 1 Then F = F & Mid(AoB(0), i, 1)
X = 0
Next
Set File = oFSO.CreateTextFile("aob.txt")
File.Write "Original array of bytes:" & vbcrlf & vbcrlf
File.Write Replace(T, vbcrlf & vbcrlf, vbcrlf) & vbcrlf & vbcrlf
File.Write "Total array of bytes: " & UBound(AoB) + 1 & vbcrlf
File.Write "Total wildcards used: " & W & vbcrlf & vbcrlf
File.Write "Your AoB Pattern:" & vbcrlf & vbcrlf & F
File.Close
'MsgBox F
If MsgBox("AoB Patter Generator finished" & vbcrlf & vbcrlf & "Do you want to open aob.txt file?", vbYesNo, "AoB Pattern Generator") = vbYes Then
oWSH.Run "notepad.exe aob.txt"
End If

