Crypter une chaine de caractères en shell

**disedorgue** · 12/11/2020, 19h42

@hizoka: oui c'est passwd (j'ai loupé mon copier/coller ...)

sinon, un exemple en perl:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
$ echo -e "titi toto\ninsert into table1 ( id, nom, prenom ) values ( 1, 'toto', 'tata' );" | perl -F'\(' -ane 'if ($_ =~ /table1/) { @b=split /\x27/ , @F[2]; $b[1]="\x27".substr((split /\$/,crypt($b[1],"\$5\$AZERTY"))[3],0,14)."\x27";$b[3]="\x27".substr((split /\$/,crypt($b[3],"\$5\$AZERTY"))[3],0,14)."\x27";$_=join("",$F[0]."(".$F[1]."(",@b) ;} print'
titi toto
insert into table1 ( id, nom, prenom ) values ( 1, '2LYnjdDbzDiIoy', 'p29gFqKXgcfuyj' );

Reste plus qu'à écrire le if pour table2

En plus lisible:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
$ echo -e "titi toto\ninsert into table1 ( id, nom, prenom ) values ( 1, 'toto', 'tata' );" | perl -F'\(' -ane '
if ($_ =~ /table1/) { 
@b=split /\x27/ , @F[2]; 
$b[1]="\x27".substr((split /\$/,crypt($b[1],"\$5\$AZERTY"))[3],0,14)."\x27";
$b[3]="\x27".substr((split /\$/,crypt($b[3],"\$5\$AZERTY"))[3],0,14)."\x27";
$_=join("",$F[0]."(".$F[1]."(",@b);
} 
print'
titi toto
insert into table1 ( id, nom, prenom ) values ( 1, '2LYnjdDbzDiIoy', 'p29gFqKXgcfuyj' );

**steph44470** · 13/11/2020, 09h41

bonjour à vous tous,
finalement , l'utilisateur qui nous donnera la fichier d'export ne veut pas que l'on touche à sa base de donnée.
Donc, il faut modifier le fichier d'export.
Je vais travailler sur la lecture du fichier ligne par ligne et recréer un fichier avec les données anonymisées.

**steph44470** · 13/11/2020, 13h18

bonjour,
suite à différentes lectures , j'arrive bien à refaire mon fichier mais je bloque sur un retour chariot :
mon fichier de départ :

test
insert into table1 ( id, nom, prenom ) values ( 1, 'nom1', 'prenom1');
insert into table1 ( id, nom, prenom ) values ( 1, 'nom2', 'prenom2');
insert into table1 ( id, nom, prenom ) values ( 1, 'nom3', 'prenom3');
insert into table1 ( id, nom, prenom ) values ( 1, 'nom4', 'prenom4');
test2
insert into table2 ( id, nom, prenom, adresse ) values ( 1, 'nom1', 'prenom1', 'adresse1');
insert into table2 ( id, nom, prenom, adresse ) values ( 1, 'nom2', 'prenom2', 'adresse1');
insert into table2 ( id, nom, prenom, adresse ) values ( 1, 'nom3', 'prenom3', 'adresse1');
insert into table2 ( id, nom, prenom, adresse ) values ( 1, 'nom4', 'prenom4', 'adresse1');

mon essai de l'exécutable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clear
awk ' BEGIN {
   FS="(" }
    ( $1 !~ /table/ ) { 
      print $0;
      }
    ( $1 ~ /table1/ ) { 
      split($3,b,"\x27");
        print $1,"(",$2, "(",b[1],"\x27" 
          command="echo "b[2]"|md5sum" ;command | getline b[2]; close(command);
           print b[2];
      }
    ( $1 ~ /table2/ ) { 
      split($3,b,"\x27");
        print b[2],b[4],b[6];
        command="echo "b[2]"|md5sum" ;command | getline b[2]; close(command);
        print b[2] ;
      }
  END { print "fin" } ' test.sql  > test_1.sql
################################

mon fichier résultat :

