УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 124 из 677

124

Опции темы

Поиск в этой теме

Опции просмотра

#1231

27.03.2008, 13:17

KIR@PRO

Постоянный

Регистрация: 26.12.2007

Сообщений: 353

Провел на форуме:
905389

Репутация: 332

Отправить сообщение для KIR@PRO с помощью ICQ

дайте пожалуйста код хеширования строки в NT и/или LM как в проге SAMinside иди Passwordpro...

#1232

27.03.2008, 14:45

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

Провел на форуме:
4037638

Репутация: 1821

Отправить сообщение для De-visible с помощью ICQ

Цитата:

Сообщение от KIR@PRO

дайте пожалуйста код хеширования строки в NT и/или LM как в проге SAMinside иди Passwordpro...

Тебе важны сами алгоритмы или их реализации на DELPHI??

-------------------------

Вот посмотри еще:

Код:

_http://inf.nm.ru/lokalno.htm
_http://www.3dnews.ru/software/win-xp-encrypting/index2.htm
_http://www.openwall.com/john/
_http://www.connect.ru/article.asp?id=6641
_http://www.web-hack.ru/download/index.php?case=4
_http://book.itep.ru/6/des_641.htm
_http://www.kursovik.net/programming/290019.html

Последний раз редактировалось De-visible; 27.03.2008 в 15:34..

#1233

28.03.2008, 19:38

Twiddle

Познающий

Регистрация: 06.09.2006

Сообщений: 94

Провел на форуме:
397064

Репутация: 15

Подскажите плз как изменить что бы не было повторов в найденом? ВОт код:

Код:

procedure poisk;
var S, Q: TStrings;
    I, J: Integer;
begin
  S := TStringList.Create;
  Q := TStringList.Create;
  S.LoadFromFile('C:\bla-bla.txt');
  I := 0;
  J := 0;
  while I<S.Count-1 do
  begin
    if Pos('string 1', S.Strings[I])<>0 then
    begin
      Q.Add(S.Strings[I]);
      Inc(I);
      Inc(J);
      Q.Add(S.Strings[I]);
      Q.Add('');
    end;
    Inc(I);
  end;
  if J>0 then
  begin
    Q.Insert(0, '');
    Q.Insert(0, DateToStr(Now));
    Q.Insert(0, 'Naydenno '+IntToStr(J)+' strok');
    Q.SaveToFile('c:\result.txt');
  end;

  S.Free;
  Q.Free;
end;

#1234

28.03.2008, 22:32

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

Провел на форуме:
4037638

Репутация: 1821

Цитата:

Сообщение от Twiddle

Подскажите плз как изменить что бы не было повторов в найденом? ВОт код:

Код:

procedure poisk;
var S, Q: TStrings;
    I, J: Integer;
begin
  S := TStringList.Create;
  Q := TStringList.Create;
  S.LoadFromFile('C:\bla-bla.txt');
  I := 0;
  J := 0;
  while I<S.Count-1 do
  begin
    if Pos('string 1', S.Strings[I])<>0 then
    begin
      Q.Add(S.Strings[I]);
      Inc(I);
      Inc(J);
      Q.Add(S.Strings[I]);
      Q.Add('');
    end;
    Inc(I);
  end;
  if J>0 then
  begin
    Q.Insert(0, '');
    Q.Insert(0, DateToStr(Now));
    Q.Insert(0, 'Naydenno '+IntToStr(J)+' strok');
    Q.SaveToFile('c:\result.txt');
  end;

  S.Free;
  Q.Free;
end;

Цитата:

while I<S.Count-1 do

Зачем так - он у тебя последнюю строку не проверит!
пиши так

Код:

while i<S.count

или

Код:

while i<=s.count-1

А что бы в result.txt не было повторов
сделай повторный поиск поэтому файлу

===============================

Код:

