Help me

**isurftheweb** · Mar 31st, 2001, 09:21 PM

I need to figure out how to make a text and number scroller like so it scrolls thourght numbers and letters like this:
1aaaa
1aaab
1aaac
1aaad
1aaae
1aaaf
1aaag
1aaah
1aaai
1aaaj
1aaak
1aaal
1aaam
1aaan
1aaao
1aaap
1aaaq
1aaar
1aaas
1aaat
1aaau
1aaav
1aaaw
1aaax
1aaay
1aaaz
1aaa1
1aaa2
1aaa3
1aaa4
1aaa5
1aaa6
1aaa7
1aaa8
1aaa9
1aaa0
1aaa!
1aaa@
1aaa#
1aaa$
please any body help me

**crptcblade** · Mar 31st, 2001, 09:26 PM

Code:

For x = 1 to 255
  Print "1aaa" & Chr(x)
Next

it won't come out in the order you want, but play around with it...

**isurftheweb** · Mar 31st, 2001, 09:28 PM

But i want it to go throught the 0-9 system then to a-z then go to the next line like a password decoder

**crptcblade** · Mar 31st, 2001, 09:30 PM

okay, in rows like that, or in one place? Like one changing string, or how you listed them up top...?

**isurftheweb** · Mar 31st, 2001, 09:34 PM

like text1.text = Then the code i need
i dont want to print it i want to run one posibility the chech to see if it is correct then run the possibilty rite after it to see if it correct and so on and so on .....

**crptcblade** · Mar 31st, 2001, 09:44 PM

Code:

  For a = 48 To 122
    For b = 48 To 122
      For c = 48 To 122
        For d = 48 To 122
          For e = 48 To 122
            If Text1.Text = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) Then
              MsgBox "Found - " & Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e)
              Exit Sub
            End If
          Next e
        Next d
      Next c
    Next b
  Next a

This could take a long time though...and this code works on 5 characters, only

**isurftheweb** · Mar 31st, 2001, 09:51 PM

Can you help me

**crptcblade** · Mar 31st, 2001, 09:54 PM

the Chr() function converts the numbers into ascii characters(0-9,a-z, and many others) that is what those loops are doing...but I am trying to figure out a faster way right now...

**crptcblade** · Mar 31st, 2001, 10:01 PM

Code:

Text2.Text = ""

For x = 1 To Len(Text1.Text) 'replace this with a variable or whatever
  For y = 48 To 122
    If Mid(Text1.Text.x,1) = Chr(y) Then
       Text2.Text = Text2.Text & Chr(y)
    End If
  Next y
Next x

this runs a lot faster...

**isurftheweb** · Mar 31st, 2001, 10:07 PM

¿

**crptcblade** · Mar 31st, 2001, 10:11 PM

you mean the first code? Its really running long, isn't it...? Hit CTRL + Pause/Break and it will pause the execution...

Thread: Help me

Thread Tools

Display

But

In one place

But how do you include text like a-z

if i wanted how wold i break it in the middle to make it stop

Posting Permissions