Discussion :

[Loran]

Bonjour à tous,

Tout d'abord je tiens à préciser que je sais pertinament qu'un cryptage XOR n'est pas des plus sur mais ce qui m'interresse c'est la rapidité.
C'est pourquoi j'en appelle au volontaire maitrisant l'assembleur inline dans delphi pour implémenter un cryptage XOR.

Je désire coder un TMemoryStream (appelé st) avec un clé de 256 octet
(var key:array[0..255] of byte

Ca ne doit pas être trop compliqué.
Merci d'avance
Cordialement
Loran

(P.S j'en ai fait un en Delphi mais j'en voudrais un en assembleur)

[Nono40]

Et quel est ton code en Delphi ?

[Conficius]

ça ne sert a rien de se proteger enormément il existe un logiciel qui existe qui décompile votre programme delphi allez voir mon sujet "misère....."

[the_magik_mushroom]

Conficius

Inscrit le: 09 Aoû 2005

Messages: 90


vivement la rentrée...

[Loran]

Et quel est ton code en Delphi ?

Salut,
Je n'avais pas filer le code car je n'était pas sur l'ordianteur sur lequel je programme.
Par ailleurs, je ne pense pas (je me trompe peut-être) qu'une traduction littérale soit intéressante, j'utilise un buffer pour la liaison avec les TMemoryStream, mais cela ne sera pas utile ne assembleur.
J'avais, il y à longtemps sous DOS des notions d'assembleur mais il me manque le lien enter Delphi et l'assembleur en ce qui concerne les accès à la mémoire. Comment faire le lien avec les variable key et st?)

Voici donc le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
procedure  crypt(var st:tmemorystream);
var pass:string;
    i,j,l,currentpos,nb,pos:longint;
    c,r:byte;
    buf:array[0..8191] of byte;
    key:array[0..255] of byte;
begin
 
pass:='Le pass de 64 octets finalement j'en prend 64 et non plus 256';
 
l:=length(pass);
 
for i:=1 to l  do
  begin
  key[i-1]:=ord(pass[i]);
  end;
 
 
st.Position:=0;
 
 
// partie à traduire en assembleur
currentpos:=0;
j:=0;
while (currentpos<st.size-1)
	do
	begin
	pos := st.Position;
	nb := st.Read(buf,8191);
	currentpos:=currentpos+nb;
 
	for i:= 0 to nb do
	    begin
	    buf[i]:=buf[i] xor (key[j]);
	    inc(j);
	    if j>=l then j:=0;
	    end;
	st.position:=pos;
	st.Write(buf,nb);
end; // while
 
 
// fin de la mise en assembleur
st.position:=0;
 
 
end;

Merci de ton attention
Cordialement
Loran

P.S.

ça ne sert a rien de se proteger enormément il existe un logiciel qui existe qui décompile votre programme delphi allez voir mon sujet "misère....."

Peut importe.

[cpdump]

Ton code n'est pas optimisé du tout, au lieu de faire des xor entre octets tu peux faire des xor entre mots de 32bits.

Il faut une partie pour traiter les xor sur 32bits et du code pour finaliser dans le cas où la taille du buffer n'est pas un multiple de 4.

Il y a d'autres optimsations possible, après cela dépend de la taille des buffers utilisés.

Pourquoi tu ne lis pas un nombre multiple de 4 dans ton stream (par ex 8192) ?