- ; Codé par k-e-f-o-u
- ; Permet de crypter vos phrases par une clef aléatoire
- ; Vous ne pourrez décrypter sans la clef qui se trouve entre les \ \
- ; Usage: //echo -a $crypt(phrase)
- ; $decrypt(phrase,clef)
-
- /crypt {
- var %i = 1, %retour = $null
- if (!$2) { %rand = $rand(1,150) }
- else { %rand = $2 }
- if (%rand != 18) {
- while (%i <= $len($1)) {
- if ($mid($1,%i,1) == $chr(32)) { set %retour %retour $+ $chr(251) }
- else { set %retour %retour $+ $chr($calc($asc($mid($1,%i,1)) + %rand)) }
- inc %i
- }
- }
- if ($len(%retour) != $len($decrypt(%retour,%rand))) || ($decrypt(%retour,%rand) != $1) { return $crypt($1) }
- else { return \ $+ %rand $+ \ %retour }
- }
- /decrypt {
- if (!$2) { return Syntaxe: $chr(36) $+ decrypt(phrase,clef) | halt }
- var %i = 1, %retour = $null
- while (%i <= $len($1)) {
- if ($mid($1-,%i,1) == $chr(251)) { set %retour %retour $chr(32) }
- else { set %retour %retour $+ $chr($calc($asc($mid($1-,%i,1)) - $2)) }
- inc %i
- }
- return %retour
- }
; Codé par k-e-f-o-u
; Permet de crypter vos phrases par une clef aléatoire
; Vous ne pourrez décrypter sans la clef qui se trouve entre les \ \
; Usage: //echo -a $crypt(phrase)
; $decrypt(phrase,clef)
/crypt {
var %i = 1, %retour = $null
if (!$2) { %rand = $rand(1,150) }
else { %rand = $2 }
if (%rand != 18) {
while (%i <= $len($1)) {
if ($mid($1,%i,1) == $chr(32)) { set %retour %retour $+ $chr(251) }
else { set %retour %retour $+ $chr($calc($asc($mid($1,%i,1)) + %rand)) }
inc %i
}
}
if ($len(%retour) != $len($decrypt(%retour,%rand))) || ($decrypt(%retour,%rand) != $1) { return $crypt($1) }
else { return \ $+ %rand $+ \ %retour }
}
/decrypt {
if (!$2) { return Syntaxe: $chr(36) $+ decrypt(phrase,clef) | halt }
var %i = 1, %retour = $null
while (%i <= $len($1)) {
if ($mid($1-,%i,1) == $chr(251)) { set %retour %retour $chr(32) }
else { set %retour %retour $+ $chr($calc($asc($mid($1-,%i,1)) - $2)) }
inc %i
}
return %retour
}