Mirc cryptor un script pour chiffrer les discutions

0/5 (2 avis)

Vue 6 846 fois - Téléchargée 167 fois

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

}

Codes Sources

A voir également

Ajouter un commentaire Commentaires
ChAnG-Fu
Messages postés
165
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
1 juillet 2006

17 juin 2006 à 20:40
Trop de variables....
Encore une dll pour marcher le travail...
Bref j'en voi pas l'utiliter :)
Un bon cracker te crack ton code en utilisant la même dll que toi
Tu devrais plutot faire un algorythme de codage/decodage mais sur ce terrain glissant bonne chance a toi.
RCA ArKanis
Messages postés
1287
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
21 février 2009

2 juin 2006 à 20:13
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)
}

devient :
notice %nick2 $iif(%tcrtpy2,$+(TCRYPTOK,:,%CRYPTORX),Désolé mais nous ne voulons pas que vous participIez à notre discution.)

les $true, tu peux enlever, et les $false, tu mets if (!condition)
c'est pas tout à fait la même chose, mais c'est en général très pratique

Beaucoup trop de variables à mon goût :/

Où est la documentation ? Notice ? On doit de débrouiller nous même ? :x

alias §P {
set %chan2 $chan
set %chan $chan
...
}
dans un alias, $chan n'est pas vide en général ? Tu veux parler de $active ?
Tu peux utiliser §P $chan pour mettre un argument dans l'alias (que tu récupères avec $1)
exemple :
/§P #tonchan

et : alias §P { msg $$1 ... }

Pas testé, mais le code pourrait être mieux codé

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.