Serveur renvoie avec THTTPClient.post "enable Javascript"

**Ardely** · 20/12/2018, 11h27

Bonjour,

Je n'arrive pas à envoyer les deux valeurs Value1 et Value2 par
"http.Post(..." sur un Serveur en PHP
je reçois comment erreur "please enable Javascript.."

J'ai bien cherché et si j'ai bien compris je devrais envoyer mes variables en plein texte ou .. ?!,
mais je ne sais pas comment...

J'utilise "Firemonkey 10.2" pour une application multi device.
Que dois-je changer ou ajouter dans mon 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
 
var
  http: THTTPClient;
  params: TStringList;
  LResp: IHTTPResponse;
begin
 
    sUrl := 'http://srvDB.MonSite.com/login.php';
 
    http := THTTPClient.Create;
 
    params := TStringList.Create;
    params.Add( 'Value1=12345');
    params.Add( 'Value2=email');
 
    http.ConnectionTimeout := 3000;
    http.ResponseTimeout := 3000;
 
    LResp := http.Post(sUrl, params, nil, TEncoding.UTF8);
    Result := LResp.ContentAsString;
 
    http.Free;
 
end;

Entre autres j'ai aussi essayé ceci, mais l'erreur persiste toujours.

Code :

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

1
2
3
 
      http.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; WOW64)' ;
      http.Accept := 'text/html';

Voici le résultat de retour du serveur PHP.

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
 
<html>
	<body>
		<script type="text/javascript" src="/aes.js" ></script>
<script>
   function toNumbers(d){var e=[];d.replace(/(..)/g,
   function(d){e.push(parseInt(d,16))});return e}function toHex(){for(var d=[]
   d=1==arguments.length&&arguments[0].constructor==Array?arguments[0]:arguments,e="",
   f=0;
   f<d.length;f++)e+=(16>d[f]?"0":"")+d[f].toString(16);return e.toLowerCase()}
   var 
	a=toNumbers("f655ba9d09a112d4968c63579db590b4"),
	b=toNumbers("98344c2eee86c3994890592585b49f80"),
	c=toNumbers("c2f6ffa715a49499b0f9d11384c676c3");
	document.cookie="__test="+toHex(slowAES.decrypt(c,2,a,b))+";
	expires=Thu, 31-Dec-37 23:55:55 GMT; path=/";
	location.href="http://srvDB.MonSite.com/login.php?i=1";
</script>
	<noscript>This site requires Javascript to work, please enable Javascript in your browser 
					or use a browser with Javascript support
	</noscript>
	</body>
</html>

Je vous remercie beaucoup pour votre aide et votre assistance.
Cordialement

**Paul TOTH** · 20/12/2018, 13h07

le serveur en question utilise Javascript pour valider le login...sois tu embarque un moteur JS, soit tu truandes en recalculant sous Delphi ce qu'il fait...mais tu n'est pas à l'abris d'un changement d'algorithme qui rendrait ton code incompatible avec le serveur.

je vois pas bien l'intérêt mais bon..

tu peux avec Chrome voir ce qui passe dans tes requêtes (F12, onglet réseau)

tu as trois variables a, b, c et un algorithme (AES), et tu dois produire le même résultat que ce que contiendra le cookie __test

Code :

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

1
2
 
  cookie := AES('c2f6ffa715a49499b0f9d11384c676c3', 2, 'f655ba9d09a112d4968c63579db590b4', '98344c2eee86c3994890592585b49f80');

ensuite il suffit d'invoquer http://srvDB.MonSite.com/login.php?i=1

bon courage

**Ardely** · 20/12/2018, 17h16

Merci beaucoup pour votre réponse si rapide.

Pour éviter ses problèmes je me suis inscrit sur un autre serveur.
Je suis entrains de faire des tests et le tout me semble fonctionner.

Cordialement

Serveur renvoie avec THTTPClient.post "enable Javascript"

Delphi

Vue hybride

Discussions similaires

Partager

Partager