Petit alias de creeptage

Commenter

Contenu du snippet

voila un petit alias de criptage a partir dun mot de passe, nayant pas eu envie de scripter comme un barbare avec des $replaces, j'ai du mamenager mon propre replace, remarque : etant fleymar j'ai eu la flemme de me demerder pour que le script prenne en compte les MAJ ....

Source / Exemple : 


alias creept {
  ; syntaxe $creept(valeur,mot de passe,N) | N==1 : criptage , N==2 : decriptage
  var %akm.creept.psw = $len($2), %i 0, %akm.creept.lenchr = $ceil($calc(94 / %akm.creept.psw)), %akm.creept.end = $1
  while (%i < %akm.creept.psw) {
    var %akm.creept.letter = $mid($2,$calc(%i +1),1), %akm.creept.letter.prev = $mid($2,$calc(%i -1),1)
    var %v 0
    while ((%v < %akm.creept.lenchr) && ($calc(%akm.creept.lenchr * %i) <= 94)) {
      var %z 0
      unset %akm.creept.chrend
      while (%akm.creept.chrend == $null) {
        var %akm.creept.chr = $chr($calc((32 + ( %akm.creept.lenchr * %i )) + %v )), %akm.creept.chrend = $chr($calc($ceil($calc( (2 * (%akm.creept.lenchr * %i)) + $ceil($calc( (%akm.creept.lenchr / ($asc(%akm.creept.letter) - 96)) * 10)) )) + (%v + %z))))
        var %akm.creept.chrprec = %akm.creept.chrprec $+ %akm.creept.chrend
        inc %z
      }
      inc %v    
    }
    inc %i
  }
  var %akm.creept.abc = 32, %d 1
  while (%akm.creept.abc <= 126) {
    var %akm.creept.abcvar = $left(%akm.creept.chrprec $+ ,1)
    if ($3 == 1) { hadd -m akm.creept $chr(%akm.creept.abc) %akm.creept.abcvar }
    if ($3 == 2) { hadd -m akm.creept %akm.creept.abcvar $chr(%akm.creept.abc) }
    var %akm.creept.chrprec = $right(%akm.creept.chrprec $+ ,$calc($len(%akm.creept.chrprec) -1))
    inc %akm.creept.abc
  }
  while (%d <= $len($1)) {
    var %akm.creept.curent = $hget(akm.creept,$mid($1,%d $+ ,1))
    if ($asc($mid($1,%d,1)) == 32) { var %akm.creept.curent = $chr(32) }
    if (%d == 1) { var %akm.creept.end = %akm.creept.curent $+ $mid($1,$calc(%d +1)) }
    else { var %akm.creept.end = $mid(%akm.creept.end $+ ,1,$calc(%d -1)) $+ %akm.creept.curent $+ $mid($1,$calc(%d +1)) }    
    inc %d
  }
  hfree akm.creept
  return %akm.creept.end
}

Conclusion :


syntaxe $creept(valeur,mot de passe,N) | N==1 : criptage , N==2 : decriptage

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Beyond_The_Grave)