Witam,
mam taki kodzik
procedure TForm1.Button1Click(Sender: TObject);
Begin
ClientSocket1.Host:= '127.0.0.1';
ClientSocket1.Port:= 9051;
ClientSocket1.Active := true;
Label2.Caption := 'jest polaczenie :-)';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
webbrowser1.navigate(Edit1.text);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if ClientSocket1.Socket.Connected then
begin
ClientSocket1.Socket.SendText('AUTHENTICATE kurwa\r\n');
ClientSocket1.Socket.SendText('signal NEWNYM\r\n');
Label2.Caption := 'Wykonano zapytanie';
end
else
begin
Label2.Caption := 'Problem';
end;
end;
Nie wiem dlaczego po kliknięciu w button 1 i 3 nie jest zmieniane IP w torze.
Jeżeli mam na localu postawionego apache + php to taki kod php ładnie zmienia tożsamość:
<?
function tor_new_identity($tor_ip='127.0.0.1', $control_port='9051', $auth_code='"kurwa"'){
$fp = fsockopen($tor_ip, $control_port, $errno, $errstr, 30);
if (!$fp) return 1;
fputs($fp, "AUTHENTICATE $auth_code\r\n");
$response = fread($fp, 1024);
list($code, $text) = explode(' ', $response, 2);
if ($code != '250') return 0;
fputs($fp, "signal NEWNYM\r\n");
$response = fread($fp, 1024);
list($code, $text) = explode(' ', $response, 2);
if ($code != '250') return 3;
fclose($fp);
return 4;
}
echo tor_new_identity();
?>
Z góry dziękuję za pomoc.
Pozdrawiam.