Question

求达人把 帖子里的 DElphi 源码 转换成易语言源码。

自己是维护网吧的一个普通 技术员。 现在网吧维护很多。远程地址也很多。
自己已经写好 一套关于Radmin 自动登入的软件。现在想把 微软的 mstsc 也写一套。
由于mstsc 密码加密 已经超过我的能力，找了很多资料 都没有 结果。
网络上找了一段关于 mstsc 加密的 Delphi 源码，本人才疏学浅 不懂 Delphi。
特来请教 论坛里的大神。请把以下源码 转换成 易语言源码。
不胜感激。

function CryptRDPPassword(sPassword: string): string;
var DataIn: DATA_BLOB;
DataOut: DATA_BLOB;
pwDescription: PWideChar;
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
PwdHash := BlobDataToHexStr(DataOut.pbData, DataOut.cbData);
end;
Result := PwdHash;
// Cleanup
LocalFree(Cardinal(DataOut.pbData));
LocalFree(Cardinal(DataIn.pbData));
end;

Answer 1

不懂易语言
var DataIn: DATA_BLOB; delphi没有这个类型，代码不全，没有记录定义
这段代码是加密用的
MSTSC可以通过查找窗口句柄，发送帐号密码来登录的