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

Soyez le premier à donner votre avis sur cette source.

Vue 11 396 fois - Téléchargée 487 fois

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

Ajouter un commentaire Commentaires
Messages postés
24
Date d'inscription
dimanche 15 juin 2003
Statut
Membre
Dernière intervention
27 mars 2005

ce code sert à éviter à ce que l'on te pompe sur ta source html (enfin c'est une méthode assez peu efficace mais sa décourage certaines personnes quand même)
Sinon c'est vrai que le passage par un 3e memo ne sert a rien si ce n'est pour les tests...
Sinon dsl pour ma rapidité de réponse mais je suis en panne de modem (depuis le 11/10 et sa durera juskau ~ le 15/11)
Messages postés
22
Date d'inscription
vendredi 30 juillet 2004
Statut
Membre
Dernière intervention
21 octobre 2004

a quoi ca sert ce code est qu'elle est sont intéret
Messages postés
4
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
13 octobre 2004

euh ... maintenant quel est l'interret de remplir le memo3 alors que tu mets la mm chose dans le mémo 2 encadré de balise dans la ligne suivante ... tu peux supprimer l'intervention du memo3...
Messages postés
24
Date d'inscription
dimanche 15 juin 2003
Statut
Membre
Dernière intervention
27 mars 2005

c'est fait , je m'étais trompé, car j'ai placé les if aprés le for et j'me suis embrouillé
Messages postés
4
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
13 octobre 2004

Euh rien qu'une premiere "amélioration", sort "memo3.Lines.text := toc ;" de la boucle, tu vas constater une accélération d'au moins x10 du temps de "cryptage" ;) (que dis je x15, x20, x !!! en bref tu ralentis considérablement ton prog avec cette ligne dans cette boucle. En effet c une action longue, et en plus inutile dans la boucle.
Afficher les 7 commentaires

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.