Ben toujours la suite de nopasswd, j'continue donc mes recherches, en jouant avec les mots. Dans cette partie du Ezine est prévu une amélioration de l'enregistrement des users et password,qui bien sur existe des façons plus elegantes pour ce genre de programme. Vers la fin de ce numéros est prévu l'initiation au cracker que nous avons commences dans le numéro 3,car je n'est toujours pas trouve comment décodé cette équation :)

DECLARE SUB liste ()

DECLARE SUB saisie ()

CLS

DO

PRINT

INPUT "(S)aisie, (L)iste des utilisateurs,(T)erminer le programme:", touche$

SELECT CASE UCASE$(touche$)

CASE "T": END

CASE "S": saisie

CASE "L": liste

CASE ELSE

END SELECT

LOOP

OPEN "passwd.dat " FOR INPUT AS #1

PRINT "liste des enregistrements"

PRINT

DO

INPUT #1, user$, password$

PRINT "utilisateur:"; user$, "=> password:"; password$

LOOP UNTIL EOF(1)

CLOSE #1

END SUB

OPEN "passwd.dat" FOR APPEND AS #1

DO

LINE INPUT "Utilisateur (F=fin) "; user$

IF UCASE$(user$) = "F" THEN EXIT DO

INPUT "Clef de cryptage:", d

LINE INPUT "password"; password$

FOR i = 1 TO LEN(password$)

x = ASC(MID$(password$, i, 1))

x = x + d: IF x > 84 + 26 THEN x = x - 26

crypt$ = crypt$ + CHR$(x)

NEXT i

WRITE #1, user$, crypt$

LOOP

CLOSE #1

END SUB

Le programme est donc divise en 3 parties. On a le menu principale du choix des touches, une fonction saisie qui créé un fichier passwd.dat dans le répertoire courant de son utilisation, et une fonction liste qui permet de lister tous les enregistrements des users avec leurs passwords.

INPUT "users:"; user$

INPUT "clef de codage"; d

FOR i = 1 TO LEN(user$)

x = ASC(MID$(user$, i, 1))

x = x + d: IF x > 84 + 1 THEN x = x - 1

cod$ = cod$ + CHR$(x)

NEXT i

PRINT "key word:"; cod$

INPUT "Nom de l'user a decripter"; user$

INPUT "entrez sa clef de codage"; d

FOR j = 1 TO LEN(cod$)

x = ASC(MID$(cod$, j, 1))

x = x - d

IF x < 84 THEN x = x + 1

user$ = cod$ + CHR$(x)

NEXT j

PRINT "key word found:"; cod$

Enfin cette équation est décrypte j'croyais n'en jamais voir le bout, faut dire aussi que moi les maths....Bref j'vais pouvoir continuer avec nopassw5 avec cette fois un vérificateur d'utilisateurs (login.exe) Pour les commentaires; j'ai donc utilise une variable user$ pour l'enregistrement des utilisateurs, une variable d pour la valeur de notre clef de codage, et une variable cod$ pour initialiser le calcul.