Um den VNC Server für zukünftige Aufgaben anpassen zu können möchte ich, sofern dies möglich ist, einen opensource VNC verwenden. Zum Schreiben in die Registry benutze ich folgenden Code
Delphi-Quellcode:
u:=DES_Encrypt('hugohugo',VNC_DES_Key);
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\ORL\WinVNC3', true) then
begin
try
reg.WriteBinaryData('aaa',u,sizeof(u));
except
end;
end;
finally
reg.Free;
end;
Das Ergebnis ist dann
Zitat:
aaa -> a8 11 ce 00
Password -> a9 12 64 c2 00 de 76 65
Wie du siehst führe ich meine Tests nur mit 8 Zeichen langen Passwörtern durch. Als VNC Referenz habe ich hier TightVNC genommen, da der Quelltext (d3des.c) sehr gut zu deiner
Unit zu passen scheint(s. Anhang).