test
insert into table1 ( id, nom, prenom ) values ( 1, '
fe2850b21684dc60d37cbfd8171ab477 -
insert into table1 ( id, nom, prenom ) values ( 1, '
af417f05e99ff1b2266358bd608ecf6d -
insert into table1 ( id, nom, prenom ) values ( 1, '
4e56f5f82634539a29792e721b42df3e -
insert into table1 ( id, nom, prenom ) values ( 1, '
2d1b096f54ef3b1a11aaad15beed1fa3 -
test2
nom1 prenom1 adresse1
fe2850b21684dc60d37cbfd8171ab477 -
nom2 prenom2 adresse1
af417f05e99ff1b2266358bd608ecf6d -
nom3 prenom3 adresse1
4e56f5f82634539a29792e721b42df3e -
nom4 prenom4 adresse1
2d1b096f54ef3b1a11aaad15beed1fa3 -
fin

pourriez-vous m'aider à retirer le retour chariot au niveau des lignes de la table1 ?

Si vous savez optimiser le code , n'hésitez pas.

je ne maitrise pas trop awk.

stephane

**disedorgue** · 13/11/2020, 13h37

Perso, je t'ai donné une solution en perl qui fait tout le boulot pour table1, il reste juste à rajoute un autre bloc if pour la table2 et avant le print.

Sinon, celui-ci en l'état, ne modifie que les lignes avec table1 et reconduit le autres lignes sans y toucher.

Et selon moi, il sera plus rapide que ton awk qui lance autant de fois un process md5sum qu'il y a de modification à faire.

**Flodelarab** · 13/11/2020, 14h35

"print" fait un retour à la ligne. Pas "printf".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

printf("%s ( %s ( %s \x27",$1,$2,b[1])

**steph44470** · 13/11/2020, 15h30

Bonjour disedorgue ,
le code devient donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
$ echo -e "titi toto\ninsert into table1 ( id, nom, prenom ) values ( 1, 'toto', 'tata' );" | perl -F'\(' -ane '
if ($_ =~ /table1/) { 
@b=split /\x27/ , @F[2]; 
$b[1]="\x27".substr((split /\$/,crypt($b[1],"\$5\$AZERTY"))[3],0,14)."\x27";
$b[3]="\x27".substr((split /\$/,crypt($b[3],"\$5\$AZERTY"))[3],0,14)."\x27";
$_=join("",$F[0]."(".$F[1]."(",@b);
} 
if ($_ =~ /table2/) { 
@b=split /\x27/ , @F[2]; 
$b[1]="\x27".substr((split /\$/,crypt($b[1],"\$5\$AZERTY"))[3],0,14)."\x27";
$b[3]="\x27".substr((split /\$/,crypt($b[3],"\$5\$AZERTY"))[3],0,14)."\x27";
$b[5]="\x27".substr((split /\$/,crypt($b[5],"\$5\$AZERTY"))[3],0,14)."\x27";
$_=join("",$F[0]."(".$F[1]."(",@b);
} 
print > resultat.txt'

La sortie est bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print > resultat.txt

Par contre comment indiqué le fichier départ et que toutes les lignes soient bien lues.

**disedorgue** · 13/11/2020, 16h05

Voici un exemple:
Le fichier source:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
$ cat fic1.txt
ICI Une ligne quelconque
insert into table2 ( id, nom, prenom ) values ( 1, 'toto', 'tata' ,'tutu' );
autre ligne quelconque
insert into table1 ( id, nom, prenom ) values ( 1, 'toto', 'tata' );"
encore une
et une autre

La commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
$ perl -F'\(' -ane '
if ($_ =~ /table1/) {
@b=split /\x27/ , @F[2];
$b[1]="\x27".substr((split /\$/,crypt($b[1],"\$5\$AZERTY"))[3],0,14)."\x27";
$b[3]="\x27".substr((split /\$/,crypt($b[3],"\$5\$AZERTY"))[3],0,14)."\x27";
$_=join("",$F[0]."(".$F[1]."(",@b);
}
if ($_ =~ /table2/) {
@b=split /\x27/ , @F[2];
$b[1]="\x27".substr((split /\$/,crypt($b[1],"\$5\$AZERTY"))[3],0,14)."\x27";
$b[3]="\x27".substr((split /\$/,crypt($b[3],"\$5\$AZERTY"))[3],0,14)."\x27";
$b[5]="\x27".substr((split /\$/,crypt($b[5],"\$5\$AZERTY"))[3],0,14)."\x27";
$_=join("",$F[0]."(".$F[1]."(",@b);
}
print' fic1.txt >resultat.txt

Le fichier resultat:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
$ cat resultat.txt
ICI Une ligne quelconque
insert into table2 ( id, nom, prenom ) values ( 1, '2LYnjdDbzDiIoy', 'p29gFqKXgcfuyj' ,'xTlILtmiNl7ZuG' );
autre ligne quelconque
insert into table1 ( id, nom, prenom ) values ( 1, '2LYnjdDbzDiIoy', 'p29gFqKXgcfuyj' );"
encore une
et une autre

Après, ne pas oublier de changer la clé de hash (AZERTY ici).
Et un petit détail, dans le hash, on peut avoir des '.' ou des '/' qu'il faudra peut-être retirer s'ils ne sont pas accepté par la bdd.

**steph44470** · 13/11/2020, 16h20

Merci beaucoup , cela fonctionne parfaitement.
Il me reste à faire les ajustement .

**steph44470** · 13/11/2020, 17h35

Question complémentaire si a la place de azerty, on souhaite le numéro du jours
Comment faire ?

**disedorgue** · 13/11/2020, 17h42

Comprend pas la question, suffit juste de mettre la chaine que l'on veut à la place, par exemple
Au lieu de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

crypt($b[1],"\$5\$AZERTY"))

on met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

crypt($b[1],"\$5\$20201113"))

**steph44470** · 13/11/2020, 18h17

oui, j'avais fais des tests, mais en fait je voudrais que cela soit dynamique .
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

crypt($b[1],"\$5\donnéesChoisiParLutilisateur"))

j'execute le ksh suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

./anonymisation lundi

le traitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

crypt($b[1],"\$5\$lundi"))

