Salut,
Puisque chui totalement nuul en Action Scripte du Flash, j'ai piké ce code d'un fichier swf, qui va trop me servir a crypter et decrypter un stuff, et j'aimerais bien l'avoir en VB6.0 

---

#initclip 82
if (!ank.utils.Crypt)
{
    if (!ank)
    {
        _global.ank = new Object();
    } // end if
    if (!ank.utils)
    {
        _global.ank.utils = new Object();
    } // end if
    var _loc1 = (_global.ank.utils.Crypt = function ()
    {
    }).prototype;
    (_global.ank.utils.Crypt = function ()
    {
    }).cryptPassword = function (pwd, key)
    {
        var _loc4 = "#1";
        var _loc5 = 0;
       
        while (++_loc5, _loc5 < pwd.length)
        {
            var _loc6 = pwd.charCodeAt(_loc5);
            var _loc7 = key.charCodeAt(_loc5);
            var _loc8 = Math.floor(_loc6 / 16);
            var _loc9 = _loc6 % 16;
            _loc4 = _loc4 + (ank.utils.Crypt.HASH[(_loc8 + _loc7 % ank.utils.Crypt.HASH.length) % ank.utils.Crypt.HASH.length] + ank.utils.Crypt.HASH[(_loc9 + _loc7 % ank.utils.Crypt.HASH.length) % ank.utils.Crypt.HASH.length]);
        } // end while
        return (_loc4);
    };
    ASSetPropFlags(_loc1, null, 1);
    (_global.ank.utils.Crypt = function ()
    {
    }).HASH = new Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-", "_");
} // end if
#endinitclip

---

j'ai aucune idée de ce que sont les procedures ou les fonctions dans le code si-dessus.
 Mais si c'est possible d'avoir une Fonction en vb6.0, simple comme:

Crypte (String,Key) as string
(blablabla)
End Sub

Je seré trop heureux et reconessant !
Merci d'avanceuuuuuuuuuuuuuuuuh !



Technologie Reacen²

Heuuuuuuuuu... j'y connais rien non plus :D maéis si tu cherches des systèmes de cryptage y en a plein sur le site

Je savé qu'on allé me proposer cette idée
Mais, je cherche a Crypter les donné selon le code FLASH en haut :)

Je pensé aller fair visite du Forum de la Planet Flash (http://www.flashkod.com/)
Mais, pour dir quoi ? "Allo Planette des FLASHeur, ya quelqun qui comprend le VB6.0 Pour me Traduir ? Car vote language est trop dur pour moi ?"

Mdr, enfin chais pas trop ...
Je doute qu'on va me repondre labas

Pourvu qu'un bonne homme m'aide, pssque c'est trop urgent là ..

Technologie Reacen²

Si t'as decompiler le swf c'est que tu n'as pas la source et que tu n'est pas l'auteur.
Pour ton code, vu que tu l'as decompilé, les commentaires ne sont plus la, les noms de variables n'ont plus de noms qui veulent dire quelque chose, donc la logique de ton code est assez dur a comprendre maintenant...

Donc, tu veu dir que je peu JAMAIS encoder et l'envoier au serveur encodé, selon la source en haut ? c'est bien ca ? jlaisse tomber le tout ?

Technologie Reacen²

PCPT !!!!!
 Avant jt'aimé pas (a cause du message privé [a propos de mes sources] Ultra choquant)
 Mais mannant té mon heros !!! jt'addor !! XD

Tu peu stplé m'aider, a avoir le code complet en :

Public Function Crypter (String,Clef)
...
End Sub

passe que je risque de me coincé la nuit, et trouver personne pr m'aider .. (passe que j'y travaille dé mannant)







Technologie Reacen²

oh non s'il te plaît aime moi

dur dur de différencioer le rôle et la personne hein....

t'aider? OUI pourquoi pas
te faire le code? j'ai aussi des trucs à faire, désolé

donne moi quelques TRACES (mot tapé, clé, résultat) et je jète un oeil ce soir...

Té le mec le plus bizard que j'ai jamais connu dans un Forum.
 toutes facons j'ai rien a dir, té trop pro, pi t'est Admin..

Tien, le truc:    X % Y  (Que tu vien de dir que sa donne MOD)

Ce mod la, il sert a quoi exactement ?

Quand je fais par exemple:
msgbox 1 MOD 50

Sa donne toujour le 1er numero, mais quand sa depasse le 2eme, ca commence a renvoier un 0. C'est ca son bute ?

Technologie Reacen²

va savoir quoi passe avant quoi....

anyway comme dirait les ricains....


MOD (fonction VB) est le raccourci de MODULO

[F1]

---

Mod, opérateur

       

Permet de diviser deux nombres en ne renvoyant que le reste.

Syntaxe

result=number1Modnumber2

La syntaxe de l'opérateur Mod comprend les éléments suivants :

Élément	Description
result	Toute variable numérique.
number1	Toute expression numérique.
number2	Toute expression numérique.

Remarques

L'opérateur modulo, ou reste, divise l'argument number1 par l'argument number2 (en arrondissant les nombres à virgules flottantes à des nombres entiers) et ne retourne que le reste dans l'argument result. Par exemple, dans l' expression ci-dessous, A (argument result) est égal à 5.

A = 19 Mod 6.7

En général, le type de données de l'argument result est Byte, un variant de type Byte, Integer, un variant de type Integer, Long ou Variant contenant une donnée de type Long, que l'argument result soit ou non un nombre entier. La partie décimale est tronquée. Cependant, si une expression est Null, l'argument result est Null. Toute expression Empty est traitée comme si elle avait la valeur 0.

---

l'aide indique bien "L'opérateur modulo, ou reste"
j'ai écris : "logiquement le reste, donc loc9 = loc6 mod 16"


exemple :

9 / 3 = 3 => si je divise 9 par 3, j'ai 3. (3*3 = 9)
9 MOD 3 va me renvoyer 0 parce que 3*3 me renvoie un entier, l'entier qu'est 9


par contre 10/3 = 3.33333.....
l'entier de 3.3333...... est bien 3.
3*3 = 9, il me manque 1 pour arriver à 10. (10-1 = 9)
10 MOD 3 me renvoie ce fameux 1


MOD renvoie le reste entier de la division de l'entier
ce principe est la base même de toute conversion DECIMAL vers BASEX

---

Prenez un instant pour répondre à ce sondage svp