[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

gh-62, советую погуглить на тему htmlpars.pas или THTMLParser.

 

http://sources.codenet.ru/download/477/FinderMem.html

 

Nightmarе, тут не так все просто, когда ты нашел адрес скажем 02BA3118, то по нему допустим распологается

Code:

02BA3118      41            INC     ECX

То есть увеличения допустим чего либо или уменьшение, это DMA игры, то есть игры с Динамическим Расспределением Памяти, с каждым перезапуском программы новый адрес, почитать по теме нахождения реальных адресов можно здесь
http://team-x.ru/info.php?article=trainermaking/13

 

Да в общем случае адрес изменяющий определенное значение в игре расположен чуть ниже чем реальный адрес, который находится постоянно, достаточно взглянуть в сайсе, я когдато тоже так думал на практике же гораздо проще.

 

Что-нить типа

Code:

ProgressBar1.Min := N;
ProgressBar1.Max := M;
for i := N to M do begin
  comanda;
  ProgressBar1.Position := ProgressBar1.Position + 1;
end;

Для совместной работы прогрессбара с таймером

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
  Timer1.Interval := 1000;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if progressbar1.Position = progressbar1.Max then
    progressbar1.Position := 0
  else
    progressbar1.Position := progressbar1.Position + 1;
end;

 

progressbar1.Position:=0;
progressbar1.Max:=N-M;
for i:= N to M do
begin
comanda;
progressbar1.stepit;
end;

 

Есть 2 вопросика... мучают меня уже давно.

1) Как средствами delphi вытащить пароли из The Bat и Outlook. И вообще, если кто знает, дайте ссылки на подобные темы.

2) Каким образом можно проанализировать методы шифрования паролей, например в том же The Bat. Как дешифровать? Естественно средствами Delphi. Вот кажется что Bat шифрует все простым xor'ом. Но как именно... Также интересуют стайтьи на данную тему.

 

1) XOR далеко не прост!!!
2) По правилам итерации (двойной xor и т.п.)

 

А можно подробнее???

Nightmare, большое спасибо за компоненты, но помоему к 3 версии бата они не подходят

Вот, например, пинч же как-то их тянет? Безумно интересно как он это делает.

 

И как к нему достучаться? Я бы с удовольствием пообщался бы на эту тему.

 

Nightmarе

Code:

if str[i]=';' then 
begin
  insert(copy(memo1.line,1,i-1),memo2.line,1)
end;

И так же с паролями, только заменив:

Code:

insert(copy(memo1.line,i+1,length(str)-i),memo3.line,1);

 

Code:

...
var
 i:integer;
 str:string

 

Nightmarе
str - строка из memo1, просто берешь по строке прогоняешь в цикле пока строки не закончатся...
В memo2 - uin, в memo3 - пароль.
Чуть изменил:

Code:

i: integer;
str: string;
........
for i:=1 to N do
begin
str:=memo1.lines.strings[i];
  insert(copy(str,1,pos(';',str)-1), memo2.lines.add, 1);
  insert(copy(str,pos(';',str)+1,length(str)-pos(';',str)), memo3.lines.add, 1);
end;

 

Ошибка в memo2.lines.add и memo3.lines.add - извини ступил...так добавлять нельзя!
А вот если задать еще и str2, str3: string; то работать будет
Проверил =)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
str, str2, str3: string;
begin
  for i:=0 to 10 do
  begin
    str:=memo1.lines.strings[i];
    insert(copy(str,1,pos(';',str)-1), str2, 1);
    insert(copy(str,pos(';',str)+1,length(str)-pos(';',str)), str3, 1);
    end;
     memo2.lines.Add(str2);
     memo3.lines.add(str3);
end;

update:
Незабывай, работает при разделителе ; между уином и паролем...

 

TStringList - рульная вешь

Code:

var 
ss:Tstrings;
begin
ss:=TStringList.Create;
ss.LoadFromFile('uins.txt');
ss.NameValueSeparator:=';';
ICQClient1.UIN := StrToInt(ss.Names[1]);
ICQClient1.Password := ss.ValueFromIndex[1];
(c)Izos

 

чуть опоздал, но на всяк ещё способ

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,n:dword;
  s:string;
begin
  for i:=0 to memo1.Lines.Count-1 do
  begin
    n := pos(';',memo1.Lines.Strings[i]);
    If (n > 0) then
    begin
      s := copy(memo1.Lines.Strings[i],1,n-1);
      memo2.Lines.Add(s);
      inc(n);
      s := copy(memo1.Lines.Strings[i],n,length(memo1.Lines.Strings[i]) - n);
      memo3.Lines.Add(s);
    end;
  end;
end;

 

такая ситуация..
Есть Edit1 и кнопка... Нужно реалтзовать поиск по БД методом Lookup по полю F

В Table1 - F
В Table2 - No Dg D As

при значении которого нет в бд все ок, выдает месачж что нет.. но када вводиш правельное значение выдает ошибку типа не может найти No Dg D As....

Собственна как искать в другой таблице?

Table2.No и Table2No - некатят....

 

Nightmarе
ИМХО мой работает =) ... Просто сделай в моем варианте обработку всех строк мемо, а то я так, 10 штук взял в пример

Code:

i:=0 to memo1.Lines.Count-1

Его вариант тоже будет работать правильно, если здесь будет так:

Code:

 s := copy(memo1.Lines.Strings[i],n,length(memo1.Lines.Strings[i]) - [B][U]n+1[/U][/B]);
      memo3.Lines.Add(s);

 

набирал в блокноте, по-этому накосячил да, там +1 нада.

 

все там нормально пашет...

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
ss:Tstrings;
i:integer;
begin
  ss:=TStringList.Create;
  ss.LoadFromFile('uins.txt');
  ss.NameValueSeparator:=';';
  for i:=0 to ss.Count-1 do
    begin
      ICQClient1.UIN := StrToInt(ss.Names[i]);
      ICQClient1.Password := ss.ValueFromIndex[i];
    end;
end;

end.