PROTECTION EFFICACE POUR MIRC

;
;
; Explications:
;  Setter la clé: /Setkey <Last key> <New key>
;    Par défaut 1
;  Vérifier la clé: $Getkey(<Clé>)
;    Retourne ok si juste
;    Retourne err si faux
;
;

Alias getkey $iif($rc4($key,$1) == NodP, return ok, return err)
Alias setkey {
  if ($getkey($1) == ok) {
    if ($2 != $null) .alias key return $rc4(NodP,$2) | echo -a Change succefull
    else echo -a Error: Syntax /SetKey <Last key> <New key>
  }
  else echo -a Error !
}
; A Partir de maintenant c'est l'alias de BombStrike qui joue
; Sans cette alias L'encryption n'aura pas lieu
; Et donc plus de protection
; Merci BombStrike pour le $rc4
alias rc4 {
  if (!$2) halt
  if ($hget(rc4)) hfree rc4
  if ($hget(rc4arr)) hfree rc4arr
  hmake rc4 255
  hmake rc4arr 255
  if (!$2) halt
  var %a = $len($2)
  var %i = 0
  while ( %i <= 255 ) {
    hadd rc4arr %i %i
    hadd rc4 %i $asc($mid($2,$calc($calc(%i % %a) + 1),1))
    inc %i
  }
  var %i = 0
  var %j = 0
  while ( %i <= 255 ) {
    var %k = $calc($calc(%k + $hget(rc4arr,%i) + $hget(rc4,%i)) % 256)
    var %m = $hget(rc4arr,%i)
    hadd rc4arr %i $hget(rc4arr,%k)
    hadd rc4arr %k %m
    inc %i
  }
  var %i = 0
  var %k = 0
  var %b = 1
  while ( %b <= $len($1) ) {
    var %i = $calc($calc(%i + 1) % 256)
    var %k = $calc($calc(%k + $hget(rc4arr,%i)) % 256)
    var %t = $calc($calc($hget(rc4arr,%i) + $hget(rc4arr,%k)) % 256)
    var %n = $hget(rc4arr,%i)
    hadd rc4arr %i $hget(rc4arr,%k)
    hadd rc4arr %k %n
    var %y = $hget(rc4arr,%t)
    var %rc4 = %rc4 $+ $replace($chr($xor($asc($mid($1,%b,1)),%y)),$chr(32),$chr(10))
    inc %b
  }
  return $replace(%rc4,$chr(10),$chr(32))
  hfree rc4
  hfree rc4arr
}
On *:load:{ .alias key return $rc4(NodP,1) }

; Exemple de script éxploirant ce systéme:

On 1:START: $iif($getkey($$?="Clé de sécurité:") == ok, echo -a Bonjour bienvenu(e) sur X.. Script, exit)