procedure poisk;
var SL,Ish: TStringList;
i:integer;
begin
  ISH:=TstringList.Create;
  ISH.LoadFromFile('d1.txt');
  SL := TStringList.Create;
  with SL do
    try
      Sorted := True;
      For i:=0 to ISH.Count-1 Do Begin
      SL.Add(ISH[i]);
      end;
      Duplicates := dupIgnore;
      sl.SaveToFile('result.txt');
  finally
    Free;
  end;
end;
-----------------------------

Удаляет все дубликаты и сохраняет в result.txt
А чего ты именно хочешь?()
Вывести сколько раз в файле встречается строка String 1?

Последний раз редактировалось De-visible; 29.03.2008 в 01:13..

#1235

29.03.2008, 00:57

z01b

Постоянный

Регистрация: 05.01.2007

Сообщений: 508

Провел на форуме:
2360904

Репутация: 1393

Программа должна сначала спросить имя, потом спросить сколько раз её вывести, а потом это имя вывести n - раз.
Помогите плз очень нужно.

Последний раз редактировалось z01b; 29.03.2008 в 01:35..

#1236

29.03.2008, 01:34

~~zl0y~~

Banned

Регистрация: 13.09.2006

Сообщений: 523

Провел на форуме:
2869410

Репутация: 925

Отправить сообщение для zl0y с помощью ICQ

program name;

{$APPTYPE CONSOLE}

uses
SysUtils;
var TmpName : string;
Count,i : Integer;

begin
WriteLn('What is your name? and credit card number

');
ReadLn(TmpName);
WriteLn('Enter number te repeat:');
ReadLn(Count);
if Count=0 then exit;
for i:=1 to Count do WriteLn(TmpName);
end.

#1237

29.03.2008, 01:36

z01b

Постоянный

Регистрация: 05.01.2007

Сообщений: 508

Провел на форуме:
2360904

Репутация: 1393

Цитата:

Сообщение от zl0y

program name;

{$APPTYPE CONSOLE}

uses
SysUtils;
var TmpName : string;
Count,i : Integer;

begin
WriteLn('What is your name? and credit card number

');
ReadLn(TmpName);
WriteLn('Enter number te repeat:');
ReadLn(Count);
if Count=0 then exit;
for i:=1 to Count do WriteLn(TmpName);
end.

File not found <SYSUTILS.TPU>. Не пашет твоя программа.

Последний раз редактировалось z01b; 29.03.2008 в 01:42..

#1238

29.03.2008, 09:51

Twiddle

Познающий

Регистрация: 06.09.2006

Сообщений: 94

Провел на форуме:
397064

Репутация: 15

De-visible
Спасибо, код

Цитата:

procedure poisk;
var SL,Ish: TStringList;
i:integer;
begin
ISH:=TstringList.Create;
ISH.LoadFromFile('d1.txt');
SL := TStringList.Create;
with SL do
try
Sorted := True;
For i:=0 to ISH.Count-1 Do Begin
SL.Add(ISH[i]);
end;
Duplicates := dupIgnore;
sl.SaveToFile('result.txt');
finally
Free;
end;
end;

работает но есть одно но. Моя прога зачастую ищет и записывает в файл сочетания строк. Нпример:
Строка имени
Стрка адресса

Страка имени 2
Строка адресса 2
итп,
а когда сортируешь через этот код (стрнг листовский) то он все перемешивает, т.е. идут уже не пары а все в каше, сначала имена потом адресса, а хотелось бы что бы все было как найдено только без повторов.

#1239

29.03.2008, 12:11

MSDEN

Новичок

Регистрация: 07.05.2007

Сообщений: 12

Провел на форуме:
77696

Репутация: 1

я в дельфи вообще не силен...
подскажите пожалуйста как сделать билдер(как пинчбилдер) если есть исходник программы?
в программе нужно менять две переменных перед созданием билда
не надо только говорить о том как это делается без компилятора, мне нужна именно форма где будет 2 едита и кнопка для создания