[HELP] AntiBot - How to make my program take it!

[NextGen1]

Didn't I write a tut or application for this already?

[Prfction]

Didn't I write a tut or application for this already?

You did make a tut on how to get the picture into another webbrowser. I do want my program to write in the antibot. So that I don't need to do it, the program does it automaticly

So no, you didn't

[NextGen1]

Then, You need a bypass. Either OCR or trying the old captcha/plaintext/sessionID trick that works with100's of popular php captchas

[doggyrpg]

Look for the HTML element?

[Prfction]

Here we go.
This is the antibot I want my program to take



Is it possible, or should I use the Yahoo Captcha tut?

[Zoom]

Here we go.
This is the antibot I want my program to take



Is it possible, or should I use the Yahoo Captcha tut?

Public NotInheritable Class ImageScanner

Public Shared Function FindBitmap(ByVal Haystack As Bitmap, ByVal Needle As Bitmap, Optional ByVal ShowDebug As Boolean = False) As Rectangle()
Dim HaystackStride As Integer = 0
Dim HaystackBPP As Integer = 0
Dim HaystackData As String = BitmapToString(Haystack, New Rectangle(0, 0, Haystack.Width, Haystack.Height), HaystackStride, HaystackBPP)
Dim NeedleStride As Integer = 0
Dim NeedleBPP As Integer = 0
Dim NeedleData As String = BitmapToString(Needle, New Rectangle(0, 0, Needle.Width, Needle.Height), NeedleStride, NeedleBPP)
Dim ReturnList As New List(Of Rectangle)
For Y As Integer = 0 To Haystack.Height - Needle.Height
For X As Integer = 0 To Haystack.Width - Needle.Width
If GetPixelFromString(HaystackData, New Point(X, Y), HaystackStride, HaystackBPP).ToArgb <> _
GetPixelFromString(NeedleData, New Point(0, 0), NeedleStride, NeedleBPP).ToArgb Then Continue For
If ShowDebug Then Debug.WriteLine(New Point(X, Y).ToString)
Dim ChildCompare As Image = Haystack.Clone(New Rectangle(X, Y, Needle.Width, Needle.Height), Imaging.PixelFormat.Format24bppRgb)
If BitmapToString(ChildCompare, New Rectangle(0, 0, Needle.Width, Needle.Height), 0, 0) = NeedleData Then
ReturnList.Add(New Rectangle(X, Y, Needle.Width, Needle.Height))
End If
ChildCompare.Dispose()
Next
Next
Return ReturnList.ToArray
End Function

Private Shared Function GetPixelFromString(ByVal S As String, ByVal P As Point, _
ByVal Stride As Long, ByVal BPP As Integer) As Color
Dim StartPos As Long = (Stride * P.Y) + (BPP * P.X)
Dim BChar As Char = S(StartPos + 0)
Dim GChar As Char = S(StartPos + 1)
Dim RChar As Char = S(StartPos + 2)
Return Color.FromArgb(Asc(RChar), Asc(GChar), Asc(BChar))
End Function

Private Shared Function BitmapToString(ByVal Image As Bitmap, ByVal Bounds As Rectangle, ByRef Stride As Integer, ByRef BPP As Integer) As String
Dim BitmapData As Imaging.BitmapData = Image.LockBits(Bounds, Imaging.ImageLockMode.ReadOnly, Imaging.PixelFormat.Format24bppRgb)
BPP = (BitmapData.Stride - 1) / BitmapData.Width
Stride = BitmapData.Stride
Dim ImageData As String = Runtime.InteropServices.Marshal.PtrToStringAnsi(Bi tmapData.Scan0, BitmapData.Stride * BitmapData.Height)
Image.UnlockBits(BitmapData)
Return ImageData
End Function

Source: Find bitmap in bitmap [Archive] - *****.Org Forums

[Prfction]

Public NotInheritable Class ImageScanner

