begin process at 2010 03 21 13:42:38
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Scripts

 > MIRC CRYPTOR UN SCRIPT POUR CHIFFRER LES DISCUTIONS

MIRC CRYPTOR UN SCRIPT POUR CHIFFRER LES DISCUTIONS


 Information sur la source

Note :
Aucune note
Catégorie :Scripts Classé sous :cryptage, chiffrement, mirc, irc Niveau :Débutant Date de création :29/05/2006 Vu / téléchargé :4 822 / 109

Auteur : synsun

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

 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

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

}


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip RAW MIRC SCRIPT
Source avec Zip MSN MESSENGER SUR IRC SCRIPT POUR COMPRENDRE LE FONCTIONEMEN...

 Sources de la même categorie

Source avec une capture TORRENT VIEWER par kamikaze97441
Source avec Zip Source avec une capture PANNEAU DE CONFIGURATION PS7 par aliassangelius
LA CONFIGURATION D'UN EGGDROP QUI ENLÈVE LES BANS APRÈS X ... par Atok
Source avec Zip Source avec une capture DARKPROJECT - SCRIPT MIRC par Artwerks
Source avec une capture STATISTIQUES DISQUE(S) DUR(S) par Nort0n

 Sources en rapport avec celle ci

TCL - AJOUT SUPPRESSION DE LOGS par Atok
Source avec Zip Source avec une capture DARKPROJECT - SCRIPT MIRC par Artwerks
BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre
Source avec Zip RAW MIRC SCRIPT par synsun
Source avec Zip Source avec une capture IRC PROXY SERVER par zytry

Commentaires et avis

Commentaire de RCA ArKanis le 02/06/2006 20:13:00

    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é

Commentaire de ChAnG-Fu le 17/06/2006 20:40:42

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.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Php + irc = aide :p /!\ HELP ME/!\ [ par gkzor ] Bon voila je cherche un script php. :0)Kan qq1 clic sur un lien sa vas dans on mIrc et sa lui fait taper une phrase(sans kil est rien a toucher ,meme IRC et Zone Alarm [ par link34 ] Bonjour a tous,j'ai un soucis, je viens de m'installer mIRC et j'utilise Zone Alarm.....le problème c'est que Zone alarm refuse que je me connect a un mirc.exe trojan ? [ par HySteriK ] Hello, voila j'explique mon énorme soucis je n'arrive plus à me connecter sous irc j'ai scanner mon pc avec a² Free et il me dit que m Icones [ par SnJaS ] Bonjours, je ne suis pas du tout fort en IRC ou en Scripting. Par contre j'adore ce site car je créais des scripts IRC avec l'aide de camarades. connection d'un mirc sur le réseau irc.voila [ par J4Gu4R ] bonjourj'ai commencé à chatter il y a fort longtemps j'ai laisser tomber pendant 2 ans et demi.j'ai voulu rechatter un petit peu et j'ai remarque ke m Programme irc? [ par beab ] Salut tout le mondeJe suis débutant, et en parcourant ce forum j'ai trouvé qu'il y a quelque réponses contenant des code source (programme).Je connais comment utiliser mon serveur irc 24/7 [ par mohshow ] Bonjour,j'ai creer un serveur irc avec MIRC.Heberger sur mon ordinateur.Mais dès que je fermer le logiciel MIRC, mon serveur est "fermé" (ne fonctionn DNS IRC ?! [ par IluZi0n ] ¤ Bonjour à tous ! Voilà je crée actuelement mon serveur IRC... Mais le s Types d'hébérgements pour IRCd [ par WebiK ] Bonsoir à tous,après avoir parcouru plusieurs tutoriaux sur internet concernant l'installation complète de l'irc, et de ses services, je rencontre que changement de pseudo avec readini [ par doob666 ] Je suis en train de créer un input pour changer de pseudo avec un input mais je rencontre un problème...En effet quand je met ²gnagnagna mon pseudo se


Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

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 : 0,515 sec (3)

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