AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi uses JwaWinCrypt für RDC / wo finde ich das
Thema durchsuchen
Ansicht
Themen-Optionen

uses JwaWinCrypt für RDC / wo finde ich das

Ein Thema von Jerry · begonnen am 15. Jun 2007 · letzter Beitrag vom 17. Jun 2007
Antwort Antwort
Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#1

uses JwaWinCrypt für RDC / wo finde ich das

  Alt 15. Jun 2007, 08:29
Ich möchte aus Delphi den Remote Desktop Client (RDC) aufrufen. Zu diesem Aufruf möchte ich das Passwort hinterlegen können. Dazu habe ich bereits folgenden Eintrag gefunden, siehe unten, aber dieses JwaWinCrypt finde ich einfach nicht... . Kann mir jemand helfen wo das zu finden ist (habe bereits über google gesucht). Vielen Dank für Eure Hilfe.

Delphi-Quellcode:
uses JwaWinCrypt;

function CryptRDPPassword(sPassword: string): string;
var DataIn: DATA_BLOB;
    DataOut: DATA_BLOB;
    pwDescription: PWideChar;
    P: PByte;
    I: Integer;
    PwdHash: string;
begin
  PwdHash := '';

  DataOut.cbData := 0;
  DataOut.pbData := nil;

  // RDP uses UniCode
  DataIn.pbData := Pointer(WideString(sPassword));
  DataIn.cbData := Length(sPassword) * SizeOf(WChar);

  // RDP always sets description to psw
  pwDescription := WideString('psw');

  if CryptProtectData(@DataIn,
                      pwDescription,
                      nil,
                      nil,
                      nil,
                      CRYPTPROTECT_UI_FORBIDDEN, // Never show interface
                      @DataOut) then
  begin
    // Convert the DataBlob to Hex String
    P := DataOut.pbData;
    I := DataOut.cbData;

    PwdHash := '';
    while (I > 0) do begin
      Dec(I);
      PwdHash := PwdHash + IntToHex(P^, 2);
      Inc(P);
    end;
  end;

  Result := PwdHash;

  // Cleanup
  pwDescription := nil;
  LocalFree(Cardinal(DataOut.pbData));
  LocalFree(Cardinal(DataIn.pbData));

end;
[edit=Matze][delphi]-Tags repariert. MfG, Matze[/edit]
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: uses JwaWinCrypt für RDC / wo finde ich das

  Alt 15. Jun 2007, 08:40
Die Unit ist Teil der JEDI API Library. Diese bekommst du hier:

http://jedi-apilib.sourceforge.net/
André
"A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann

Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
  Mit Zitat antworten Zitat
Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#3

Re: uses JwaWinCrypt für RDC / wo finde ich das

  Alt 15. Jun 2007, 08:43
danke für den Tipp. War auf der Seite, welche Datei muss ich jetzt genau herunterladen, wie wird diese implementiert.
Sorry check das nicht ganz.

Danke!!
  Mit Zitat antworten Zitat
Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#4

Re: uses JwaWinCrypt für RDC / wo finde ich das

  Alt 15. Jun 2007, 08:46
habs gefunden!

vielen Dank!
  Mit Zitat antworten Zitat
Benutzerbild von Remko
Remko

Registriert seit: 10. Okt 2006
Ort: 's-Hertogenbosch, Die Niederlande
222 Beiträge
 
RAD-Studio 2010 Arc
 
#5

Re: uses JwaWinCrypt für RDC / wo finde ich das

  Alt 17. Jun 2007, 09:02
It always amazes me that the Jedi Apilib project is unknown for many people. Perhaps we can a sticky post of what is and where to find it (Can one of the Mods take care of this)?

Thank you!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz