1. Accueil
  2. Tous les snippets
  3. Snippets IRC
  4. Protection efficace pour mirc

Protection efficace pour mirc

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 086 fois - Téléchargée 27 fois

Commenter

Contenu du snippet

Présentation:
Ce code vous permet de faire un gestion de clé, j'entend par cela que vous pouvez par éxemple locker l'accés de votre mIRC trés éfficacement !
Voici mon code:

Source / Exemple : 


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

Conclusion :


Voici comment en quelques lignes de code vous arrivez à faire une protection compléte . Mais biensur mIRC n'est jamais sur à 100 % Vous aurez toujours des lacunes .
Pour casser la protection de mon script c'est simple, mais trouvez et ne le dites pas dans les commentaires ca serai béte.. ;-)

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
117
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
8 décembre 2003
bhaa disons que c'est à but informatif ;)
Signaler
Messages postés
117
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
8 décembre 2003
lol vi :)
Signaler
Messages postés
2084
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
 8
Bonne source, dommage que mIRC en propose déjà un tout aussi bien :(
Signaler
Messages postés
117
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
8 décembre 2003
C'est kom si tu disé à koi ca sert de fer un script yena dja un !!
Signaler
Messages postés
117
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
8 décembre 2003
Arff PACKE CELUI LA EST PERSONALISABLE !!!
Afficher les 7 commentaires
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 (DrAzZiK69)