Travaillant quasiment sur sql, je ne connais pas bien le shell.
Je te remercie énormément pour ton aide.

**disedorgue** · 13/11/2020, 18h59

Ok, dans ce cas, on peut comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
perl -F'\(' -ane '
BEGIN{$XX=shift;}
if ($_ =~ /table1/) {
@b=split /\x27/ , @F[2];
$b[1]="\x27".substr((split /\$/,crypt($b[1],"\$5\$$XX"))[3],0,14)."\x27";
$b[3]="\x27".substr((split /\$/,crypt($b[3],"\$5\$$XX"))[3],0,14)."\x27";
$_=join("",$F[0]."(".$F[1]."(",@b);
}
if ($_ =~ /table2/) {
@b=split /\x27/ , @F[2];
$b[1]="\x27".substr((split /\$/,crypt($b[1],"\$5\$$XX"))[3],0,14)."\x27";
$b[3]="\x27".substr((split /\$/,crypt($b[3],"\$5\$$XX"))[3],0,14)."\x27";
$b[5]="\x27".substr((split /\$/,crypt($b[5],"\$5\$$XX"))[3],0,14)."\x27";
$_=join("",$F[0]."(".$F[1]."(",@b);
}
print' AZERTY fic1.txt >resultat.txt

ici, le script prendra AZERTY comme clé de hash, mais si tu remplaces le mot AZERTY par (dans ton cas) "$1" (on garde les guillemets) , ça devrait le faire, puisqu'en shell le $1 représente le premier argument qui dans ton exemple est lundi.

Crypter une chaine de caractères en shell

Shell et commandes GNU

Discussions similaires

Partager

Partager