Public Shared Function FindBitmap(ByVal Haystack As Bitmap, ByVal Needle As Bitmap, Optional ByVal ShowDebug As Boolean = False) As Rectangle()
Dim HaystackStride As Integer = 0
Dim HaystackBPP As Integer = 0
Dim HaystackData As String = BitmapToString(Haystack, New Rectangle(0, 0, Haystack.Width, Haystack.Height), HaystackStride, HaystackBPP)
Dim NeedleStride As Integer = 0
Dim NeedleBPP As Integer = 0
Dim NeedleData As String = BitmapToString(Needle, New Rectangle(0, 0, Needle.Width, Needle.Height), NeedleStride, NeedleBPP)
Dim ReturnList As New List(Of Rectangle)
For Y As Integer = 0 To Haystack.Height - Needle.Height
For X As Integer = 0 To Haystack.Width - Needle.Width
If GetPixelFromString(HaystackData, New Point(X, Y), HaystackStride, HaystackBPP).ToArgb <> _
GetPixelFromString(NeedleData, New Point(0, 0), NeedleStride, NeedleBPP).ToArgb Then Continue For
If ShowDebug Then Debug.WriteLine(New Point(X, Y).ToString)
Dim ChildCompare As Image = Haystack.Clone(New Rectangle(X, Y, Needle.Width, Needle.Height), Imaging.PixelFormat.Format24bppRgb)
If BitmapToString(ChildCompare, New Rectangle(0, 0, Needle.Width, Needle.Height), 0, 0) = NeedleData Then
ReturnList.Add(New Rectangle(X, Y, Needle.Width, Needle.Height))
End If
ChildCompare.Dispose()
Next
Next
Return ReturnList.ToArray
End Function

Private Shared Function GetPixelFromString(ByVal S As String, ByVal P As Point, _
ByVal Stride As Long, ByVal BPP As Integer) As Color
Dim StartPos As Long = (Stride * P.Y) + (BPP * P.X)
Dim BChar As Char = S(StartPos + 0)
Dim GChar As Char = S(StartPos + 1)
Dim RChar As Char = S(StartPos + 2)
Return Color.FromArgb(Asc(RChar), Asc(GChar), Asc(BChar))
End Function

Private Shared Function BitmapToString(ByVal Image As Bitmap, ByVal Bounds As Rectangle, ByRef Stride As Integer, ByRef BPP As Integer) As String
Dim BitmapData As Imaging.BitmapData = Image.LockBits(Bounds, Imaging.ImageLockMode.ReadOnly, Imaging.PixelFormat.Format24bppRgb)
BPP = (BitmapData.Stride - 1) / BitmapData.Width
Stride = BitmapData.Stride
Dim ImageData As String = Runtime.InteropServices.Marshal.PtrToStringAnsi(Bi tmapData.Scan0, BitmapData.Stride * BitmapData.Height)
Image.UnlockBits(BitmapData)
Return ImageData
End Function

Source: Find bitmap in bitmap [Archive] - *****.Org Forums

Ty. You have any clue on how I should put it in my code to get it to work?

[trevor206]

REALLY SORRY FOR THE OUT SIDE LINKS BUT I FOUND WHAT HE WANTS.(i think)

try this:
Captcha by Mohandes Zalatan

or this:
Captcha class for preventing bots in ASP.NET by Richard Bean

again sorry for the outside link but planet source code aint that bad

[Prfction]

REALLY SORRY FOR THE OUT SIDE LINKS BUT I FOUND WHAT HE WANTS.(i think)

try this:
Captcha by Mohandes Zalatan

or this:
Captcha class for preventing bots in ASP.NET by Richard Bean

again sorry for the outside link but planet source code aint that bad

Omg.. I'm not rude to you now.. But you should think on reading the whole tread before replying with a totally wrong thing..! Read trough the thread and you'll see that I ain't asking about this

[trevor206]

Omg.. I'm not rude to you now.. But you should think on reading the whole tread before replying with a totally wrong thing..! Read trough the thread and you'll see that I ain't asking about this

then what are u asking i read ur first post i dont get it u say anti bot but i really dont get it what are u asking for like something so ur program cant be botted or to do the captcha on like anysite? sorry for me misunderstanding.

[Prfction]

then what are u asking i read ur first post i dont get it u say anti bot but i really dont get it what are u asking for like something so ur program cant be botted or to do the captcha on like anysite? sorry for me misunderstanding.

It's okay

I want my program to do Captcha a site So that I don't need to fill in the captcha, got me?

[trevor206]

It's okay

I want my program to do Captcha a site So that I don't need to fill in the captcha, got me?

ok i got u now i know how to make it fill in manually like u type it in a textbox and press a button and there u go it fills it in. if u mean that add me on
msn

but if u mean like automaticly check this out
SORRY FOR THE OUTSIDE LINK...
https://www.brains-n-brawn.com/defau...vDir=aicaptcha

there is no code there just picture of what the guy made but i think its what u want.

[Prfction]

ok i got u now i know how to make it fill in manually like u type it in a textbox and press a button and there u go it fills it in. if u mean that add me on
msn: [

but if u mean like automaticly check this out
SORRY FOR THE OUTSIDE LINK...
brains-N-brawn.com

there is no code there just picture of what the guy made but i think its what u want.

It was that yes.. But i've thinked on it, and it is to hard for me. So i'm going to do it manually, i'll add you to msn!