Asking for help, new tool (simple one)

[CHAO]

Hi guys, i'm asking help from little coders, I mean it's not sothing pro at all. 

It's about Wordlist generator. 

It's good with the lists, but I want to make %user% etc and I don't know how to, can you please guys, gimme some advices? 

 

Many thanks 

[Bix3]

can you explain further?

[CHAO]

can you explain further?

TheCaliphate WordList CREATOR v1

Check sign there is the lin of the program. 

currently it only do userlist + passlist but it's impossible to set passwords as %user% it's not recognized by the tool. 

 

eg 1 (happens now): 

 

name :

thecaliphate 

pass : 

nulledisop

 

Results : 

 

thecaliphate:nulledisop

 

e.g 2 (the problem) : 

 

name: 

thecaliphate

pass :

%user% for example to give the username back

 

Results : 

thecaliphate:%user% and not thecal:thecal

 

Yousse bra ? 

[Bix3]

TheCaliphate WordList CREATOR v1

Check sign there is the lin of the program. 

currently it only do userlist + passlist but it's impossible to set passwords as %user% it's not recognized by the tool. 

 

eg 1 (happens now): 

 

name :

thecaliphate 

pass : 

nulledisop

 

Results : 

 

thecaliphate:nulledisop

 

e.g 2 (the problem) : 

 

name: 

thecaliphate

pass :

%user% for example to give the username back

 

Results : 

thecaliphate:%user% and not thecal:thecal

 

Yousse bra ? 

i wiill create an simple test for that in one hour, you can see then

[Bix3]

       Dim list1 As List(Of String)
        Dim num1 As Integer = 1
        Dim list2 As List(Of String)
        Dim num2 As Integer = 1

        Console.WriteLine("Load list 1")


        Dim openfiledialog1 As New OpenFileDialog
        openfiledialog1.Filter = ".txt | *txt"
        openfiledialog1.ShowDialog()
        If openfiledialog1.ShowDialog = DialogResult.OK Then

            list1.AddRange(File.ReadAllLines(openfiledialog1.FileName.ToString))

        End If


        Console.WriteLine("Load list 2")

        openfiledialog1.ShowDialog()
        If openfiledialog1.ShowDialog = DialogResult.OK Then

            list2.AddRange(File.ReadAllLines(openfiledialog1.FileName.ToString))

        End If






        Dim started As Boolean = True


        Do While started = True

            Try

                Dim str1 As String = list1(num1).ToString

                Dim str2 As String = list2(num2).ToString


                num1 += 1

                num2 += 1


                Dim output As String = str1 & ":" & str2

                Console.WriteLine(output)

            Catch ex As IndexOutOfRangeException
                Console.WriteLine("Finished!")
                started = False
            End Try

        Loop