begin process at 2010 03 19 01:36:24
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > HTML TO JAVASCRIPT UNESCAPE (ENCODEUR DE CODE HTML ET DÉCODEUR)

HTML TO JAVASCRIPT UNESCAPE (ENCODEUR DE CODE HTML ET DÉCODEUR)


 Information sur la source

Note :
5 / 10 - par 1 personne
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Niveau :Débutant Date de création :09/10/2004 Date de mise à jour :12/10/2004 21:16:09 Vu / téléchargé :8 128 / 338
Auteur : djicfr

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

 Description

Cliquez pour voir la capture en taille normale
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

  • 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>' ; 
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...

 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


 Historique

09 octobre 2004 23:58:51 :
Détection de bug pour txt long
12 octobre 2004 21:16:09 :
erreur dans le prog.

 Sources de la même categorie

Source avec Zip COMBINAISONS DE STRINGS par askil2000
Source avec Zip Source avec une capture RECONNAISSANCE DE CARACTÈRES (OCR) par Bacterius
Source avec Zip Source avec une capture NETTOYAGE AUTOMATIQUE DE NOMS DE FICHIERS par John Dogget
DISTANCE DE JARO-WINKLER par PoulpHunter
Source avec Zip BASE DE DONNÉE WIKI par thithony
Toutes les sources de la catégorie Texte

Commentaires et avis

Commentaire de Delphiprog le 10/10/2004 14:01:08 administrateur CS

A qui peut bien servir un code qui ne fonctionne pas et qui n'est pas documenté ?
Reprend ton code et met des commentaires. Après cela, tu devrais y voir plus clair et voir où sont tes erreurs.
Ce n'est pas un reproche mais un conseil. Cela t'aidera à progresser et tu en tireras tous les bénéfices rapidement. En tous cas, ce sera indispensable avant de faire évoluer ton programme et de lui ajouter des fonctionnalités.

Commentaire de djicfr le 10/10/2004 21:33:25

A qui peut bien servir un code qui ne fonctionne pas et qui n'est pas documenté ?  
> ben a tous ceux qui ont pris la peine de le lire la source, qui connaissent ce principe et qui veulent bien aider un noob à faire ses premiers pas Delphi...
Mon code marche mais pour des textes courts... je ne connais pas s'il ya les restrictions du language Pascal, je n'ai fais qu'un peu de VB et d' asm 16bit (dos) et j'essay d'apprendre par des exemples de sources sans livre ni beaucoup de temps à consacrer...

Pour ce qui est des commentaires, je pense qu'il est tellement court que ce n'est pas vraiment la peine...

Mercie quand même mais ton message ne m'as pas beaucoup aidé sauf peut-être à réaliser que cette source est plus faite pour le forum d'aide qu'autre chose...

PS: Toutes les sources que j'ai faites, je ne les ai que commentées pour diffusion, pour mes sources asm, même de 10ko (c'est beaucoup pour moi) je fait un plan au papier et chaque parties au papier (pendant les cours : chui au lycée) mais jamais de commentaires, au niveau de mes sources les commentaires prennent de la place pour rien, question rabachage j'ai déjà mes profs.

Commentaire de busy999 le 12/10/2004 18:10:10

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.

Commentaire de djicfr le 12/10/2004 20:34:45

c'est fait , je m'étais trompé, car j'ai placé les if aprés le for et j'me suis embrouillé

Commentaire de busy999 le 13/10/2004 13:13:45

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...

Commentaire de code1 le 21/10/2004 19:07:30

a quoi ca sert  ce code est qu'elle est sont intéret

Commentaire de djicfr le 10/11/2004 23:32:22

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)

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

Photo hvar - 2 
  

Visiter la photothèque
 
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,671 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)