Remigio Radio Flip, 72.8 | si ca peut t'aider, j'avais fait une fonctionne de cryptage sous mIRC
je me rappelle que certain caractères foutaient la merde
voici le code, faut l'adapter si ca peut t'aider.
Code :
- ;===Cryptage des données===
- alias cr {
- var %i = 1 , %k = 1 , %tmp, %chaine, %code
- if (!%cle) { set %cle $$?"Entrez la clé privée" }
- %chaine = $1-
- while ( $len(%chaine) >= %i ) {
- %tmp = $calc( $asc($mid(%chaine , %i , 1 )) + $asc($mid(%cle , %k , 1 )) +1 )
- If ( %tmp > 255 ) { %tmp = %tmp - 255 }
- If ( %tmp < 0 ) { %tmp = %tmp - 255 }
- inc %k
- If ( %k > $len(%cle) ) { %k = 1 }
- %code = %code $+ $chr(%tmp)
- inc %i
- }
- %code = ¤ $+ %code
- say %code
- echo %echolorme %chaine
- }
- ;===DeCryptage des données===
- alias dcr {
- var %i = 1 , %k = 1 , %tmp, %chaine, %code
- %code = $mid($2-,2,$len($2-))
- while ( $len(%code) >= %i ) {
- %tmp = $calc( $asc($mid(%code , %i , 1 )) - $asc($mid(%cle , %k , 1 )) - 1 )
- If ( %tmp > 255 ) { %tmp = %tmp - 255 }
- If ( %tmp < 0 ) { %tmp = %tmp + 255 }
- inc %k
- If ( %k > $len(%cle) ) { %k = 1 }
- If ( %tmp == 32 ) { %tmp = 0160 }
- %chaine = %chaine $+ $chr(%tmp)
- inc %i
- }
- echo $1 %echolor %chaine
- }
- ;===Détection du texte crypté et décryptage===
- Off *:TEXT:¤*:#:{
- dcr # $1-
- }
- ;===Couleur de l'echo===
- alias echolor {
- if ($1 == $null ) {
- set %echolor $+ $$?"Choisissez le numéro de la couleur de l'echo"
- }
- else {
- set %echolor $+ $1
- }
- if ($2 == $null ) {
- set %echolorme $+ $$?"Choisissez le numéro de la couleur de votre echo"
- }
- else {
- set %echolorme $+ $2
- }
- }
- ;===Définition de la clé===
- alias setcle {
- if (!$1) {
- set %cle $$?"Définissez la clé privée"
- }
- else {
- set %cle $1
- }
|
|