[Shell/Perl] Remplacer un MdP dans un fichier
Julie
-
Julie -
Julie -
Bonjour tout le monde !
Voilà, soit le fichier User avec comme champs cela :
idUser Nom MdP idGroupe Droit DateDernierMdP
0001;Martin;bXdtb;01;r;2008-06-12
Je souhaiterai faire un script en Shell ou en Perl ou même en Awk (mais je ne crois pas qu'on puisse écrire dans un fichier avec awk) qui prendrai en paramètre un idUser et un Mot de passe.
Le script changerai le mot de passe associé à l'idUser.
Voyez-vous comment je peux faire cela ?
D'avance merci beacoup !!
Voilà, soit le fichier User avec comme champs cela :
idUser Nom MdP idGroupe Droit DateDernierMdP
0001;Martin;bXdtb;01;r;2008-06-12
Je souhaiterai faire un script en Shell ou en Perl ou même en Awk (mais je ne crois pas qu'on puisse écrire dans un fichier avec awk) qui prendrai en paramètre un idUser et un Mot de passe.
Le script changerai le mot de passe associé à l'idUser.
Voyez-vous comment je peux faire cela ?
D'avance merci beacoup !!
A voir également:
- [Shell/Perl] Remplacer un MdP dans un fichier
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier bin - Guide
- Fichier rar - Guide
- Classic shell - Télécharger - Personnalisation
4 réponses
Salut,
oui je veux bien, fin si ça te dérange pas bien sur (vu l'heure)
Désolée, je connais pas grand chose en perl (j'apprend ^^)
Merci en tout cas !!
oui je veux bien, fin si ça te dérange pas bien sur (vu l'heure)
Désolée, je connais pas grand chose en perl (j'apprend ^^)
Merci en tout cas !!
Re
Ton sauveur est revenu. lol.
Je t'ai concocté un petit script en perl. Il est loin d'être parfait. Il y a pas mal de point à améliorer. A guise d'exercice ;)
Par exemple, masquer le mot de passe de l'utilisateur lorsqu'il le tape à l'écran, introduire un salt, ...
Ton sauveur est revenu. lol.
Je t'ai concocté un petit script en perl. Il est loin d'être parfait. Il y a pas mal de point à améliorer. A guise d'exercice ;)
Par exemple, masquer le mot de passe de l'utilisateur lorsqu'il le tape à l'écran, introduire un salt, ...
#!/usr/bin/perl
use Digest::MD5 qw(md5_base64);
echo 'user: ';
my $user=<STDIN>;
chomp $user;
echo 'pass: ';
<STDIN>;
chomp $pass;
my $pass='$1$'.md5_base64($_);
open(FILE,'./etc/shadow') || die('erreur fichier');
while(<FILE>){
s/^$user:.*:/$user:$pass:/;
}
houu lala... alors là merci infiniment, tu m'enlèves une sacré épine du pied !!
Par contre le script devait prendre en paramètre les deux variables (idUser et le nouveauMdP à remplacer dans le fichier (user) oui c'est un fichier de test en faite, c'est pas le fichier /etc/shadow.
Mais c'est trop cool ce que tu as fais sérieux, je vais modifier le programme demain pour qu'il soit parfait.
Merci encore !
Pis bonne nuit si tu n'es pas encore couché :)
Par contre le script devait prendre en paramètre les deux variables (idUser et le nouveauMdP à remplacer dans le fichier (user) oui c'est un fichier de test en faite, c'est pas le fichier /etc/shadow.
Mais c'est trop cool ce que tu as fais sérieux, je vais modifier le programme demain pour qu'il soit parfait.
Merci encore !
Pis bonne nuit si tu n'es pas encore couché :)