Reacen
Messages postés282Date d'inscriptionmardi 22 août 2006StatutMembreDernière intervention21 décembre 2010
-
13 août 2008 à 17:41
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
15 août 2008 à 04:51
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
<hr size="2" width="100%" />#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
<hr size="2" width="100%" />
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 !
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 14 août 2008 à 00:26
salut,
FlashKod, comme VbFrance, propose des codes open-source.
logique puisque tout çà c'est CS :)
donc pas de décompilation quelconque, reacen a juste inversé les termes SWF et FLA....
traduire?
tu pourrais lire avant!!!!
if (!ank.utils.Crypt)
pas traduisible, ressource/biblio ANK, on peut pas te pondre une biblio...
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", "-", "_")
ceci n'est que la suite de caractères pour le codage en BASE64, donc on sait que le résultat sera ensuite converti en base64. çà c'est présent et sur VbF, et sur codyx.org
nous reste donc le principal
while (++_loc5, _loc5 < pwd.length)
for i= loc5+1 to len(pwd)
{
var _loc6 = pwd.charCodeAt(_loc5);
je suppose loc6 = mid(pwd,i,1)
var _loc7 = key.charCodeAt(_loc5);
je suppose loc7 = mid$(key,i,1)
var _loc8 = Math.floor(_loc6 / 16);
çà ressemble à une valeur entière, donc loc8 = loc6 \ 16
var _loc9 = _loc6 % 16;
logiquement le reste, donc loc9 = loc6 mod 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]);
on tape de nouveau dans les biblios....
c'est audacieux de demander ici ce que tu n'oses pas demander là-bas
par audacieux j'entends.... j'entends rien en fait!
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Reacen
Messages postés282Date d'inscriptionmardi 22 août 2006StatutMembreDernière intervention21 décembre 2010 14 août 2008 à 23:48
C'est bon j'ai trouver :)
Ca a marcher mannant ! Problem resolu !
Je remerci dieu, pi, merci a PCPT, et oui, le \ m'a sauver !! (Le truc .Floor devé etre \ o lieu de / mem si je comprend pas pq ..)
Apres 24h de travaille j'ai finalement apris comment. pi hop, j'ai apris bcp de choses en route, telle que mod, le flash ect .. Et aussi le site web des bébé que [auteur/JMFMARQUES/615490.aspx jmfmarques]vien de donner ...
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 15 août 2008 à 04:51
pour le fun, voici ce que j'avais fais hier :
Public Function cryptPassword(ByVal Pwd As String, ByVal Key
As String) As String
Dim sRes As String
Dim Loc6 As Integer
Dim Loc7 As Integer
Dim Loc8 As Integer
Dim Loc9 As Integer
' var _loc4 = "#1";
Const Loc4 As String = "#1"
sRes = vbNullString
' var
_loc5 = 0;
Dim Loc5 As Integer
'
' while (++_loc5, _loc5 <
pwd.length)
' {
For Loc5 = 1 To Len(Pwd)
' var _loc6 =
pwd.charCodeAt(_loc5);
Loc6 = Asc(Mid$(Pwd, Loc5, 1))
' var _loc7 =
key.charCodeAt(_loc5);
Loc7 = Asc(Mid$(Key, Loc5, 1))
' return
(_loc4);
cryptPassword = Loc4 & sRes
End Function
Function HASH(ByVal iValue As Integer) As String
Const Base64 As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-_"
HASH = Mid$(Base64, iValue + 1, 1)
End Function
'#1
HC
'ba v z
'SO b
f
'77 f u
'0V r
m
'_6 a y
'8e n
v
'ZW c m
'ON e
b
pour le "" et non "/", j'ai bien indiqué un ENTIER, après si non seulement tu ne commences pas par la roue () mais ne lis même pas, on peut plus faire grand chose
et en effet je te rapelle que ce que j'avais indiqué en premier lieu était "sans test" et directement ici donc sans VB...
n'empêche qu'on attendait toujours tes traces
bref, bye
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Reacen
Messages postés282Date d'inscriptionmardi 22 août 2006StatutMembreDernière intervention21 décembre 2010 13 août 2008 à 20:30
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à ..
stefbuet
Messages postés576Date d'inscriptionmercredi 5 janvier 2005StatutMembreDernière intervention12 mai 2009 13 août 2008 à 22:41
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...
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 14 août 2008 à 01:56
va savoir quoi passe avant quoi....
anyway comme dirait les ricains....
MOD (fonction VB) est le raccourci de MODULO
[F1]
<hr size= "2" width="100%" />
[javascript:alink_6.Click() expression] ci-dessous, A (argument
result ) est égal à 5.
A = 19 Mod 6.7
En général, le
<object id= "alink_7" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></object>[javascript:alink_7.Click() type de données] de l'argument
result est
<object id ="alink_8" type= "application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></object>[javascript:alink_8.Click() Byte], un variant de type Byte ,
<object id ="alink_9" type= "application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></object>[javascript:alink_9.Click() Integer], un variant de type
Integer ,
<object id ="alink_10" type= "application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></object>[javascript:alink_10.Click() Long] ou
<object id="alink_11" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></object>[javascript:alink_11.Click() 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
<object id ="alink_12" type= "application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></object>[javascript:alink_12.Click() Null], l'argument result est
Null . Toute expression
<object id ="alink_13" type= "application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></object>[javascript:alink_13.Click() Empty] est traitée comme si elle avait la
valeur 0.
<hr size="2" width="100%" />
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
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Reacen
Messages postés282Date d'inscriptionmardi 22 août 2006StatutMembreDernière intervention21 décembre 2010 14 août 2008 à 02:07
Merci pour ca !!
Genial :) !!
(G dit que tété bizard, c pssque, juska mannant j'arrive
pas a comprendre si tu joue le rôle du Good Guy, ou du Bag Guy qui a
peut etre mar d'etre Admin .. passe que, j'immagine ... je vois les mem
personnes depuis que javé mes 14ans sur ce Forum. 3ans apres, et chaque
jour mem chose .., olala ..)
Sinon, j'aimerais bien donner des traces mais, c'est peu compliquer.
Voila j'explique: (Chui pas trop sur d'eux. Passe que des fois le HC au
debut de la clé je le trouve toujours, donc je crois qu'il fait pas
partie de la clé.)
(Un Exemple de conversation:)
L'appli Flash se connect au serveur,
Le serveur repond : HCzfumyvmbscnhdgazzdmdzpzflsanwvxs
L'appli
Flash Encode "vbfrance" selon la clé recus, (qui est
"zfumyvmbscnhdgazzdmdzpzflsanwvxs" je crois) Ce qui donne :
#1baSO770V_68eZWON
Donc:
Clé: zfumyvmbscnhdgazzdmdzpzflsanwvxs
Mot Tapé: vbfrance
Résultat: #1baSO770V_68eZWON
(Coté résultat, je crois que les deux premier caracter sert a rien donc baSO770V_68eZWON)
<hr size="2" width="100%" />
va savoir quoi passe avant quoi....
Tkt, je comprend
Merci en tous cas pour ton temps.
Et surtout pour l'explication du mod. j'immagine,
mem moi je trouve pas le temps de bien lire, alors vous, qui devé non
seulment le poster mais ossi repondre a des 1000ers d'autres postes ...
aaah la vie est dur des fois >< mdr ..
Chui trop chanceux mannant que [auteur/PCPT/401740.aspx PCPT]parle en personne x')
stefbuet
Messages postés576Date d'inscriptionmercredi 5 janvier 2005StatutMembreDernière intervention12 mai 2009 14 août 2008 à 09:28
Comment veux tu que sa sente bon? Un gars qui a décompilé une anim et qui veut découvrir son systeme de cryptage/décryptage, et ne veux pas prendre une source deja présente sur FlashKod (ou autre side codeSource), mais absolument le systeme de la source décompilé, sa veux tout dire....
Reacen
Messages postés282Date d'inscriptionmardi 22 août 2006StatutMembreDernière intervention21 décembre 2010 14 août 2008 à 12:21
[auteur/PCPT/401740.aspx PCPT]: mdr, t'a chercher mem labas . je crois que c'est un vieu topic des miens, et n'a pas a avoir avec celuila... enfin, si, mais, au moment ou je l'ai taper je savé mem pas de quoi je parlé... mainnant a grace a toi, je comprend mieu
<hr size="2" width="100%" />
[auteur/STEFBUET/417528.aspx stefbuet]: "ne veux pas prendre une source deja présente sur FlashKod."
tien, pas mal, j'ai pas penser a ca .
Surement je trouverais quelques chose sur 'Cryptage Base64' labas .
Mais, comme j'ai pas de chances avec le flash, je risque d'etre dans la merde apres ..
Le fichier flash que j'ai est surement intello, et crypte d'une autre facons.
<hr size="2" width="100%" />[auteur/PCPT/401740.aspx PCPT]: tu entends quoi avec les Traces ?
value, clé,resultat, comme ce que j'ai donner sur la premiere page, est ce bien ca ?
pour demmarer depuis les exemple ?
ou que le "oui tu avais raison pour la décompil" veu dir que c'est desepséré .. ?
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 14 août 2008 à 13:58
trace j'entendais ce que tu as donné sur la 2e page :
Clé: zfumyvmbscnhdgazzdmdzpzflsanwvxs
Mot Tapé: vbfrance
Résultat: #1baSO770V_68eZWON
mais plusieurs traces, donc plusieurs exemples.
néanmoins quand tu parlais de SWF (donc la compilation d'un projet flash), je pensais que tu avais fait une simple erreur et que tu parlais du FLA (la source)...
or si ce n'est pas le cas (comme le suggérait stefbuet dès le début), c'est que tu parles alors de piratage... comme le laisse penser ton "vieux topic" (vieux? 5 jours?....) mais également, finalement, celui d'hier sur FlashKod où tu indiques clairement :
J'ai Decompiler un swf qui crypte un Nom, et l'envoie au serveur.
j'ai fais l'impossible, pour avoir le code, et mannant, chui bloké
si on parle bien de piratage....
règlement :
On ne pose pas de question en rapport avec virus, crack, hack, trojan
etc... ainsi que TOUS sujets comportant ou faisant référence
directement ou indirectement à la religion, la politique ou le sexe.
tu peux comprendre qu'on est face à un problème donc... !
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Je crois que je peu monter mon code tout seul apres :).
(le ank.utils.crypt.hash existe dans le code, mé ché pas l'usé en vb ..)
( Sinon, j'ai toutes les biblio sur mon .fla mannant, car en peu dir que j'ai la source .fla la si sa peu servir =/ )
aide moi a traduir juste loc4 = loc4 + (Quoi ?)
Car je pense que le loc4 donne le Resultat !!