ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Uses ******, ActiveX;

****************

function CreateGuid: string;
var
  ID: TGUID;
begin
  Result := '';
  if CoCreateGuid(ID) = S_OK then
    Result := GUIDToString(ID);
end;



*******
s:='Это Спам, спам, спам, умри тупой юзер!!!!'+createguid;
*******

Uses ******, ActiveX;// Нужная нам функция нахожится в ActiveX

****************

function CreateGuid: string;  //Функция для создания и перевода GUID в строку
var
  ID: TGUID;  //Переменная в которую создадим GUID
begin
  Result := ''; // Просто на всякий случай.
  if CoCreateGuid(ID) = S_OK then // Если GUID нормально создался
    Result := GUIDToString(ID); // То результат переводим в string.
end;



*******
s:='Это Спам, спам, спам, умри тупой юзер!!!!'+createguid; //К нашей строке со спамом добавляем GUID
*******