ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
10.12.2007, 19:02
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
Сообщение от LEE_ROY
пробелы поставь правельно, выведи запрос в строку, в эдит какойто edit3.text := 'select * from userlist where firstName' + Edit1.Text + 'and lastName' + Edit2.Text; и глянь где пробелы непарвльно стоят, скорее всего в этом трабла. с тебя ящик пива :P
да таже хня что и была, должно же = быть вроде?
Последний раз редактировалось XIII; 10.12.2007 в 20:37..
|
|
|
10.12.2007, 08:39
|
|
Постоянный
Регистрация: 15.03.2006
Сообщений: 600
Провел на форуме:
5091304
Репутация:
1203
|
|
ТАк, первый пост я вообще не в тему запостил ... не заметил что ты про програмный код, начал уже до перла распинаться ... одумался.
Есть решения, в примеру ASProtect
https://www.softactivation.com/asp/asprotect.asp
Это как пример
FLEX LM, HASP.
Но это для теории, сломано уже все.
|
|
|
|
10.12.2007, 09:01
|
|
Познающий
Регистрация: 27.03.2007
Сообщений: 95
Провел на форуме:
244822
Репутация:
37
|
|
есть замечательная прога кот. шифрует только значение строковых переменных
http://www.securitylab.ru/software/234296.php
мне нада чтобы полностью процедуру и т.д.
|
|
|
|
10.12.2007, 22:35
|
|
Новичок
Регистрация: 09.12.2007
Сообщений: 19
Провел на форуме:
82252
Репутация:
1
|
|
как убить мышу????
|
|
|
|
10.12.2007, 22:59
|
|
Участник форума
Регистрация: 28.10.2007
Сообщений: 143
Провел на форуме:
913233
Репутация:
162
|
|
Сообщение от P@rtiZaN
как убить мышу????
мышиловка, отрава, ногой можно, об стену, еще вариант
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
pr: PRect;
begin
r.Left := 0;
r.Top := 0;
r.Right := 0;
r.Bottom := 0;
pr := @r;
ClipCursor(pr);
end;
ну еще
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
CState: Integer;
begin
CState := ShowCursor(True);
while Cstate >= 0 do
Cstate := ShowCursor(False);
end;
|
|
|
|
10.12.2007, 23:47
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('Select * from userlist where firstName = "'+Edit1.Text+'" and lastName = "'+Edit2.Text+'"');
вот так вроде работает, а как сделать если совпали то напишит что совпали =)
|
|
|
|
11.12.2007, 04:46
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 331
Провел на форуме:
1724067
Репутация:
806
|
|
МуСкул
to XIII
Код:
procedure TForm2.Button2Click(Sender: TObject);
var s:string;
begin
s:='select * from userlist where firstName="'+Edit3.Text+'" and lastName="'+Edit6.Text+'"';
ShowMessage(s);
SimpleDataSet1.DataSet.CommandText:=s;
SimpleDataSet1.DataSet.Active:=false;
SimpleDataSet1.Active:=false;
SimpleDataSet1.DataSet.Active:=true;
SimpleDataSet1.Active:=true;
if DataSource1.DataSet.RecordCount = 0 then
begin
ShowMessage('Такого Логина нету');
end
else ShowMessage('OK');
end;
Полностью рабочая процедурка под кнопку. У меня на локальной машине с Денвером все работает безотказно. |
|
|
|
11.12.2007, 18:29
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 331
Провел на форуме:
1724067
Репутация:
806
|
|
Шифрования
to cyber$nake.
В последних сообщениях как говорится смешались в кучу кони й люди. Может я конечно что-то неправильно понял, но -
Начну с шифрования исходников: в Делфи это бесполезная вещь. Если не хоч давать исходники не давай, давай сам екзешник. Применения шифрования к исходникам я видел лишь один раз - в фирме старый програмист позаменял название переменных и функций на случайные комбинации. С одной стороны все просто, но с другой - пришлось заново переписывать с нуля прогу ведь розобраться в исходниках стало нереально.
Шифрование екзешников: Здесь проше и эфективнее будет использовать уже готовый продукт. Например тотже разрекламированый АспПротект последней версии или другой не очень известный. Если грамотно поставить эти крипторы, то этим задача крякеров осложняется в несколько раз, а для средняков и насчинающих это капец.  В том же АспПротекте кажется можно указывать шифровать участки кода. И для последней версии в паблике нету автоматического расшифровщика. |
|
|
|
11.12.2007, 21:34
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
1 - Виртуальная машина - VMProtect
2 - пакеры/крипторы/протекторы - DotFix FakeSigner
3 - имена функций типа FFFFx0
4 - Delphi String Protect прога защитит string-овые данные.
думаю хватит... проблем с поиском софта не возникнет, поэтому не дал линков.
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
11.12.2007, 23:29
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
presidentua спасибо больше, тока вот оно выдаёт всю строку а как сделать чтобы отдельное поле только
--
уже разобрался
Последний раз редактировалось XIII; 11.12.2007 в 23:44..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид