Mirc cryptor un script pour chiffrer les discutions

Télécharger le projet
Commenter

Description

... j'ai fait sa ;o) y a déjà un bon moment
faudrai encore l'ameliorer :)
hhhhaa.. j'esprére un jour que je v réussir a finir un de mes script ;à)

a savoir on dit pas crupter on dit chiffrer ! :)

Source / Exemple : 


;;1.0;;6
; **************************
; *      Cs CrYpToR 1.0    *           
; * par Syn- 2004/2005     * 
; * Otn-scripting          * 
; **************************
; Utilisation : 
; tapez /§M password   
;-pour débuter une conversation crypter
; taper /§§ texte 
;-pour répondre a la personne qui vous parle 
; tapez /§P nick pour participer a la discution 
; taper /§menu pour voir le récapitulatif

menu menubar,status,channel {
  .-
  [Crypto Script]
  .Démarrer:/§M
  .Participer:/§P
}

alias  §M {
  set %chan $chan
  set %RON 1
  set %TCOK 1
  set %var1 $md5($input(Démarrer une conversation Crypter $crlf $crlf Tapez votre mot de passe ,teo,[!] Crypto Script Demande ),0)
  set %CRYPTORX $encode($upper(%var1),mt)
  me [§][!CRYPTO] 
}

alias  §§ {
  set %TEXTCT $dll(./Dll/blowfish.dll,Encrypt,$decode(%CRYPTORX,mt) $1-$0)
  msg %chan $+([§¤],[,$mid(%TEXTCT,5,$calc($len(%TEXTCT) - 4)),])
  echo 5 %chan :: $1-$0
}
alias  §menu {
  set %TCRYPT 0
  .signal -n TCRYPT 
}
alias  §P {
  set %chan2 $chan
  set %chan $chan
  set %RON 2
  msg $chan [Cryptor]:Who's Master ?
}

on 1:SIGNAL:TCRYPT: {
  if %TCRYPT == 3 {
    set %null1 $input( $crlf Vous avez Obtenu le Passe  $crlf $crlf Code:  $crlf %CRYPTORX $crlf $crlf  Vous pouvez Débuter la conversation $crlf  $crlf /§§ texte  $crlf pour envoyer le texte Crypter sur le channel  $crlf ,to,[Alucard-] Crypto Script Info) 
  }

  if %TCRYPT == 0 {
    set %TCRYPT0  $input([Cs CrYpToR 1.0a] & [Open-Team 2k10] $crlf $crlf Vous présente : $crlf $crlf [Un Module de Chronos Script 1.0a] $crlf $crlf Alucard- : merci d'utiliser un de mes scripts $crlf Si ce script rencontre des bugs ou que $crlf vous voulez comprendre son fonctionement $crlf ou me faire pare de vos idées $crlf envoyez moi un mail a noph4@free.fr $crlf ou retrouvez moi sur le server Mytux $crlf IRC.RYO.MYTUX.NET le channel #MYTUX $crlf $crlf -[ A lire ]- $crlf $crlf L'utilisation : $crlf ; tapez /§M password $crlf ;-pour débuter une conversation crypter $crlf ; taper /§§ texte $crlf ;-pour répondre a la personne qui vous parle $crlf ; tapez /§P pour participer à la discution $crlf /§menu pour revoir les commandes a tout moment $crlf ou faite un petit tour dans le script $crlf je suis sure qu'il y a un récapitulatif,to,[Alucard-] Crypto Script First Install) 
  }

  if %TCRYPT == 1 {
    set %TCRYPT1  $input(nom : %nick $crlf veut vous parlez en T'Chat Crypter en mode Statique $crlf  Vous voulez commencer la discution ? $crlf ,ty,[!] Crypto Script Demande de %nick )
    if %TCRYPT1 == $true { notice %nick [§][!NOPSW]
    }
    if %TCRYPT1 == $false { msg %chan non merci %nick je ne veu pas participer a votre discution [thx] 
    } 
  }

  if %TCRYPT  == 2 {
    set %TCRYPT2  $input(nom : %nick2  $crlf Demande a pouvoir décrypter votre Conversation $crlf lui envoyer le passe ? $crlf ,ty,[!] Crypto Script Config [ %nick2 ])
    if %TCRYPT2 == $false {
      notice %nick2 Désolé mais nous ne voulons pas que vous participez a notre discution .  
    } 
    if %TCRYPT2 == $true {
      notice %nick2 $+(TCRYPTOK,:,%CRYPTORX) 
    } 
  }
}
on 1:TEXT:[Cryptor]*:#: {
  set %chan2 $chan
  set %nick2 $nick
  if %RON == 1 {
    set %TCRYPT 2
    .signal -n TCRYPT
  }
}
on 1:ACTION:[§]*:#: {
  set %text $mid($1-,5,7)
  set %chan $chan
  set %nick $nick
  if  %text == !CRYPTO {
    set %RON 2
    set %TCRYPT 1
    .signal -n TCRYPT

  }
}

on 1:NOTICE:*NOPSW*:?: {
  set %chan2 $chan
  set %nick2 $nick
  if %RON == 1 {
    set %TCRYPT 2
    .signal -n TCRYPT
  }
}

on 1:DNS: {
  .set %rad $dns(1).ip
}

on 1:NOTICE:TCRYPTOK*:?: {
  set %CRYPTORX $mid($1-,10,$calc($len($1-) - 9))
  set %TCOK 1
  set %TCRYPT 3
  .signal -n TCRYPT
}

on 1:TEXT:[§¤]*:#: {
  set %nick0 $nick
  set %CTEXTC $mid($1-,6,$calc($len($1-) - 6))
  if %TCOK == 1 { 
    set %DLLD $dll(./Dll/blowfish.dll,Decrypt,$decode(%CRYPTORX,mt) %CTEXTC)
    set %RDECOD $mid(%DLLD,5,$calc($len(%DLLD) - 4))
    echo 5 %chan %nick0 : %RDECOD [repondre /§§ message ]
  } 
}
on 1:load: {
  echo 5 .::Cs CrYpToR ScRiPt [ON] ::.. 
  set %TCRYPT 0 
  .signal -n TCRYPT

}
Télécharger le projet

Codes Sources

A voir également

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 (synsun)