begin process at 2012 02 08 18:51:00
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > PROTECTION EFFICACE POUR MIRC

PROTECTION EFFICACE POUR MIRC


 Information sur la source

Note :
Aucune note
Catégorie :AddOns Niveau :Débutant Date de création :01/09/2003 Date de mise à jour :01/09/2003 20:58:47 Vu :4 093

Auteur : DrAzZiK69

Ecrire un message privé
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

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

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

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


 Sources du même auteur

$ALLDATE - EQUVALENT A $FULLDATE EN FR
Source avec Zip CRÉEZ VOS SCRIPTS FACILEMENT ! "MIRC EDITOR"
L'HEURE ET AUTRES TRUCS DANS LA TITLEBAR AUTO..
PETIT ASV SIMPLE AVEC CONFIG
PETITS PROGRAMMES DE WINDOWS QUAND VOUS AVEZ PLUS RIEN À AJO...

 Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims
PROXY&SOCKS SCANNER+LEECHER par independentt
GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666
AUTOJOIN HTABLE MULTISERVER par doob666
TCL - AJOUT SUPPRESSION DE LOGS par Atok

Commentaires et avis

Commentaire de DrAzZiK69 le 01/09/2003 21:00:30

Please mettez moi 2/3 commentaires ca serai cool ;)

Commentaire de koko le 02/09/2003 11:23:22

MAIS pourquoi utilise un systeme de passe alors que mirc en propose un ???

Commentaire de DrAzZiK69 le 02/09/2003 11:56:37

Arff PACKE CELUI LA EST PERSONALISABLE !!!

Commentaire de DrAzZiK69 le 02/09/2003 11:57:06

C'est kom si tu disé à koi ca sert de fer un script yena dja un !!

Commentaire de SornDrixer le 02/09/2003 13:54:18 administrateur CS

Bonne source, dommage que mIRC en propose déjà un tout aussi bien :(

Commentaire de DrAzZiK69 le 02/09/2003 16:38:35

lol vi :)

Commentaire de DrAzZiK69 le 02/09/2003 16:39:10

bhaa disons que c'est à but informatif ;)

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,557 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales