WebSocket HTML5 et Delphi

Version imprimable

Bonjour,

Voilà avec la sortie des socket avec l'api d'HTML5. J'ai voulu comprendre un peut et essayer de le faire marcher avec un serveur en DELPHI.

Alors côté navigateur tout bas bien j'envoie un requête le problème c'est que le serveur n'arrive pas à me répondre.
Donc côté serveur:

Voilà ma réponse:
Code:

1 2 3 4 5 6 7 s := 'HTTP/1.1 101 WebSocket Protocol Handshake' + #13#10 + 'Upgrade: WebSocket' + #13#10 + 'Connection: Upgrade' + #13#10 + 'Sec-WebSocket-Location: ws://.......' + #13#10 + 'Sec-WebSocket-Origin: http://localhost' + #13#10 + 'Sec-WebSocket-Protocol: sample' + #13#10 + #13#10 + md5rep;
Le "md5rep" lui est réaliser comme il se doit normalement avec les deux key de la requête et concaténés à la troisième key.

Mais le ça ne marche pas je comprend pas :(

help :calim2:

27/06/2011, 15h53
ShaiLeTroll

Delphi ? Version ?
Delphi On Rails ? ce n'est plus du Delphi mais du Ruby (c'est tout aussi éloigné de Delphi que l'est Delphi For PHP)

Quel navigateur ? utilise FF4 ou Chrome pour un début de compatibilité du client avec les WebSockets !
C'est tout de même très frais comme techno !

Qu'est ce qui ne fonctionne pas ?
Cette étape correspond à la phase de négociation du protocol, pour effectuer la connexion bi-directionnel en HTTP, ensuite, il y aura la phase d'acceptation du protocol (selon la version) puis après, c'est un peu tout le monde fait ce qu'il veut, principalement du streaming avec les composants HTML5 !
27/06/2011, 16h06
Paul TOTH

aucune idée :)

comme à chaque fois que j'étudie un protocole, je fais toujours un client et un serveur...et idéalement je me trouve un client et un serveur déjà faits...ça me permet de tester des deux côtés du protocole et de repérer plus facilement mes erreurs.
27/06/2011, 16h10
shadow578

Merci de votre aide alors,

J'utilise DELPHI 7 et Chrome comme navigateur !

Le problème vient surrment de la clé que je renvoie..

Bizarre tout de même car j'ai fait ce qu'il fallait, le client reçoit comme si le serveur était fermé, or le serveur lui reçoit bien la requête donc c'est vraiment dans ma réponse...

L'entête ma l'air correcte donc seul problème qui peut y avoir c'est le md5 que je revoie qui ne ne doit pas aller ?
27/06/2011, 16h41
ShaiLeTroll

As-tu essayé une version sans clé ?
As-tu essayé une version avec une clé volontairement incorrect ?
Pour voir si le comportement est similaire à celui que tu observes ?

Quel est ta fonction de MD5 ?

Sinon, ta syntaxe est déjà une version obsolète !
Il semble que Chrome soit le seul qui supporte encore cette forme ! Je sais une source basique comme wikipedia est pas toujours fiable, mais cela peut-être aussi une explication à ton problème, tu as peut-être une version qui ne le supporte plus !

Une version sans clé ? Comment je fais pour envoyé sans clé il va me refusé car pour moi j'avais compris qu'il fallait renvoyé la clé pour que le client accepte?

Je pense que le problème vient lors de la conversion au format binaire en 32bit:

Code:

1
2
3
4
5
 
  for i := 0 to 3 do
  begin
    n1 := chr((p1 shr ((i and 7) shl 3)) and $ff) + n1;  
  end;

Quant-à ma fonction md5:

Code:

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
function TForm1.md5(const Input: String): String;
var
  hCryptProvider: HCRYPTPROV;
  hHash: HCRYPTHASH;
  bHash: array[0..$7f] of Byte;
  dwHashBytes: Cardinal;
  pbContent: PByte;
  i: Integer;
 
begin
  dwHashBytes := 16;
  pbContent := Pointer(PChar(Input));
 
  Result := '';
 
  if CryptAcquireContext(@hCryptProvider, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET) then
  begin
    if CryptCreateHash(hCryptProvider, CALG_MD5, 0, 0, @hHash) then
    begin
      if CryptHashData(hHash, pbContent, Length(Input) * sizeof(Char), 0) then
      begin
        if CryptGetHashParam(hHash, HP_HASHVAL, @bHash[0], @dwHashBytes, 0) then
        begin
          for i := 0 to dwHashBytes - 1 do
          begin
            Result := Result + Format('%.2x', [bHash[i]]);
          end;
        end;
      end;
      CryptDestroyHash(hHash);
    end;
 
    CryptReleaseContext(hCryptProvider, 0);
  end;
 
  Result := AnsiLowerCase(Result);
end;

Citation:

Envoyé par shadow578

Une version sans clé ? Comment je fais pour envoyé sans clé il va me refusé car pour moi j'avais compris qu'il fallait renvoyé la clé pour que le client accepte?

C'est pour une ANALYSE !
Tester les comportements d'erreur est très instructifs, souvent plus que de tester de nombreux cas dont le comportement n'est pas prévisible car incorrect !
C'est le principe du TDD ! On écrit les Tests qui valident ou invalident une fonction avant de la coder, cela permet de garantir la spec !

Format Binaire ???
Semble que c'est une simple conversion de nombre

1- As-tu retirer tous caractères autre que des Nombres dans ta clé ?
2- As-tu diviser le nombre obtenu par le nombre d'espace ?

Citation:

Sec-WebSocket-Key1: 4 @1 46546xW%0l 1 5
Sec-WebSocket-Key2: 12998 5 Y3 1 .P00
8 Dernier Octets : ^n:ds[4U

Citation:

4146546015 / 5
1299853100 / 5
^n:ds[4U

Bon, je suis pas RainMan, je sais pas calculé ça !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Key1, Key2 : Longword; // Normalement, les clés ne dépassent pas 32bits ! Key1BE, Key2BE : Longword; NbSpace1, NbSpace2: Byte; Token : string; Key1 := WebSocketKeyToInt32(StringKey1); Key2 := WebSocketKeyToInt32(StringKey1); Key1BE := SwapLongword(Key1); // Semble que c'est du Big Endian ! Key2BE := SwapLongword(Key2); SetLength(S, 16); CopyMemory(@Token[1], @Key1BE, 4); CopyMemory(@Token[5], @Key2BE, 4); CopyMemory(@Token[9], @ContentRequest[Length(ContentRequest) - 8 + 1], 8); // ContentRequest la chaine contenant le message, ^n:ds[4U étant les 8 derniers caractères ContentResponse := md5(Token);
WebSocketKeyToInt32, va compter les espaces, concaténer tous les chiffres dans une chainer puis convertir en Entier 64 bits, diviser par le nombre d'espace, normalement le résultat doit être un entier 32 bits

code tapé à l'arrache sur le forum
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 function WebSocketKeyToInt32(S: String): Longword; var StrValue: string; Int64Value: Int64; SpaceCount: Byte; begin StrValue := ''; SpaceCount := 0; for i := 1 to length(S) do begin if S[i] in ['0'..'9'] then StrValue = StrValue + S[i]; // En Delphi 7, je te conseil soit d'utiliser FastMM soit de pre-compter les chiffres, les réalloctions de chaine c'est très lent ! else if S[i] = ' ' then Inc(SpaceCount); end; Int64Value := StrToInt64(StrValue); Result := Int64Value div SpaceCount; end;
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 function SwapLongword(Value: Longword): Longword; {$IFDEF PUREPASCAL} type TMapLongword = array[0..3] of Byte; begin TMapLongword(Result)[0] := TMapLongword(Value)[3]; TMapLongword(Result)[1] := TMapLongword(Value)[2]; TMapLongword(Result)[2] := TMapLongword(Value)[1]; TMapLongword(Result)[3] := TMapLongword(Value)[0]; {$ELSE} asm BSWAP EAX {$ENDIF} end;

27/06/2011, 17h36
shadow578

Oula qu'est ce que c'est que tout ça o_O

Moi je ne fessait pas du tout comme çà je récupérer dans un boucle les nombres puis je compter les espaces auquel je divisais ma key1 puis je mettais en binaire 32 ...

En essayant de reprendre ton code plusieurs élément que je ne compred pas :

WebSocketKeyToInt32 ? une uses spécial ?

Code:

SetLength(S, 16);

???

@ContentRequest ??

Merci en tout cas de m'aider :D
27/06/2011, 18h15
ShaiLeTroll

Citation:

Envoyé par shadow578

Oula qu'est ce que c'est que tout ça o_O

Moi je ne fessait pas du tout comme çà je récupérer dans un boucle les nombres puis je compter les espaces auquel je divisais ma key1 puis je mettais en binaire 32 ...

la fonction WebSocketKeyToInt32 fait exactement ce que tu décrits !
Fournit donc ton code !

Citation:

Envoyé par shadow578

En essayant de reprendre ton code plusieurs élément que je ne compred pas :

WebSocketKeyToInt32 ? une uses spécial ?

le code de la fonction est dans le sujet, merci de lire l'intégralité de la réponse avant de poster !

Citation:

Envoyé par shadow578

Code:

SetLength(S, 16);

???

Un petit effort

Code:

SetLength(Token, 16);

Citation:

Envoyé par shadow578

@ContentRequest ??

J'ai commenté !
ContentRequest c'est le contenu du message HTTP, tu ne fournis pas les technos utiliser, j'utilises des termes communément admis en Delphi lors que l'on parle de TWebApplication

Bon je met mon code sa sera plus simple ;)

Code:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var s: string;
begin
  s := Socket.ReceiveText;
  Memo1.Lines.Add(s);
  envoyerFichier(socket, s);
end;
 
procedure TForm1.envoyerFichier(Socket: TCustomWinSocket; nomFichier: String);
var md5rep, s, data: string;
begin
  md5rep := decodeEntete(nomFichier);
 
  s := 'HTTP/1.1 101 WebSocket Protocol Handshake' + #13#10 
    +  'Upgrade: WebSocket' + #13#10
    +  'Connection: Upgrade' + #13#10
    +  'Sec-WebSocket-Location: ws://exemple../' + #13#10
    +  'Sec-WebSocket-Origin: http://localhost' + #13#10
    +  'Sec-WebSocket-Protocol: sample' + #13#10
    + #13#10 + md5rep;
 
 
  Memo1.Lines.Add(s);
  Socket.SendText(s);
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket1.Open;
end;
 
function TForm1.decodeEntete(s:string):string;
var i: integer;
  key1, key2, data: string;
begin
data := ''; key1 := ''; key2:='';
  For i := 1 to 10 do begin
    if(pos('Sec-WebSocket-Key1: ', Memo1.Lines[i]) > 0) then
      key1 := Memo1.Lines[i]
    else if(pos('Sec-WebSocket-Key2: ', Memo1.Lines[i]) > 0) then
      key2 := Memo1.Lines[i]
    else if(i=9)then data := Memo1.Lines[i];
  end;
 
  key1 := copy(key1, 21, length(key1));
  key2 := copy(key2, 21, length(key2));
 
  Memo1.Lines.Add(#13#10+'key1: '+key1+#13#10+'key2: '+key2+#13#10+'key3: '+data+#13#10);
 
  if not(length(data) <> 8) then
    result := Hixie76Signature(key1, key2, data)
  else Memo1.Lines.Add('bad plus de 8');
end;
 
function Tform1.Hixie76Signature(key1, key2, data: string): string;
var test, n1, n2, totalKey: string;
    i, s1, s2: integer;
    p1, p2: int64;
begin
  result := '';
  s1 := 0;
  n1 := '';
  s2 := 0;
  n2 := '';
  for i := 1 to length(key1) do
  begin
    if ((key1[i] >= '0') and (key1[i] <= '9')) then
      n1 := n1 + key1[i];
    if (key1[i] = ' ') then
      inc(s1);
  end;
  for i := 1 to length(key2) do
  begin
    if ((key2[i] >= '0') and (key2[i] <= '9')) then
      n2 := n2 + key2[i];
    if (key2[i] = ' ') then
      inc(s2);
  end;
  p1 := StrToInt64(n1) div s1;
  p2 := StrToInt64(n2) div s2;
 
  n1 := '';
  for i := 0 to 3 do
  begin
    n1 := chr((p1 shr ((i and 7) shl 3)) and $ff) + n1;  // convertion binaire sous 32bits
  end;
  n2 := '';
  for i := 0 to 3 do
  begin
    n2 := chr((p2 shr ((i and 7) shl 3)) and $ff) + n2;
  end;
 
 
  totalKey := n1 + n2 + UTF8Decode(data);
  result := md5(totalKey);
end;
 
function TForm1.md5(const Input: String): String;
var
  hCryptProvider: HCRYPTPROV;
  hHash: HCRYPTHASH;
  bHash: array[0..$7f] of Byte;
  dwHashBytes: Cardinal;
  pbContent: PByte;
  i: Integer;
 
begin
  dwHashBytes := 16;
  pbContent := Pointer(PChar(Input));
 
  Result := '';
 
  if CryptAcquireContext(@hCryptProvider, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET) then
  begin
    if CryptCreateHash(hCryptProvider, CALG_MD5, 0, 0, @hHash) then
    begin
      if CryptHashData(hHash, pbContent, Length(Input) * sizeof(Char), 0) then
      begin
        if CryptGetHashParam(hHash, HP_HASHVAL, @bHash[0], @dwHashBytes, 0) then
        begin
          for i := 0 to dwHashBytes - 1 do
          begin
            Result := Result + Format('%.2x', [bHash[i]]);
          end;
        end;
      end;
      CryptDestroyHash(hHash);
    end;
 
    CryptReleaseContext(hCryptProvider, 0);
  end;
 
  Result := AnsiLowerCase(Result);
end;

De mon côté je vais tenter ce que tu me propose...

Merci en tout cas de ton aide!

28/06/2011, 10h50
ShaiLeTroll
Attention data peut faire plus de 8 bytes !
C'est à toi de le gérer et de récupérer les 8 dernier bytes !
Code:

1 2 if ((key1[i] >= '0') and (key1[i] <= '9')) then n1 := n1 + key1[i];
pour faciliter la lecture, autant mettre les bornes dans le sens de la lecture !
Code:

1 2 if (('0' <= key1[i]) and (key1[i] <= '9')) then n1 := n1 + key1[i];
plus court
Code:

1 2 if key1[i] in ['0'..'9'] then n1 := n1 + key1[i];
Pour ta conversion, euh, qu'est-ce que c'est que tout ce calcul ???

Pourquoi cette vilaine manie d'utiliser String pour du stockage de binaire ???
Array of Byte ou TMemoryStream, il faut utiliser des types fiables, non optimisés !
Code:

1 2 3 4 for i := 0 to 3 do begin n1 := chr((p1 shr ((i and 7) shl 3)) and $ff) + n1; // convertion binaire sous 32bits end;
on va décomposer !

(i and 7)

i étant compris entre 0 et 3
ce qui donne
0000
0001
0010
0100
hors 7 = 0111
donc (i and 7) = i donc inutile
Code:

1 2 3 4 for i := 0 to 3 do begin n1 := chr((p1 shr (i shl 3)) and $ff) + n1; // convertion binaire sous 32bits end;
J'ai un peu de mal à savoir ce que cela donne !

Selon les Specs
et l'exemple fourni

Citation:

For each of these fields, the server has to take the digits from the
value to obtain a number (in this case 1868545188 and 1733470270
respectively), then divide that number by the number of spaces
characters in the value (in this case 12 and 10) to obtain a 32-bit
number (155712099 and 173347027). These two resulting numbers are
then used in the server handshake, as described below.

Il me semble que cela ne dépasse jamais 32 Bits !
Dans ton décalage si i = 3, alors ça donne un shr 32, tu lit le 5 eme octet de ton Int64, je ne sais si c'est bon ça !

Tu procèdes à un UTF8Decode, mais tu te rends compte que la chaine obtenu peut varier de 8 à 16 octets dépassant allégrement la taille requise !
Tu dois donc uniquement conserver les 8 derniers octets (je parle bien d'octet pas de caractère, notion tellement trompeuse)

As-tu testé ton code avec des valeurs connus issues des specs ou de wikipedia, cela te permettra de tester plus facilement ton propre hors de Chrome, hors des sockets, juste un Test !

Code:

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
 
function Tform1.Hixie76Signature(key1, key2, head: string): string;
var test, n1, n2, data: string;
    i, s1, s2: integer;
    p1, p2: int64;
begin
  result := '';
  s1 := 0;
  n1 := '';
  s2 := 0;
  n2 := '';
 
 data := copy(head, Length(head)-8, Length(head));
 
  for i := 1 to length(key1) do
  begin
    if key1[i] in ['0'..'9'] then
      n1 := n1 + key1[i];
    if (key1[i] = ' ') then
      inc(s1);
  end;
  for i := 1 to length(key2) do
  begin
   if key2[i] in ['0'..'9'] then
      n2 := n2 + key2[i];
    if (key2[i] = ' ') then
      inc(s2);
  end;
  p1 := StrToInt64(n1) div s1;
  p2 := StrToInt64(n2) div s2;
 
  n1 := '';
  for i := 0 to 3 do
  begin
    n1 := chr((p1 shr (i shl 3)) and $ff) + n1;  // convertion binaire sous 32bits
  end;
 
  n2 := '';
  for i := 0 to 3 do
  begin
    n2 := chr((p2 shr (i shl 3)) and $ff) + n2;  // convertion binaire sous 32bits
  end;
 
  result := md5(n1 + n2 + data);
end;

En lui même le code est bon, et même après les modifs ça ne marche pas...

Je pige plus !

Car pour le format ninaire sur 32bits j'avais pensé a cela:

Code:

1
2
3
4
5
6
7
 SetLength(s, 4);
  Move(p2, s[1], 4);
  data := s + data;
 
  SetLength(s, 4);
  Move(p1, s[1], 4);
  data := s + data;

28/06/2011, 12h08
ShaiLeTroll
Citation:

Envoyé par shadow578

En lui même le code est bon, et même après les modifs ça ne marche pas...

Hixie76Signature renvoie une chaine Hexa, tu n'as pas oublié de passer la chaine Hexa en buffer UTF8 via HexToBin ?

En C++Builder, je te laisse traduire
Code:

1 2 3 4 Hexa = Hixie76Signature(key1, key2, Data); Result.SetLength(16); HexToBin(Hexa.c_str(), Result.c_str(), 16);
Sinon, mon code tapé à l'arrache, je l'ai comparé, nous avons tous les deux le même résultat après un HexToBin : IL EST BON !

Je te conseille d'oublier ton uzinagaz
Code:

1 2 3 4 for i := 0 to 3 do begin n1 := chr((p1 shr ((i and 7) shl 3)) and $ff) + n1; // convertion binaire sous 32bits end;
pour
Code:

1 2 3 4 function SwapLongword(Value: Longword): Longword; asm BSWAP EAX end;
Citation:
Envoyé par shadow578

Car pour le format ninaire sur 32bits j'avais pensé a cela:

Code:

1 2 3 4 5 6 7 SetLength(s, 4); Move(p2, s[1], 4); data := s + data; SetLength(s, 4); Move(p1, s[1], 4); data := s + data;
Euh, cela ne fait pas la conversion Little Endian en Big Endian !
28/06/2011, 14h09
shadow578

J'ai suivie t'es conseil avec ta fonction par contre je ne comprend pas le:

Citation:

Hixie76Signature renvoie une chaine Hexa, tu n'as pas oublié de passer la chaine Hexa en buffer UTF8 via HexToBin ?

Tu reconvertie en binaire ? Je comprend pas pourquoi :S
28/06/2011, 14h17
ShaiLeTroll

Code:

Result := Result + Format('%.2x', [bHash[i]]);

La fonction MD5, renvoie une chaine Hexa !
Il faut remettre cela en binaire !

Le Protocole WebSockets n'attend pas une chaine Hexa mais une chaine UTF8 je n'ai pas ré-encodé en UTF8 pour obtenir la réponse avec les valeurs d'essai, à vérifier si cela est obligatoire ou pas !?

Tu trouves que 8jKS'y:G*Co,Wxa- ou fQJ,fN/4F4!~K~MH ressemble à de l'Hexa ?
28/06/2011, 14h36
shadow578
Arf je n'arrive pas à le repasser en binaire:
Code:

1 2 3 Hexa = Hixie76Signature(key1, key2, Data); SetLength(text, 16); HexToBin(Hexa, text, 16);
Plein d'erreur :o) :cry:
28/06/2011, 15h36
ShaiLeTroll

Tu plaisantes ?
Hexa et Text sont des AnsiString, les convertir en PChar, en Delphi 7, c'est simple

Code:

HexToBin(PAnsiChar(Hexa), PAnsiChar(text), 16);

ou

Code:

HexToBin(@Hexa[1], @text[1], 16);

Je sais que tu as trouvé le code de la fonction MD5 sur Google puisqu'on la trouve écrite ainsi partout avec string, alors qu'il est tellement plus élégant de l'utiliser avec deux TMemoryStream !
As-tu essayer de la comprendre en particulier cette ligne

Code:

pbContent := Pointer(PChar(Input));

Qui te donnait un exemple de transtypage d'une String en char* (ou PAnsiChar)

Bien sûr que c'est une fonction que j'ai trouvé :?

Bon je te met mon code (qui ne marche toujours pas :lol:) dis moi si tu trouve encore des choses qui vont pas après je te laisse tranquille c'est déjà très sympa :ccool:

Moi je continue de chercher de mon côté mais les truc les plus bête je n'y arrive plus je tourne tellement en rond...

Code:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
 
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Connexion du client...');
end;
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var s: string;
begin
  s := Socket.ReceiveText;
  Memo1.Lines.Add(s);
  envoyerFichier(socket, s);
end;
 
procedure TForm1.envoyerFichier(Socket: TCustomWinSocket; nomFichier: String);
var s: string;
  md5rep: string;
  keyFinal: integer;
 
begin
  md5rep := decodeEntete(nomFichier);
  SetLength(md5rep, 16);
  keyFinal := HexToBin(@md5rep[1], @text[1], 16);
 
 
 
  s := 'HTTP/1.1 101 WebSocket Protocol Handshake' + #13#10
    +  'Upgrade: WebSocket' + #13#10
    +  'Connection: Upgrade' + #13#10
    +  'Sec-WebSocket-Location: ws://......... + #13#10
    +  'Sec-WebSocket-Origin: http://localhost' + #13#10
    +  'Sec-WebSocket-Protocol: sample' + #13#10
    + #13#10 + md5rep;
 
  Memo1.Lines.Add(s);
  Socket.SendText(s);
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
end;
 
function TForm1.decodeEntete(s:string):string;
var i: integer;
  key1, key2, data: string;
begin
data := ''; key1 := ''; key2:='';
  For i := 1 to 10 do begin
    if(pos('Sec-WebSocket-Key1: ', Memo1.Lines[i]) > 0) then
      key1 := Memo1.Lines[i]
    else if(pos('Sec-WebSocket-Key2: ', Memo1.Lines[i]) > 0) then
      key2 := Memo1.Lines[i]
    else if(i=9)then data := Memo1.Lines[i];
  end;
 
  key1 := copy(key1, 21, length(key1));
  key2 := copy(key2, 21, length(key2));
 
  Memo1.Lines.Add(#13#10+key1+#13#10+key2+#13#10);
 
  result := Hixie76Signature(key1, key2, data);
 
end;
 
function Tform1.Hixie76Signature(key1, key2, data: string): string;
var s, n1, n2: string;
    i, s1, s2: integer;
    p1, p2: int64;
 
begin
s:='';
  result := '';
  s1 := 0;
  s2 := 0;
  n1 := '';
  n2 := '';
 
  for i := 1 to length(key1) do
  begin
    if key1[i] in ['0'..'9'] then
      n1 := n1 + key1[i];
    if (key1[i] = ' ') then
      inc(s1);
  end;
  for i := 1 to length(key2) do
  begin
   if key2[i] in ['0'..'9'] then
      n2 := n2 + key2[i];
    if (key2[i] = ' ') then
      inc(s2);
  end;
 
  p1 := StrToInt64(n1) div s1;
  p2 := StrToInt64(n2) div s2;
 
  n1 := SwapLongword(intToStr(p1));
  n2 := SwapLongword(intToStr(p2));
 
  result := md5(n1 + n2 + data);
end;
 
function TForm1.md5(const Input: String): String;
var
  hCryptProvider: HCRYPTPROV;
  hHash: HCRYPTHASH;
  bHash: array[0..$7f] of Byte;
  dwHashBytes: Cardinal;
  pbContent: PByte;
  i: Integer;
 
begin
  dwHashBytes := 16;
  pbContent := Pointer(PChar(Input));
 
  Result := '';
 
  if CryptAcquireContext(@hCryptProvider, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET) then
  begin
    if CryptCreateHash(hCryptProvider, CALG_MD5, 0, 0, @hHash) then
    begin
      if CryptHashData(hHash, pbContent, Length(Input) * sizeof(Char), 0) then
      begin
        if CryptGetHashParam(hHash, HP_HASHVAL, @bHash[0], @dwHashBytes, 0) then
        begin
          for i := 0 to dwHashBytes - 1 do
          begin
            Result := Result + Format('%.2x', [bHash[i]]);
          end;
        end;
      end;
      CryptDestroyHash(hHash);
    end;
 
    CryptReleaseContext(hCryptProvider, 0);
  end;
 
  Result := AnsiLowerCase(Result);
end;
function TForm1.SwapLongword(Value: string): string;
asm
  BSWAP EAX
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ServerSocket1.Open;
  Memo1.Lines.Add('Connexion du serveur...'+#13#10);
end;
 
end.

Prend un café bien serré, une bonne inspiration et lit ce que tu as écrit !
Code:

1 2 3 md5rep := decodeEntete(nomFichier); SetLength(md5rep, 16); keyFinal := HexToBin(@md5rep[1], @text[1], 16);
md5rep dans ton code fait 32 octets car 16 couple de FF !
Tu le tronques à 16 ! Tu pers la moitié des données

Qui est text ?
Je ne le vois déclarer null part !
Ne serait-ce pas la Propriété Text de Self, donc de la TForm ???

Tu n'as pas de violation d'accès en tentant de lire et d'écrire plus que tu ne le devrais ?

Autre problème !
SwapLongword dont la fonction est de manipuler un LongWord, tu la modifie pour gérer un String !
Ne te lance pas dans ce genre de modification d'un code Assembleur que tu ne maitrise pas !
Là tu ne fais que modifier le pointer du string, j'ose même pas imaginer le résultat !
Code:

1 2 3 4 function TForm1.SwapLongword(Value: string): string; asm BSWAP EAX end;
Tu tentes de mélanger mon code avec ton code !
Mais tu ne respectes ma méthode, cela ne peut pas fonctionner !

remplace
Code:

1 2 3 4 5 6 7 p1 := StrToInt64(n1) div s1; p2 := StrToInt64(n2) div s2; n1 := SwapLongword(intToStr(p1)); n2 := SwapLongword(intToStr(p2)); result := md5(n1 + n2 + data);
par
Code:

1 2 3 4 5 6 7 8 9 10 11 12 p1 := StrToInt64(n1) div s1; p2 := StrToInt64(n2) div s2; p1 := SwapLongword(p1); p2 := SwapLongword(p2); SetLength(Token, 16); CopyMemory(@Token[1], @p1, 4); CopyMemory(@Token[5], @p2, 4); CopyMemory(@Token[9], @data[1], 8); result := md5(Token);
Token étant un String
p1 et p2 passe de Int64 à LongWord !

Sinon pour info, en reprenant ton premier Hixie76Signature, ceci suffisait !
Code:

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 49 50 function Tform1.Hixie76Signature(key1, key2, data: string): string; var test, n1, n2, totalKey: string; i, s1, s2: integer; p1, p2: int64; resultHexa: string; begin result := ''; s1 := 0; n1 := ''; s2 := 0; n2 := ''; for i := 1 to length(key1) do begin if ((key1[i] >= '0') and (key1[i] <= '9')) then n1 := n1 + key1[i]; if (key1[i] = ' ') then inc(s1); end; for i := 1 to length(key2) do begin if ((key2[i] >= '0') and (key2[i] <= '9')) then n2 := n2 + key2[i]; if (key2[i] = ' ') then inc(s2); end; p1 := StrToInt64(n1) div s1; p2 := StrToInt64(n2) div s2; n1 := ''; for i := 0 to 3 do begin n1 := chr((p1 shr ((i and 7) shl 3)) and $ff) + n1; // convertion binaire sous 32bits end; n2 := ''; for i := 0 to 3 do begin n2 := chr((p2 shr ((i and 7) shl 3)) and $ff) + n2; end; totalKey := n1 + n2 + UTF8Decode(data); resultHexa := md5(totalKey); // Hexa -> Binaire SetLength(Result, 16); HexToBin(@resultHexa[1], @Result[1], 16); end;

28/06/2011, 17h44
shadow578

Cela devient de plus en plus fouillis mais je veux comprendre jusqu'au bout et que ça marche !

Bon j'ai repris le code j'ai refait des modifs mais ça bloque avec la fonction SwapLongword je n'arrive pas ...

OULA ! J'ai fait une modif que j'avais oublier et la j'ai ça compile mais j'ai une violation d'accès :O ?

D'après le débuggage ça viendrais lorsque je fait :
CopyMemory(@Token[9], @data[1], 8);

:ccool: Réparé mais ça ne marche toujours pas ... 8O niveau serveur..
28/06/2011, 18h25
ShaiLeTroll

Essaye SANS server !
Développe petit à petit !
Utilise des valeurs de tests et un retour prévisible dans une application de test !
Une fois la fonction stable dans ce contexte avec le bon résultat, passe à l'étape Socket !

Je sais bien qu'il faut faire de faux truc pour tester mais sur un test serveur je ne vois pas comment ...

En tout cas j'ai beau corriger des erreurs ça ne marche point..

Code:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
 
var
  Form1: TForm1;
  origin, host: string;
implementation
uses Wcrypt2;
{$R *.dfm}
 
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.Panels[0].Text := 'Connexion de ' + Socket.RemoteAddress;
end;
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var s: string;
begin
  s := Socket.ReceiveText;
  Memo1.Lines.Add(s);
  envoyerFichier(socket, s);
end;
 
procedure TForm1.envoyerFichier(Socket: TCustomWinSocket; nomFichier: String);
var s, md5rep: string;
begin
  md5rep := decodeEntete(nomFichier);
  s := 'HTTP/1.1 101 WebSocket Protocol Handshake' + #13#10
    +  'Upgrade: WebSocket' + #13#10
    +  'Connection: Upgrade' + #13#10
    +  'Sec-WebSocket-Location: ws://'+host+ #13#10
    +  'Sec-WebSocket-Origin: '+origin+ #13#10
    +  'Sec-WebSocket-Protocol: sample' + #13#10
    + #13#10 + md5rep;
 
  Memo1.Lines.Add(s);
  Socket.SendText(s);
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
end;
 
function TForm1.decodeEntete(s:string):string;
var i: integer;
  key1, key2, data: string;
begin
  data := ''; key1 := ''; key2:='';
  For i := 1 to 10 do begin
    if(pos('Sec-WebSocket-Key1: ', Memo1.Lines[i]) > 0) then
      key1 := Memo1.Lines[i]
    else if(pos('Sec-WebSocket-Key2: ', Memo1.Lines[i]) > 0) then
      key2 := Memo1.Lines[i];
 
    case i of
      3: host   := copy(Memo1.Lines[i], 7, length(Memo1.Lines[i]));
      4: origin := copy(Memo1.Lines[i], 9, length(Memo1.Lines[i]));
      8: data   := Memo1.Lines[i];
    end;
  end;
 
  key1 := copy(key1, 21, length(key1));
  key2 := copy(key2, 21, length(key2));
 
  result := Hixie76Signature(key1, key2, data);
 
end;
 
function Tform1.Hixie76Signature(key1, key2, data: string): string;
var test, n1, n2, totalKey: string;
    i, s1, s2: integer;
    p1, p2: LongWord;
    resultHexa: string;
    Token : string;
begin
  result := '';
  s1 := 0;
  n1 := '';
  s2 := 0;
  n2 := '';
  for i := 1 to length(key1) do
  begin
    if ((key1[i] >= '0') and (key1[i] <= '9')) then
      n1 := n1 + key1[i];
    if (key1[i] = ' ') then
      inc(s1);
  end;
  for i := 1 to length(key2) do
  begin
    if ((key2[i] >= '0') and (key2[i] <= '9')) then
      n2 := n2 + key2[i];
    if (key2[i] = ' ') then
      inc(s2);
  end;
 
  p1 := StrToInt64(n1) div s1;
  p2 := StrToInt64(n2) div s2;
 
  p1 := SwapLongword(p1);
  p2 := SwapLongword(p2);
 
  SetLength(Token, 16);
  CopyMemory(@Token[1], @p1, 4);
  CopyMemory(@Token[5], @p2, 4);
  CopyMemory(@Token[9], @data[1], 8); 
 
  resultHexa := md5(Token);
  // Hexa -> Binaire, MD5 ne fourni que des digits de 0 à 7F, pas besoin d'UTF8
  SetLength(Result, 16);
  HexToBin(@resultHexa[1], @Result[1], 16);
 
 
 
end;
 
function TForm1.md5(const Input: String): String;
var
  hCryptProvider: HCRYPTPROV;
  hHash: HCRYPTHASH;
  bHash: array[0..$7f] of Byte;
  dwHashBytes: Cardinal;
  pbContent: PByte;
  i: Integer;
 
begin
  dwHashBytes := 16;
  pbContent := Pointer(PChar(Input));
 
  Result := '';
 
  if CryptAcquireContext(@hCryptProvider, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET) then
  begin
    if CryptCreateHash(hCryptProvider, CALG_MD5, 0, 0, @hHash) then
    begin
      if CryptHashData(hHash, pbContent, Length(Input) * sizeof(Char), 0) then
      begin
        if CryptGetHashParam(hHash, HP_HASHVAL, @bHash[0], @dwHashBytes, 0) then
        begin
          for i := 0 to dwHashBytes - 1 do
          begin
            Result := Result + Format('%.2x', [bHash[i]]);
          end;
        end;
      end;
      CryptDestroyHash(hHash);
    end;
 
    CryptReleaseContext(hCryptProvider, 0);
  end;
 
  Result := AnsiLowerCase(Result);
end;
 
function TForm1.SwapLongword(Value: Longword): Longword;
asm
  BSWAP EAX
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket1.Open;
  StatusBar1.Panels[1].Text := ' Connecté';
end;
 
end.

EDIT:

Je viens de m'appercevoir que à ce niveau là :

Code:

1
2
3
4
5
p1 := StrToInt64(n1) div s1;
  p2 := StrToInt64(n2) div s2;
 
  p1 := SwapLongword(p1);
  p2 := SwapLongword(p2);

p1 = p2 !!
Pas normal... ???

Code:

8: data := Memo1.Lines[i];

Dans une autre version de ton code, tu avais mis 9 !
Retire cette utilisation par ligne, recupère les 8 derniers octets directement

s c'est le paramètre de decodeEntete qui j'ai bien lu, c'est le contenu de Socket.ReceiveText;
Code:

1 2 data := copy(s, Length(s) - 8 + 1, 8); key1 := copy(key1, 21, length(key1));
je modifierais ça
Code:

1 2 s := Socket.ReceiveText; Memo1.Lines.Add(s);
en ça
Code:

1 2 s := Socket.ReceiveText; Memo1.Lines.Text := s;
il y a très peu de probablité que P1 et P2 soit Egaux

Citation:

Je sais bien qu'il faut faire de faux truc pour tester mais sur un test serveur je ne vois pas comment ...

oubli la notion de serveur pour le debug !
tu fais un Bouton et un code de test comme
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure TForm1.ButtonTest(Sender: TObject); var s: string; begin s := 'GET /demo HTTP/1.1' + #13#10 + 'Host: example.com' + #13#10 + 'Connection: Upgrade' + #13#10 + 'Sec-WebSocket-Key2: 12998 5 Y3 1 .P00' + #13#10 + 'Sec-WebSocket-Protocol: sample' + #13#10 + 'Upgrade: WebSocket' + #13#10 + 'Sec-WebSocket-Key1: 4 @1 46546xW%0l 1 5' + #13#10 + 'Origin: http://example.com' + #13#10 + + #13#10 + '^n:ds[4U' Memo1.Lines.Text := s; ShowMessage(decodeEntete(s) + ' doit être : "8jKS''y:G*Co,Wxa-"'); end;

29/06/2011, 17h43
shadow578
J'ai fait ce que tu m'as dit et j'ai des carrés à la place... regarde ;)

http://s3.noelshack.com/upload/7795242977742_test.png

L'encodage mauvais ?

Le problème vient de là:
Code:

1 2 p1 := SwapLongword(p1); p2 := SwapLongword(p2);
P1 et P2 devient égaux ! Toujours égale à ceci: 2552216064

Tu utilises un Memo1 !
Bon, tu as pensé à retirer WordWrap ?
Tu as corrigé 8 et 9

ou utilisé cette variante

Code:

1
2
 data := copy(s, Length(s) - 8 + 1, 8);
 key1 := copy(key1, 21, length(key1));

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var 
    p1, p2: LongWord;
    p1BE, p2BE: LongWord;
...
 
  p1 := StrToInt64(n1) div s1;
  p2 := StrToInt64(n2) div s2;
 
  p1BE := SwapLongword(p1);
  p2BE := SwapLongword(p2);
 
  SetLength(Token, 16);
  CopyMemory(@Token[1], @p1BE, 4);
  CopyMemory(@Token[5], @p2BE, 4);
  CopyMemory(@Token[9], @data[1], 8);

C'est étrange, je l'ai testé en C++Builder, tu devrais tester de la même façon !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
//---------------------------------------------------------------------------
 
//#pragma option push -w-rvl
LongWord __fastcall SwapLongword(LongWord Value)
{
  asm
  {
    BSWAP EAX;
  }
}
//#pragma option pop
 
void __fastcall TBeginningCPPMainForm::Button1Click(TObject *Sender)
{
  LongWord p1, p2;
  p1 = 123;
  p2 = 456;
 
  p1 = SwapLongword(p1);
  p2 = SwapLongword(p2);
 
  ShowMessage(p1);
  ShowMessage(p2);
}

J'ai testé de Delphi aussi, je n'ai pas de mélange de valeur !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//---------------------------------------------------------------------------
 
   function SwapLongword(Value: Longword): Longword;
   asm
    BSWAP EAX
   end;
 
procedure TFirstProjectMain.Button1Click(Sender: TObject);
var
  p1, p2: LongWord;
begin
  p1 := 123;
  p2 := 456;
 
  p1 := SwapLongword(p1);
  p2 := SwapLongword(p2);
 
  ShowMessage(IntToStr(p1));
  ShowMessage(IntToStr(p2));
end;

30/06/2011, 10h08
shadow578

Wordwrap était sur true mais ça ne change rien ..

J'ai essayé avec ton code est j'obtiens 2552216064 avec P1BE = P2BE !!

Ça me rend dingue ! :aie:

Citation:

Envoyé par shadow578

Wordwrap était sur true mais ça ne change rien ..

8O Tu te rends compte que si le memo n'était pas assez large cela décale TOUS les Offsets !

Je crois que tu vas rester Dingue, le code fonctionne en C++Builder 2007 et Delphi XE, Bon Courage !

Il n'y a aucune raison que sur D7 cela ne fonctionne pas !
J'ai écrit la fonction ASM pour D6 ! C'est TRES VIEUX, j'ai eu besoin de passer du Big Endian en Little Endian et cela fonctionnait très bien en D6 et D7 !

Citation:

4146546015 div 5 -> 829309203 -> 323055153
1299853100 div 5 -> 259970620 -> 1020689935

2552216064 est une valeur qui n'entre JAMAIS dans l'opération, tu as une erreur bien avant !
As-tu vérifié n1 et n2 ?

Sur Delphi XE, j'obtiens

Citation:

---------------------------
Firstproject
---------------------------
8jKS'y:G*Co,Wxa- doit être : "8jKS'y:G*Co,Wxa-"
---------------------------
OK
---------------------------

Ton code fonctionne même sous XE, j'ai juste utiliser AnsiChar et AnsiString ce qui est implicite en D7 (sous XE ce n'est plus le cas !)

Code:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
unit FrmFirstProjectMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Vcl.StdCtrls, wcrypt2;
 
type
  TFirstProjectMain = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ButtonTest: TButton;
    procedure Button1Click(Sender: TObject);
procedure ButtonTestClick(Sender: TObject);
  private
    { Déclarations privées }
function decodeEntete(s:Ansistring):Ansistring;
function Hixie76Signature(key1, key2, data: Ansistring): Ansistring;
function md5(const Input: Ansistring): Ansistring;  public
    { Déclarations publiques }
  end;
 
var
  FirstProjectMain: TFirstProjectMain;
 
 
 
implementation
 
{$R *.dfm}
 
   function SwapLongword(Value: Longword): Longword;
   asm
    BSWAP EAX
   end;
 
procedure TFirstProjectMain.Button1Click(Sender: TObject);
var
  p1, p2: LongWord;
begin
  p1 := 123;
  p2 := 456;
 
  p1 := SwapLongword(p1);
  p2 := SwapLongword(p2);
 
  ShowMessage(IntToStr(p1));
  ShowMessage(IntToStr(p2));
end;
 
function TFirstProjectMain.decodeEntete(s:Ansistring):Ansistring;
var i: integer;
  key1, key2, data: Ansistring;
  host, origin: Ansistring;
begin
  data := ''; key1 := ''; key2:='';
  For i := 1 to 10 do begin
    if(pos('Sec-WebSocket-Key1: ', Memo1.Lines[i]) > 0) then
      key1 := Memo1.Lines[i]
    else if(pos('Sec-WebSocket-Key2: ', Memo1.Lines[i]) > 0) then
      key2 := Memo1.Lines[i];
 
    case i of
      3: host   := copy(Memo1.Lines[i], 7, length(Memo1.Lines[i]));
      4: origin := copy(Memo1.Lines[i], 9, length(Memo1.Lines[i]));
 
    end;
  end;
 
  data := copy(s, Length(s) - 8 + 1, 8);
  key1 := copy(key1, 21, length(key1));
  key2 := copy(key2, 21, length(key2));
 
  result := Hixie76Signature(key1, key2, data);
 
end;
 
 
 
 
procedure TFirstProjectMain.ButtonTestClick(Sender: TObject);
var s: ansistring;
begin
  s := 'GET /demo HTTP/1.1' + #13#10 +
        'Host: example.com' + #13#10 +
        'Connection: Upgrade' + #13#10 +
        'Sec-WebSocket-Key2: 12998 5 Y3 1  .P00' + #13#10 +
        'Sec-WebSocket-Protocol: sample' + #13#10 +
        'Upgrade: WebSocket' + #13#10 +
        'Sec-WebSocket-Key1: 4 @1  46546xW%0l 1 5' + #13#10 +
        'Origin: http://example.com' + #13#10
       + #13#10 +
        '^n:ds[4U';
 
 
  Memo1.Lines.Text := s;
  ShowMessage(decodeEntete(s) + ' doit être : "8jKS''y:G*Co,Wxa-"');
end;
 
function TFirstProjectMain.Hixie76Signature(key1, key2, data: Ansistring): Ansistring;
var test, n1, n2, totalKey: Ansistring;
    i, s1, s2: integer;
    p1, p2: LongWord;
    resultHexa: Ansistring;
    Token : Ansistring;
    PToken: PAnsiChar;
begin
  result := '';
  s1 := 0;
  n1 := '';
  s2 := 0;
  n2 := '';
  for i := 1 to length(key1) do
  begin
    if ((key1[i] >= '0') and (key1[i] <= '9')) then
      n1 := n1 + key1[i];
    if (key1[i] = ' ') then
      inc(s1);
  end;
  for i := 1 to length(key2) do
  begin
    if ((key2[i] >= '0') and (key2[i] <= '9')) then
      n2 := n2 + key2[i];
    if (key2[i] = ' ') then
      inc(s2);
  end;
 
  p1 := StrToInt64(n1) div s1;
  p2 := StrToInt64(n2) div s2;
 
  p1 := SwapLongword(p1);
  p2 := SwapLongword(p2);
 
  SetLength(Token, 16);
  PToken := PAnsiChar(Token);
  CopyMemory(PToken, @p1, 4);
  Inc(PToken, 4);
  CopyMemory(PToken, @p2, 4);
  Inc(PToken, 4);
  CopyMemory(PToken, PAnsiChar(data), 8);
 
  resultHexa := md5(Token);
  // Hexa -> Binaire, MD5 ne fourni que des digits de 0 à 7F, pas besoin d'UTF8
  SetLength(Result, 16);
  HexToBin(Pansichar(resultHexa), Pansichar(Result), 16);
 
 
 
end;
 
function TFirstProjectMain.md5(const Input: Ansistring): Ansistring;
var
  hCryptProvider: HCRYPTPROV;
  hHash: HCRYPTHASH;
  bHash: array[0..$7f] of Byte;
  dwHashBytes: Cardinal;
  pbContent: PByte;
  i: Integer;
 
begin
  dwHashBytes := 16;
  pbContent := Pointer(PAnsiChar(Input));
 
  Result := '';
 
  if CryptAcquireContext(@hCryptProvider, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET) then
  begin
    if CryptCreateHash(hCryptProvider, CALG_MD5, 0, 0, @hHash) then
    begin
      if CryptHashData(hHash, pbContent, Length(Input) * sizeof(AnsiChar), 0) then
      begin
        if CryptGetHashParam(hHash, HP_HASHVAL, @bHash[0], @dwHashBytes, 0) then
        begin
          for i := 0 to dwHashBytes - 1 do
          begin
            Result := Result + Format('%.2x', [bHash[i]]);
          end;
        end;
      end;
      CryptDestroyHash(hHash);
    end;
 
    CryptReleaseContext(hCryptProvider, 0);
  end;
 
  Result := AnsiLowerCase(Result);
end;
 
end.

30/06/2011, 10h24
shadow578

(n1) / (s1) = P1 P1BE
4146546015 / 5 = 829309203 -> SwapLongword -> 2552216064
1299853100 / 5 = 259970620 -> SwapLongword -> 2552216064
(n2) / (s2) = P1 P2BE

Donc le problème vient réelement de SwapLongword...

Je viens de tester ton dernier code j'obtient la même clé !!

Je reprend tout et je verifie !! :D

Tu as un délire de l'optimisation !
C'est très génant, il ne doit pas aimer !
As-tu un Warning concernant Result ?

utilise donc l'autre SwapLongWord
Code:

1 2 3 4 5 6 7 8 9 function SwapLongword(Value: Longword): Longword; type MapLongword = array[0..3] of Byte; begin TMapLongword(Result)[0] := TMapLongword(Value)[3]; TMapLongword(Result)[1] := TMapLongword(Value)[2]; TMapLongword(Result)[2] := TMapLongword(Value)[1]; TMapLongword(Result)[3] := TMapLongword(Value)[0]; end;
Il est plus long mais fait la même chose !

30/06/2011, 10h42
shadow578

alors après vérification que la clé est correct j'essaye avec le socket... serveur fermé je répond mal mais je peut en déduire que cela ne vient pas de la clé ..
30/06/2011, 10h48
ShaiLeTroll

Tu as corrigé quoi finalement pour que le SwapLongWord fonctionne ?

Pour la transmission de la réponse et la gestion par Chrome, je ne peux pas t'aider !
Va falloir que tu trouves des outils de débug pour Chrome, cela doit bien exister !
30/06/2011, 10h52
shadow578

Je n'est rien fait à par reprendre ton code ... Je ne pense pas que le fait de le mettre en premier change guère alors je ne sais pas...

En tout cas bizarre que je n'arrive pas à répondre l'entête que je répond et celle de Wikipédia avec mes infos et la clé doit être bien répondu puisque le fonctionnement de transformation marche en test..

Ca marche !!!! :ccool::ccool:

Chrome à un debug il manquait un slash aprés localhost '/' -_- !!

Merci à toi en tout cas !
30/06/2011, 11h07
ShaiLeTroll

C'était un sujet très interessant !
Après que tu auras poussé plus loin !
Je serais content de voir ton composant pour la gestion du Streaming en WebSockets avec les Objets HTML5 !
30/06/2011, 11h08
shadow578

Je compte continuer et je viendrais sur ce topic faire part des avancés ;) :ccool:
30/06/2011, 13h55
VLDG

Citation:

Envoyé par ShaiLeTroll

Delphi On Rails ? ce n'est plus du Delphi mais du Ruby (c'est tout aussi éloigné de Delphi que l'est Delphi For PHP)

http://code.google.com/p/delphionrails/

celui la : c'est bien du Delphi (Pascal)

Pour ceux qui cherchent encore une solution (comme moi il y a encore 5 minutes :D) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
  ..., IdBaseComponent, IdCoder, IdCoder3to4, IdCoderMIME, IdHashSHA1, IdGlobal;
 
...
 
function GetWebSocketAcceptKey(const WebSocketKey: string): string;
const
  cMagicString = '258EAFA5-E914-47DA-95CA-C5AB0DC85B11';
var
  HashSHA1: TIdHashSHA1;
begin
  Result := '';
 
  HashSHA1 := TIdHashSHA1.Create;
  try
    Result := TIdEncoderMIME.EncodeBytes(HashSHA1.HashString(WebSocketKey + cMagicString, TIdTextEncoding.Default));
  finally
    HashSHA1.Free;
  end;
end;