this idea was based off of "worm" (of hackerthreads.org)'s perl code.

 

this is written in VB6

 

Private Sub Command1_Click()
On Error Resume Next
Dim fileext As String
Dim SRC As String
Dim find1() As String
Dim find2() As String
Dim dblquote As String
Dim final As String

dblquote = Chr(34)
SRC = Inet1.OpenURL(Text1.Text)
fileext = Right(Text1.Text, 4)

If Text1.Text <> vbNullString Then 'if the text field is not blank
If InStrB(Text1.Text, ".imageshack.us") = 0 Then 'imageshack URL?
MsgBox "Sorry this file is not even on imageshack...impossible to leech it.", vbOKOnly, "ERROR"
Else
If InStrB(Text1.Text, "my.php") = 0 Then 'imageshack leecher URL?
MsgBox "Sorry this file is on imageshack but not vulnerable to leeching, prehaps it is a direct link."
Else
If fileext = ".jpg" Then 'if jpg
find1 = Split(SRC, dblquote & "http://")
find2 = Split(find1(3), Chr(34) & " title=")
final = find2(0)
Text2.Text = "http://" & final
MsgBox "Direct Link Found!", vbOKOnly, "SUCCESS!"

ElseIf Right(Text1.Text, 5) = ".jpeg" Then 'if jpg (2)
find1 = Split(SRC, dblquote & "http://")
find2 = Split(find1(3), Chr(34) & " title=")
final = find2(0)
Text2.Text = "http://" & final
MsgBox "Direct Link Found!", vbOKOnly, "SUCCESS!"

ElseIf fileext = ".gif" Then 'if gif
find1 = Split(SRC, dblquote & "http://")
find2 = Split(find1(3), Chr(34) & " title=")
final = find2(0)
Text2.Text = "http://" & final
MsgBox "Direct Link Found!", vbOKOnly, "SUCCESS!"

ElseIf fileext = ".png" Then 'if png
find1 = Split(SRC, dblquote & "http://")
find2 = Split(find1(3), Chr(34) & " title=")
final = find2(0)
Text2.Text = "http://" & final
MsgBox "Direct Link Found!", vbOKOnly, "SUCCESS!"

ElseIf fileext = ".swf" Then 'if swf
find1 = Split(SRC, "<embed src=" & Chr(34) & "http://")
find2 = Split(find1(1), Chr(34) & " quality=")
final = find2(0)
Text2.Text = "http://" & final
MsgBox "Direct Link Found!", vbOKOnly, "SUCCESS!"

ElseIf fileext = ".bmp" Then 'if bmp
find1 = Split(SRC, dblquote & "http://")
find2 = Split(find1(3), Chr(34) & " title=")
final = find2(0)
Text2.Text = "http://" & final
MsgBox "Direct Link Found!", vbOKOnly, "SUCCESS!"

Else 'tif and tiff files not supported, too lazy.
MsgBox "Sorry that file extention is not covered by this leecher program" & vbNewLine & "try editing the source code!", vbOKOnly, "ERROR"

End If
End If
End If
End If
End Sub

 

http://www.massive-mapping.com/s0beit/coding/imageshack/imageshackleech.rar

 

i could have used cases but its 2am in the morning give me a fuckin break.

Nice used and test compiled all is good.