Accueil > > > TRANSFORMATEUR, HEXA, BINAIRE, STRING
TRANSFORMATEUR, HEXA, BINAIRE, STRING
Information sur la source
Description
Salut ! Voila un script sympa qui permet de passer du texte en : Clair en Binaire Binaire en Clair Clair en Hexadecimale Hexadecimale en Clair Hexadecimale en Binaire Binaire en Hexadecimale
Source
- alias transcar2bin {
- unset %fin
- unset %a
- set %phrase $1-
- set %imax $calc($len(%phrase))
- while (%imax != %a) {
- set %s $calc(1+%a)
- set %char $mid(%phrase,%s,1)
- set %res $base($asc(%char),10,2)
- while ($len(%res) < 8) {
- set %res 0 $+ %res
- }
- set %fin %fin $+ $chr(160) $+ %res
- inc %a
- }
- msg # %fin
- echo --END--
- }
-
- alias transbin2car {
- set %a 0
- set %i 0
- unset %fin
- set %phrase $1-
- set %imax $int($calc($calc($len(%phrase)/8)+1))
- if (%imax != 1) {
- while (%imax > %a) {
- set %s $calc(1+%a)
- set %bin $gettok(%phrase,%a,160)
- set %res $base(%bin,2,10)
- if (%res == 32) {
- set %res 160
- }
- set %fin %fin $+ $chr(%res)
- inc %a
- }
- }
- else {
- set %fin $chr($base(%phrase,2,10))
- }
- set %del $left(%fin,1)
- set %fin $remove(%fin,%del)
- msg # %fin
- echo --END--
- }
-
- alias transcar2hexa {
- unset %fin
- unset %a
- set %phrase $1-
- set %imax $calc($len(%phrase))
- while (%imax != %a) {
- set %s $calc(1+%a)
- set %char $mid(%phrase,%s,1)
- set %res $base($asc(%char),10,16)
- while ($len(%res) < 2) {
- set %res 0 $+ %res
- }
- set %fin %fin $+ $chr(160) $+ %res
- inc %a
- }
- msg # %fin
- echo --END--
- }
-
- alias transhexa2car {
- set %a 0
- set %i 0
- unset %fin
- set %phrase $1-
- set %imax $int($calc($calc($len(%phrase)/2)+1))
- if (%imax != 1) {
- while (%imax > %a) {
- set %s $calc(1+%a)
- set %bin $gettok(%phrase,%a,160)
- set %res $base(%bin,16,10)
- if (%res == 32) {
- set %res 160
- }
- set %fin %fin $+ $chr(%res)
- inc %a
- }
- }
- else {
- set %fin $chr($base(%phrase,16,10))
- }
- set %del $left(%fin,1)
- set %fin $remove(%fin,%del)
- msg # %fin
- echo --END--
- }
-
- alias transhexa2bin {
- set %a 0
- set %i 0
- unset %fin
- set %phrase $1-
- set %imax $int($calc($calc($len(%phrase)/3)+1))
- if (%imax != 1) {
- while (%imax > %a) {
- set %s $calc(1+%a)
- set %bin $gettok(%phrase,%s,160)
- set %res $base(%bin,16,2)
- while ($len(%res) < 8) {
- set %res 0 $+ %res
- }
- set %fin %fin $+ $chr(160) $+ %res
- inc %a
- }
- }
- else {
- set %fin $base(%phrase,16,2)
- }
- msg # %fin
- echo --END--
- }
-
- alias transbin2hexa {
- set %a 0
- set %i 0
- unset %fin
- set %phrase $1-
- set %imax $int($calc($calc($len(%phrase)/9)+1))
- if (%imax != 1) {
- while (%imax > %a) {
- set %s $calc(1+%a)
- set %bin $gettok(%phrase,%s,160)
- set %res $base(%bin,2,16)
- while ($len(%res) < 2) {
- set %res O $+ %res
- }
- set %fin %fin $+ $chr(160) $+ %res
- inc %a
- }
- }
- else {
- set %fin $base(%phrase,2,16)
- }
- msg # %fin
- echo --END--
- }
-
- menu channel {
- Transformateur v1.3
- .Clair ---> Binaire:/transcar2bin $?="Entrez votre texte en clair"
- .Binaire ---> Clair:/transbin2car $?="Entrez votre texte en binaire"
- .Clair ---> Hexadecimale:/transcar2hexa $?="Entrez votre texte en clair"
- .Hexadecimale ---> Clair:/transhexa2car $?="Entrez votre texte en hexadécimal"
- .Hexadecimale ---> Binaire:/transhexa2bin $?="Entrez votre texte en hexadécimal"
- .Binaire ---> Hexadecimale:/transbin2hexa $?="Entrez votre texte en binaire"
- }
alias transcar2bin {
unset %fin
unset %a
set %phrase $1-
set %imax $calc($len(%phrase))
while (%imax != %a) {
set %s $calc(1+%a)
set %char $mid(%phrase,%s,1)
set %res $base($asc(%char),10,2)
while ($len(%res) < 8) {
set %res 0 $+ %res
}
set %fin %fin $+ $chr(160) $+ %res
inc %a
}
msg # %fin
echo --END--
}
alias transbin2car {
set %a 0
set %i 0
unset %fin
set %phrase $1-
set %imax $int($calc($calc($len(%phrase)/8)+1))
if (%imax != 1) {
while (%imax > %a) {
set %s $calc(1+%a)
set %bin $gettok(%phrase,%a,160)
set %res $base(%bin,2,10)
if (%res == 32) {
set %res 160
}
set %fin %fin $+ $chr(%res)
inc %a
}
}
else {
set %fin $chr($base(%phrase,2,10))
}
set %del $left(%fin,1)
set %fin $remove(%fin,%del)
msg # %fin
echo --END--
}
alias transcar2hexa {
unset %fin
unset %a
set %phrase $1-
set %imax $calc($len(%phrase))
while (%imax != %a) {
set %s $calc(1+%a)
set %char $mid(%phrase,%s,1)
set %res $base($asc(%char),10,16)
while ($len(%res) < 2) {
set %res 0 $+ %res
}
set %fin %fin $+ $chr(160) $+ %res
inc %a
}
msg # %fin
echo --END--
}
alias transhexa2car {
set %a 0
set %i 0
unset %fin
set %phrase $1-
set %imax $int($calc($calc($len(%phrase)/2)+1))
if (%imax != 1) {
while (%imax > %a) {
set %s $calc(1+%a)
set %bin $gettok(%phrase,%a,160)
set %res $base(%bin,16,10)
if (%res == 32) {
set %res 160
}
set %fin %fin $+ $chr(%res)
inc %a
}
}
else {
set %fin $chr($base(%phrase,16,10))
}
set %del $left(%fin,1)
set %fin $remove(%fin,%del)
msg # %fin
echo --END--
}
alias transhexa2bin {
set %a 0
set %i 0
unset %fin
set %phrase $1-
set %imax $int($calc($calc($len(%phrase)/3)+1))
if (%imax != 1) {
while (%imax > %a) {
set %s $calc(1+%a)
set %bin $gettok(%phrase,%s,160)
set %res $base(%bin,16,2)
while ($len(%res) < 8) {
set %res 0 $+ %res
}
set %fin %fin $+ $chr(160) $+ %res
inc %a
}
}
else {
set %fin $base(%phrase,16,2)
}
msg # %fin
echo --END--
}
alias transbin2hexa {
set %a 0
set %i 0
unset %fin
set %phrase $1-
set %imax $int($calc($calc($len(%phrase)/9)+1))
if (%imax != 1) {
while (%imax > %a) {
set %s $calc(1+%a)
set %bin $gettok(%phrase,%s,160)
set %res $base(%bin,2,16)
while ($len(%res) < 2) {
set %res O $+ %res
}
set %fin %fin $+ $chr(160) $+ %res
inc %a
}
}
else {
set %fin $base(%phrase,2,16)
}
msg # %fin
echo --END--
}
menu channel {
Transformateur v1.3
.Clair ---> Binaire:/transcar2bin $?="Entrez votre texte en clair"
.Binaire ---> Clair:/transbin2car $?="Entrez votre texte en binaire"
.Clair ---> Hexadecimale:/transcar2hexa $?="Entrez votre texte en clair"
.Hexadecimale ---> Clair:/transhexa2car $?="Entrez votre texte en hexadécimal"
.Hexadecimale ---> Binaire:/transhexa2bin $?="Entrez votre texte en hexadécimal"
.Binaire ---> Hexadecimale:/transbin2hexa $?="Entrez votre texte en binaire"
}
Conclusion
A mettre dans les Remote (ALT + R)
Voili voilou ;)
a+
Historique
- 14 décembre 2005 18:39:50 :
- Aucune modification importante ^^
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Les Bases de l'IRC [ par Crazyht ]
Salut les enfants, Bon comme vous le savez je passe une bonne partie de mon temps libre sur le serveur de Kheops.Votre site me semble tres utile mais
Script sur autre client IRC [ par Jo ]
Salut,Bon ok c'est cool mais comme je disait l'autre fois a jesais plus qui, ok mirc utilise sont propre langage de script, mais il existe d'autre cli
IRC [ par Slashgo ]
Ben en faite je voudrais juste savoir si il existe les fonction irc pour asp. j'ai vu qu'elles existe avec asp. Si oui, pourriez vous me dire où trouv
C'est quoi IRC [ par Jackboy ]
C'est quoi IRC, sa mange quoi en hiver et ce que sa fait ici ! <img src=/i
IRC à partir d'un site [ par PiraTmaT ]
Lu, connaissez vous un script php, cgi, java ou autre permettant de se connecter à partir d'un site web à un chat hébergé sur un serveur irc ? Merci d
client irc [ par intello2001 ]
je veut faire un client IRC mais je coné pas les commande de conexion : kan on se conecte a un server.
Enregistrer un chan IRC sous Quakenet [ par Yana ]
Salut a tous !G une question qui est sans doute stupide mais comment sous quakenet créer un chan et y administrer un bot ? COmment me configurer ?
Tout sur l'IRC, la sécurité... [ par SornDrixer ]
Voila mon site, qui n'est pas encore tout à fait fini mais qui est deja bien complet.Pour ceux qui veulent débuter dans l'IRC, ou tout simplement affi
Serveur IRC [ par Delirium ]
Hello :)J'ai crée un nouveau petit reseau IRC dont le but est^la convivialité !!pour le moment il n'est pas encore "super" fréquanté mais avec des gen
IRC : Ile de la Réunion [ par i0Lo ]
La magnifique ile de la Réunion a enfin son IRCirc.poussy-chat.com:6667 Tapez : /server irc.poussy-chat.comou chattez depuis notre site : http://www.p
|
Derniers Blogs
PARUTION DE MON LIVRE SUR WPF 4PARUTION DE MON LIVRE SUR WPF 4 par odewit
La 2e édition de mon livre sur WPF sort aujourd'hui en version numérique et lundi en version papier :-)
L'ouvrage présente de façon approfondie les fonctionnalités de WPF 4 : graphisme 2D et 3D, animation, multimédia, interfaces utilisateur, databind...
Cliquez pour lire la suite de l'article par odewit EDM : COMMENT UTILISER L'HORIZONTAL ENTITY SPLITTINGEDM : COMMENT UTILISER L'HORIZONTAL ENTITY SPLITTING par Matthieu MEZIL
Une des raisons pour lesquelles j'adore l'Entity Framework est la puissance de son mapping. Beaucoup de développeurs pour ne pas dire la plus part n'en n'ont pas conscience. Pour rappel, j'ai réalisé des videos (en anglais) sur le mapping . Certains scena...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WP7DEV][REACTIVE] RENDRE LES REACTIVE EXTENSIONS PLUS STABLES[WP7DEV][REACTIVE] RENDRE LES REACTIVE EXTENSIONS PLUS STABLES par jay
Lorsque l'on développe des applications .NET, les exceptions non gérées dans des threads ont le désagréable effet de terminer le processus courant.
Dans l'exemple suivant.......(read more) ...
Cliquez pour lire la suite de l'article par jay WINDBG / SOS / PSSCOR2 : FAILED TO LOAD DATA ACCESS DLL (MSCORDACWKS)WINDBG / SOS / PSSCOR2 : FAILED TO LOAD DATA ACCESS DLL (MSCORDACWKS) par coq
Ceux d'entre nous qui analysent des dumps d'applications .NET (notamment ceux créés via WER après un crash) en dehors de l'environnement initial ont probablement tous été confrontés au moins une fois au message suivant, à la saisie d'une commande SOS ...
Cliquez pour lire la suite de l'article par coq
Logiciels
Microsoft Office (2010)MICROSOFT OFFICE (2010)Microsoft Office 2010 offre de nouveaux moyens flexibles et puissants pour optimiser votre travai... Cliquez pour télécharger Microsoft Office SeaMonkey (2.0.7)SEAMONKEY (2.0.7)Le projet SeaMonkey est issu d'un effort communautaire pour developper une application tout en un... Cliquez pour télécharger SeaMonkey Safari (5.0.2)SAFARI (5.0.2)Le navigateur d'Apple a lui aussi été mis à jour, aussi bien dans sa mouture Windows que celle po... Cliquez pour télécharger Safari Mozilla FireFox (4.0 béta 5)MOZILLA FIREFOX (4.0 BéTA 5)Firefox 4.0 béta 5
L'une des nouveautés visibles les plus attendues réside sans doute dans l'a... Cliquez pour télécharger Mozilla FireFox Mozilla Firefox (3.6.9)MOZILLA FIREFOX (3.6.9)Firefox 3.6.9 corrige les problèmes suivants :
* Introduced support for the X-FRAME-OPTION... Cliquez pour télécharger Mozilla Firefox
|