Convertion hexa/texte :)

Commenter

Contenu du snippet

Vous me direz... Quel intéret ? :)
Aucun, mais bon, c pour le fun quoi :))

Source / Exemple : 


alias hexa {
  ; Initialisation boucle
  set %txttc $strip($1-)
  set %lent $len(%txttc)
  set %count 0
  set %crypt $null

  ; Debut boucle
  :gcloop
  inc %count
  set %tch $mid(%txttc,%count,1)
  set %crypt %crypt $base($asc(%tch),10,16)
  if ( %count < %lent ) goto gcloop
  set %hexresult $lower(%crypt)
}

alias stdc {
  ; Initialisation boucle
  set %txttc $strip($1-)
  set %lent $len(%txttc)
  set %count 0
  set %dcrypt $null

  :gcloop
  set %tnb $mid(%txttc,%count,3)
  set %tdc $base(%tnb,16,10)
  set %tch $chr(%tdc)
  if ( %tdc == 32 ) set %tch -
  set %dcrypt %dcrypt $+ %tch
  inc %count
  inc %count
  inc %count
  if ( %count < %lent ) goto gcloop
  set %stdresult %dcrypt
}

alias mx {
  hexa $1-
  msg $chan %hexresult
}

alias dc {
  stdc $1-
  msg $chan %stdresult
}

alias mxl {
 hexa $1-
 echo -a %hexresult
}

alias dcl {
  stdc $1-
  echo -a %stdresult
}

Conclusion :


donc :
/mx Texte : écrire en hexa sur un chan
/dc Hexa : Traduire de l'hexa sur un chan
/mxl Texte : echo d'un texte en hexa
/dcl Hexa : echo de la conversion hexa/texte :)

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