- ;
- ;
- ; 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)
;
;
; 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)