Взлом Касперского 7.0.0.124

DOS

Дата: Воскресенье, 14.06.2009, 18:46 | Сообщение # 1

Генералиссимус

Группа: Администратор

Сообщений: 709

Репутация: 102

Статус: Offline

Привет всем smile

сейчас я на простом примере в Delphi покажу как можно работать с реестром! Причем паралельно мы напишем прогу которая будет ломать дни в Касперском 7.0.0.124

В Delphi 2 и выше появился объект TRegistry при помощи которого очень просто работать с реестром. Но мы здесь рассмотрим функции API, которые доступны и в Delphi 1.

Реестр предназначен для хранения системных переменных и позволяет зарегистрировать файлы программы, что обеспечивает их показ в проводнике с соответствующей иконкой, вызов программы при щелчке на этом файле, добавление ряда команд в меню, вызываемое при нажатии правой кнопки мыши над файлом. Кроме того, в реестр можно внести некую свою информацию (переменные, константы, данные о инсталлированной программы ...). Программу можно добавить в список деинсталляции, что позволит удалить ее из менеджера "Установка/Удаление программ" панели управления.

По даным от пользователя MELK с нашего форума (http://fssr.ru/hz.php?name=Forums&file=viewtopic&t=23652&sid=ea513cdde5be2cc64c099112da949503)

Запись о наших ключах храниться в 2х ветках реестра,а именно:
HKEY_LOCAL_MACHINESOFTWAREKasperskyLabLicStorage
HKEY_LOCAL_MACHINESOFTWAREMicrosoftSystemCertif icatesSPCCertificates

Можно их удалить и свободно пользоваться касперским еще 30 дней...
Но мне лично думаю БУДЕТ влом каждый месяц в реестр лазить (хотя робота непыльная,но на то нам и Дельфи,что бы делал сею роботу за нас!) вот я и решил почему не написать прогу которая ветки реестра удалит? Да и к тому же попрактикуюсь в програмировании! Ну вот сел я за дело!
Перелопатил кучу статей (большинство было клонами) и все таки написал эту прогу.если есть желание полопатить тоже вот самая толковая http://www.codenet.ru/progr/delphi/stat/registry.php

Отсюда я узнал как можно удалить ветки реестра (процес узнавания я небуду описывать,вы сами почитайте). Вот код сией програмы!

DOS

Дата: Воскресенье, 14.06.2009, 18:47 | Сообщение # 2

Генералиссимус

Группа: Администратор

Сообщений: 709

Репутация: 102

Статус: Offline

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,registry;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
KeyWin='SOFTWAREKasperskyLabLicStorage';
KeyWin1='SOFTWAREMicrosoftSystemCertificatesSPCCertificates';
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
reg.DeleteKey(KeyWin);
reg.DeleteKey(KeyWin1);
Reg.CloseKey;
Reg.Free;
end;
end.

Жмем на кнопочку и радуемся smile

Взлом Касперского 7.0.0.124 - Форум