How to insert such these values to a text file??!![RESOLVED]

Inva

Well, isn't someone creating a "word list" for brute force cracking :)

http://www.vbforums.com/showthread.p...hreadid=290889

Hold on and i'll give it a bash.

http://www.kiranreddys.com/visualbas.../04031265.html

Inva

Look at this thread. Look the idea I posted there.
http://www.vbforums.com/showthread.p...hreadid=292626

You can use that, except you wont be calculating the sum, you will just add every item to a list. and save that list into a file.

Try this. For a 5 char combo i stopped going when the txt file got to about 400megs so i dont kow how far that was. Comp can't handle a 400 meg txt file.

VB Code:

Option Explicit
Private BOOLER          As Boolean
Private numofperms      As Single
Private comboz          As String
Private myarray()       As Byte
Private Const charz     As String = "abcdefghijklmnopqrstuvwxyz0123456789"
 
Private Function APPPATH() As String
 
    If Right$(App.Path, 1) <> "\" Then
        APPPATH = App.Path & "\"
     Else
        APPPATH = App.Path
    End If
 
End Function
 
Private Sub command1_Click()
 
    BOOLER = False
    Open APPPATH & "combos.txt" For Output As #1
    Call GETALLCOMBOZ(charz, 4)  ' 4 = number of character combinations to try
    numofperms = 1
 
End Sub
 
Public Sub GETALLCOMBOZ(ByVal charact As String, _
                  ByVal num As Byte)
 
    ReDim myarray(num)
    Do While Not (BOOLER)
        myarray(numofperms) = myarray(numofperms) + 1
        If numofperms = num Then
            comboz = Left$(comboz, num - 1) + Mid$(charact, myarray(numofperms), 1)
         Else
            comboz = comboz + Mid$(charact, myarray(numofperms), 1)
        End If
        If myarray(numofperms) <> Len(charact) + 1 Then
            If numofperms <> num Then
                numofperms = numofperms + 1
             Else
               Print #1, comboz
            End If
         Else
            If numofperms = 1 Then
                BOOLER = True
             Else
                myarray(numofperms) = 0
                numofperms = numofperms - 1
                comboz = Left$(comboz, numofperms - 1)
            End If
        End If
    Loop
    Close #1
 
End Sub

Inva