MIRC CRYPTOR UN SCRIPT POUR CHIFFRER LES DISCUTIONS

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

}