Einzelnen Beitrag anzeigen

Benutzerbild von Back2Code
Back2Code

Registriert seit: 6. Feb 2012
Ort: Deutschland
272 Beiträge
 
Delphi XE7 Professional
 
#12

AW: Einloggen mit idhttp auf https-Server

  Alt 7. Nov 2013, 14:10
Mach mal nen Get auf die Html und speichere dir den Quelltext und guck ob da der Key drin ist. Wenn ja, dann speicherst du dir die Value in einer Variable

Code:
value="D9EB8685177B7F25E374FFA82D4276391DDC84E5F39 DE4A62A87EBBF015E0B174ED6797B23BA3D5D390D4FD2708C9 7972D5E9E7D7BBB9E3FF5FC90A04BF17C4496FE20F273799A7 059660BC3EAD4F2592D0DDE6FE7E950AA78A259B7188AD7ECC D7DC4777811AE7B2762B09730AC195A4B453C9C5986D1DCEC7 B60C1AD0D3580766BECB216D82A2A190BE8E2074631C78D9D8 90678C799D79E79FD979F012C9A3F21D94EBFD48673EDB79DB 1B6AC29987AAD9E332DA727306663FAF9B25093EB11767B70C AD78618709A334F7C721858FF5347FED56B4CE8C42A0A44913 87AFE828B6B12101" /><input type="hidden" id="rsa_e" name="e" value="10001" />

Ich mach dir mal nen Beispiel

Delphi-Quellcode:
function GetBetween (Str: String; StrStart : String; StrEnd : String) : String;
var
  iPos : Integer;
  BackUp : String;
begin
  result := '';
  iPos := Pos (StrStart, Str);
  if iPos <> 0 then begin
    Delete (Str, 1, iPos + Length (StrStart) - 1);
    iPos := Pos (StrEnd, Str);
    if iPos <> 0 then begin
      result := Copy(Str,1, iPos - 1);
    end;
  end;
end;
Aufruf:

sRSAKey := GetBetween(sQuelltext, 'value="', '" /><input type="hidden" id="rsa_e"');
00111100001100110010000001000100011001010110110001 1100000110100001101001
  Mit Zitat antworten Zitat