Yop All Need Help :!

GovernmentSecurity.org > The Archives > Programming / Tool Design

man-FIRE

Oct 15 2003, 11:54 PM

Yop all Sorry for my english ( am French

)

Heu ...

i make a Little Bot in visualbasic he connect to irc , hide ,autostart and more ...

But i have problem to make a IPC Exploit ...

Do you help me ...

(((((The problem is for Scan a Range))))))))

.

And only good in One Client One server

THx all and Good Day

---------French version

j'Ai créer un bot en visual basic ... il est invisible et autostart et tout marche bien

mais j'aimerais créer une fonction qui permet de scanner les ranges (faille ipc)

pour pouvoir trouver plus de ip et tout ... merci pour l'aide

)

Flinston

Oct 17 2003, 11:34 AM

Take 4 for loops ...

dim a as long
dim b as long
dim c as long
dim d as long
for a = 0 to 254
for b = 0 to 254
for c = 0 to 254
for d = 0 to 254
list1.additem a & "." & b & "." & c & "." & d
next d
next c
next b
next a

Another way is to code a function which increases the ip more and more ...

man-FIRE

Oct 17 2003, 11:36 PM

Thx mec

Very Good

but why lit1.addithem

After i make What with this?

heu .. if a Replace lit1.addithem for winsock....

i test all Ip ?

Flinston

Oct 18 2003, 04:04 PM

then you have a listbox with all ips

Then you could start like this:

dim i as long
for i = 0 to list1.listcount - 1

Winsock1.Connect list1.list(i), port 'Or something else here maybe ...
Inet1.Openurl list1.list(i)
Inet1.Getheader

next i

man-FIRE

Oct 20 2003, 02:07 AM

list additem is good Really Work but for the Winsock connect ... Dont work

Dont have bug but ... dont connect ..

Cmd NEtstat and dont view

man-FIRE

Oct 21 2003, 01:07 AM

Really the Winsock1 dont test

Dim i As Long
For i = 0 To List1.ListCount - 1
Winsock1.Connect List1.List(i), 139 'Or something else here maybe ...
Next i

all ip is in the listbox ....

Feb 4 2004, 02:40 PM

dont add the ips to a list, thats a massively obscene waste of memory. not to mention the shitty listboxes offered by vb are limited to a maximum list size of ~32k, not even a good start to storing a list of all 4,294,967,296 possible ip addresses.

a different approach, more memory lenient.

CODE

private function GiveMeATarget(byref dAddy as double) as string

'turn your double into an ip address based on its value
GiveMeATarget = _
((dAddy \ (256 ^ 3)) mod 256) & "." & _
((dAddy \ (256 ^ 2)) mod 256) & "." & _
((dAddy \ (256 ^ 1)) mod 256) & "." & _
((dAddy \ (256 ^ 0)) mod 256)

'increment our addy for next time
dAddy = dAddy + 1
if (dAddy > 4294967296#) then dAddy = 0

end function

that was on the fly, let me know if it doesn't work so i can fix it.

nolimit

Feb 5 2004, 04:13 AM

Used this when coding a multithreaded vb scanner, could use some optimization , but worked fine, and i was in a hurry

CODE

Dim startip As String
Dim endip As String
Dim currentip As String
Public Function nextip()
'givin startip and endip, cycle until currip = endip
If currentip = "" Then currentip = startip: cycled = True: nextip = currentip: Exit Function
If currentip = endip Then nextip = "DONE": cycled = True: Exit Function
'split it up into 4, cycle by 1, then reassemble for transport
cycled = False
Dim ip() As String
ip = Split(currentip, ".", , vbTextCompare)
If ip(1) = "255" And ip(2) = "255" And ip(3) = "255" And cycled = False Then ip(0) = ip(0) + 1: ip(1) = 0: ip(2) = 0: ip(3) = 0: cycled = True
If ip(2) = "255" And ip(3) = "255" And cycled = False Then ip(1) = ip(1) + 1: ip(2) = 0: ip(3) = 0: cycled = True
If ip(3) = "255" And cycled = False Then ip(2) = ip(2) + 1: ip(3) = 0: cycled = True
If cycled = False Then ip(3) = ip(3) + 1
currentip = Join(ip, ".")
nextip = currentip
End Function

This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.