Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - generatore sequenziale
Forum - Visual Basic 6 - generatore sequenziale

Pagine: [ 1 2 3 4 5 ] Precedente | Prossimo
Avatar
DavidP (Normal User)
Pro


Messaggi: 87
Iscritto: 31/08/2009

Segnala al moderatore
Postato alle 16:11
Martedì, 19/01/2010
Cia è da molto che non scrivo in questo forum ma ora è arrivata l'ora.
Vorrei creare un generatore sequenziale cioè come lo dice  già la parola deve creare sequenze di numeri e lettere appunto sequenziali.
Esso deve utilizzare tutte le lettere(miniscole) e i numeri(0-9) e deve fare ciò.
Es.
aaa
baa
caa
...
9aa arrivato qui la seconda lettera deve diventare b e fare cio:
aba
bba
cba
...
9ba
In poche parole gni volta che il primo carattere arriva a 9 il secondo "aumenta" facendo diventare tutti i caratteri da sinistra verso destra "a". Esso deve eseguire tutto ciò finchè i caratteri non diventino tutti 999.
P.S. tutte le seguenze che cra devono essere create in un file .txt.
grazie per la collaborazione.
DavidP

PM Quote
Avatar
Louis (Normal User)
Pro


Messaggi: 150
Iscritto: 22/04/2008

Segnala al moderatore
Postato alle 17:22
Martedì, 19/01/2010
Non si é capito molto, posta il codice che hai già scritto ...

PM Quote
Avatar
Alfonso (Ex-Member)
Guru


Messaggi: 688
Iscritto: 30/09/2009

Segnala al moderatore
Postato alle 17:54
Martedì, 19/01/2010
Codice sorgente - presumibilmente VB.NET

  1. s = "aaa"
  2. Debug.Print s
  3. ' scorre la stringa s che è di tre caratteri
  4. For n = 1 To 3
  5.   For l = 98 To 122 ' codice ascii dei caratteri da b a z
  6.     Mid$(s, n, 1) = Chr$(l) 'cambia l'ennesimo carattere di s col nuovo carattere
  7.     Debug.Print s
  8.   Next
  9.   For l = 48 To 57 ' codice ascii dei caratteri da 0 a 9
  10.     Mid$(s, n, 1) = Chr$(l)
  11.     Debug.Print s
  12.   Next
  13. Next


Al posto di debug.print scrivi nel tuo file

Ultima modifica effettuata da Alfonso il 19/01/2010 alle 17:55
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 6402
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 18:51
Martedì, 19/01/2010
Un generatore di password ?


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.
PM Quote
Avatar
DavidP (Normal User)
Pro


Messaggi: 87
Iscritto: 31/08/2009

Segnala al moderatore
Postato alle 19:02
Martedì, 19/01/2010
Alfonso ti ringrazio ma per ora non posso provare il tuo codice, perchè ho win 7 e non so come fare ad installare vb6 su di esso .
Tu hai qualche soluzione?

Ultima modifica effettuata da DavidP il 19/01/2010 alle 19:03
PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 19:19
Martedì, 19/01/2010
generatore sequenziale? Non sapevo che i bruteforce si chiamassero così :P

Se cerchi tra i sorgenti del sito troverai fatto un esempio fatto dallo stesso pierotofy

PM Quote
Avatar
DavidP (Normal User)
Pro


Messaggi: 87
Iscritto: 31/08/2009

Segnala al moderatore
Postato alle 19:45
Martedì, 19/01/2010
Provato!!
ma non era così.
come ho detto prima deve fare così
aaa
baa
...
9aa
dopo
aba
..
etc.
mentre il tuo(Alfonso) fa aaa, baa,..,9aa e poi inizia così 9aa, 9ba,..,99a,99b etc.
e cosi facendo mi salta molte combinazioni Xd.
quindi se mi potete aiutare in questo modo da me sopraindicato ve ne sarei grato.

PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 6402
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 19:55
Martedì, 19/01/2010
Testo quotato

Postato originariamente da DavidP:

quindi se mi potete aiutare in questo modo da me sopraindicato ve ne sarei grato.




Avresti potuto arrivarci da solo studiando l'esempio già ottenuto ...

Codice sorgente - presumibilmente VB.NET

  1. Dim s As String
  2.     Dim i As Integer
  3.     Dim j As Integer
  4.     Dim k As Integer
  5.     Dim x As String
  6.    
  7.     s = Space$(3)
  8.     x = "abcdefghijklmnopqrstuvwxyz0123456789"
  9.     For k = 1 To 36
  10.         For j = 1 To 36
  11.             For i = 1 To 36
  12.                 Mid$(s, 1) = Mid$(x, i, 1)
  13.                 Mid$(s, 2) = Mid$(x, j, 1)
  14.                 Mid$(s, 3) = Mid$(x, k, 1)
  15.                 Debug.Print s
  16.             Next i
  17.         Next j
  18.     Next k



Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.
PM Quote
Avatar
Alfonso (Ex-Member)
Guru


Messaggi: 688
Iscritto: 30/09/2009

Segnala al moderatore
Postato alle 20:01
Martedì, 19/01/2010
Per installare VB6 su W7 questa procedura l'ho raccolta qua e la sui forum.
Non ho w7 per cui non so dirti se effettivamente funzioni.

Copiare il disco d'installazione di vb6 sul disco del pc
Nella cartella SETUP di VB6 rinominare il file *.stf (a seconda delle versioni vs98pro.stf o vb98pro.stf o vs98ent.stf o vb98ent.stf) in acmsetup.stf
Fare una copia di acmsetup.stf e rinominarla ACOST.exe
Copiare tutti i files della cartella SETUP incollandoli nella cartella superiore (quella che contiene il file acmboot.exe)
Lanciare come amministratore(tasto destro) il programma acmsetup.exe

Ci sarà poi il problema di cambiare le SendKeys con API

PM Quote
Pagine: [ 1 2 3 4 5 ] Precedente | Prossimo