Html to javascript unescape (encodeur de code html et décodeur)

Description

Ben mon prog. permet de convertir un code HTML en un Javascript de type :

<Script Language='Javascript'>document.write(unescape(' %.......'));</Script>

et vice-versa... c'est mon premier prog. delphi alors si vous avez des conseils pour optimiser ce code, ils seront plus que les bienvenus...
Pour la convertion de HextoDec et DectoChr, j'ai utilisé une source de ce serveur...

Nombre de petits copieurs de page web n'arrivent pas à comprendre ce "Cryptage" alors ben j'ai voulu en faire un prog. car à la main c pa cool...

Aprés essais je me suis rendu compte que pour un texte un peu long, ben sa code qu'une partie, je vais essayer de corriger sa mais je sais pas trop comment, si vous avez des idées...

Source / Exemple :


for i:=1 to Length(memo1.Lines.Text) do
begin
toc:=toc+'%'+IntToHex(Ord(Byte(memo1.Lines.text[i])),2);
end
memo3.Lines.text := toc ;

Memo2.Lines.text := '<Script Language=''Javascript''>document.write(unescape('''+Memo3.Lines.Text+'''));</Script>' ;

Conclusion :


Pour des améliorations (a part des optimisations) sa attendra que je maitrise un peu mieux le Delphi, et que je fasse d'abord la convertion en Delphi de ma source VB (Chat sécurisé)

Aprés sa je pense peut-être faire une source qui pourrait Crypter les codes HTML+Javascript et les compresser mais c pas pour demain...

Codes Sources

A voir également

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.