cs_JLN
Messages postés371Date d'inscriptionsamedi 1 juin 2002StatutMembreDernière intervention17 juin 2013 31 déc. 2011 à 15:48
Bien ephemere... A ce jour ca ne marche plus !
Einstein75
Messages postés16Date d'inscriptionvendredi 6 août 2010StatutMembreDernière intervention 9 juillet 2011 24 déc. 2011 à 11:39
Salut Hackoo !
un Très grand Merci à vous pour votre aide concernant cette astuce d'encodage et de décodage ! j'ai bien compris cette énigme :) et elle est bien Résolue ;) et je vous remercie encore plus surtout pour la source de ShorcutRemover que vous m'avez rendu un très grand service pour que mes dossiers cachés par ces virus dans mon flash disque revoient le jour :)
vous êtes toujours serviable et vous méritiez plus que 10/10.
Merci à vous !
cs_hackoo
Messages postés91Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention29 juillet 2013 22 déc. 2011 à 13:54
@Einstein75
Voila une Fonction pour Encoder en Unicode par exemple:
Dim i,x,a
i = InputBox("Entrer un caractére ou une phrase pour obtenir son Code Unicode Correspondant !")
If i <> "" Then
For x = 1 To Len(i)
If x <> Len(i) Then
a = a & "ChrW(" & AscW(Mid(i,x,1)) & ")" & "&"
Else
a = a & "ChrW(" & AscW(Mid(i,x,1)) & ")"
End if
Next
Inputbox "Le Code Unicode Correspondant pour " & qq(i) & " est:",,a
End If
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function
et pour le décodage c'est très simple il suffit de prendre la chaine transformée et de la mettre dans un simple MsgBox. Voila un Exemple :
j’espère que l'énigme de ces URL est résolue ! (-_°)
Einstein75
Messages postés16Date d'inscriptionvendredi 6 août 2010StatutMembreDernière intervention 9 juillet 2011 22 déc. 2011 à 12:28
@Hackoo Très marrante cette source et j'ai bien aimé l'effet du neige qui tombe dans la page de recherche que je ne connais pas, mais je vous demande s'il y a une Fonction pour encoder et décoder ces URL ça sera plus cool car moi même j'ai besoin de cette astuce pour encoder par exemple mon email et ma page personnel et que j'ai la trouver dans ce lien pour cacher l'URL d'une image.Merci à vous !
jhon512
Messages postés15Date d'inscriptionjeudi 1 décembre 2011StatutMembreDernière intervention24 janvier 2012 22 déc. 2011 à 10:01
Bonjour,
Encoder les chaines en héxa ne sert à rien à part donner la flemme de traduire en url et nous faire télécharger le fichier zip. Un Simple message dans un forum aurais suffit. Merci pour la traduction des liens NHenry. Et cette histoire de spider... lol. C'est plus un snippet qu'un code en plus.
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 21 déc. 2011 à 19:44
D'accord, Dommage, mais tu aurais aussi pu mettre des caractères ou faire en sorte de composer l'URL.
cs_hackoo
Messages postés91Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention29 juillet 2013 21 déc. 2011 à 19:31
@NHenry oui c'est juste pour que aucun spider du net ne peut indexer ces URL LOOOOL ! mais apparemment avec votre commentaire vous avez révéler tout !
Remarque : Je ne postes aucune et jamais des URL dangereuse car Vbfrance je le dois beaucoup ou j'ai appris pas mal de choses ici c'est disons mon Startup en programmation.
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 21 déc. 2011 à 18:55
31 déc. 2011 à 15:48
24 déc. 2011 à 11:39
un Très grand Merci à vous pour votre aide concernant cette astuce d'encodage et de décodage ! j'ai bien compris cette énigme :) et elle est bien Résolue ;) et je vous remercie encore plus surtout pour la source de ShorcutRemover que vous m'avez rendu un très grand service pour que mes dossiers cachés par ces virus dans mon flash disque revoient le jour :)
vous êtes toujours serviable et vous méritiez plus que 10/10.
Merci à vous !
22 déc. 2011 à 13:54
Voila une Fonction pour Encoder en Unicode par exemple:
Dim i,x,a
i = InputBox("Entrer un caractére ou une phrase pour obtenir son Code Unicode Correspondant !")
If i <> "" Then
For x = 1 To Len(i)
If x <> Len(i) Then
a = a & "ChrW(" & AscW(Mid(i,x,1)) & ")" & "&"
Else
a = a & "ChrW(" & AscW(Mid(i,x,1)) & ")"
End if
Next
Inputbox "Le Code Unicode Correspondant pour " & qq(i) & " est:",,a
End If
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function
et pour le décodage c'est très simple il suffit de prendre la chaine transformée et de la mettre dans un simple MsgBox. Voila un Exemple :
chaine=ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(115)&ChrW(58)&ChrW(47)&ChrW(47)&ChrW(119)&ChrW(119)&ChrW(119)&ChrW(46)&ChrW(103)&ChrW(111)&ChrW(111)&ChrW(103)&ChrW(108)&ChrW(101)&ChrW(46)&ChrW(99)&ChrW(111)&ChrW(109)&ChrW(47)&ChrW(115)&ChrW(101)&ChrW(97)&ChrW(114)&ChrW(99)&ChrW(104)&ChrW(63)&ChrW(113)&ChrW(61)&ChrW(116)&ChrW(105)&ChrW(108)&ChrW(116)
MsgBox chaine,64,"Chaine Décodée"
j’espère que l'énigme de ces URL est résolue ! (-_°)
22 déc. 2011 à 12:28
http://www.vbfrance.com/codes/VBS-SHORTCUTREMOVER-OUTIL-SUPPRIMER-AUTOMATIQUEMENT-RACCOURCIS-INFECTES-VIRUS_53377.aspx
22 déc. 2011 à 10:01
Encoder les chaines en héxa ne sert à rien à part donner la flemme de traduire en url et nous faire télécharger le fichier zip. Un Simple message dans un forum aurais suffit. Merci pour la traduction des liens NHenry. Et cette histoire de spider... lol. C'est plus un snippet qu'un code en plus.
21 déc. 2011 à 19:44
21 déc. 2011 à 19:31
Remarque : Je ne postes aucune et jamais des URL dangereuse car Vbfrance je le dois beaucoup ou j'ai appris pas mal de choses ici c'est disons mon Startup en programmation.
21 déc. 2011 à 18:55
http://www.google.com/search?q=let+it+snow
http://www.google.com/search?q=do+a+barrel+roll
https://www.google.com/search?q=tilt
Car en l'état, j'ai crains que c'était des URL dangereuse.