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

Кто знает, дайте совет !
У меня что-то с Явой ! Всё время выскакивают такие сообщения:

(в браузере)
SecurityError: Error #2060: Нарушение изолированной среды: вызывающий объект ExternalInterface 
http://img2.imgsmail.ru/r/my/app/flash_lc.swf не может осуществить доступ к 
http://connect.mail.ru/share_button?width=580&height=20&show_faces=true&show_text=true&test=true&domain=cards.
mail.ru&url=http%3A%2F%2Fcards.mail.ru%2Fredirect%2Fmy_share_url.tmpl%3Fcid%3D108048&buttonID=9052116&faces_
count=10&caption=%D0%9D%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%81%D1%8F&wid=9402684&app_id=-1&fcid=5829180&host=
http%3A%2F%2Fcards.mail.ru.
at flash.external::ExternalInterface$/_initJS()
at flash.external::ExternalInterface$/call()
at flash_lc/flashReady()
at flash_lc/connectionSetup()
at flash_lc()


ИЛИ...

(в аське)
TypeError: Error #1009: Не удается вызвать свойство или метод со ссылкой на объект "null".
at zones.utils::Scroller()
at zones.boxes::ScrollerBox/init()
at zones.boxes::Box/setObjects()
at zones.boxes::ImageAndScrollerBox()
at zones::BoxesManager/addBoxes()
at zones::BoxesManager/loadXML()
at flash.events::EventDispatcher/dispatchEventFunction()
at flash.events::EventDispatcher/dispatchEvent()
at flash.net::URLLoader/onComplete()

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

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

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

Альтернатива IT-шным сообществам mail.ru и другим подобным платформам


[ Читать далее... → ]

Народ помогите найти компонент для архивации файлов Zip, Rar, и чтобы можно было бы ставить пароли на архивы!!

Привет опытным архиваторам !!!
Кто подскажет прогу хорошо сжимающую мультимедийные файлы ! А то WinRAR не справляется. В справке проги ответа нет. Мне достаточно сжать до 75%, т.е. в полтора раза. И не сломается ли графика при таком сжатии ?

Компания 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

НАрод помогитеВот код кароче надо чтоб по окончанию рассылки сообщений вылазио сообщение

var
i:integer;
begin
application.Title:=form1.Caption;
idSmtp1.host:=Edit1.text;
idsmtp1.port:=25;
idsmtp1.Username:=Edit2.Text;
idsmtp1.Password:=LabeledEdit3.Text;
ms.body.add(Memo1.text);
ms.From.Text:=LabeledEdit2.Text;
For I:=0 to Memo2.Lines.Count-1 do
  begin
  ms.Recipients.EMailAddresses:=memo2.Lines.Strings[i];
  ms.Subject:=LabeledEdit1.Text;
  idsmtp1.Connect();
  if idsmtp1.Connected=true then
  begin
  idsmtp1.Send(ms);
  sleep(TrackBar1.Position);
  application.Title:=form1.Caption;
  ShowMEssage('Сообщение отправлено на ' + ms.Recipients.EMailAddresses);
  idsmtp1.Disconnect;
end;
end;
end;

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

народ опять нужна помощь!label
gotolabel;
var
i:integer;
begin
idSmtp1.host:=Edit1.text;
idsmtp1.port:=25;
idsmtp1.Username:=Edit2.Text;
idsmtp1.Password:=LabeledEdit3.Text;
ms.body.add(Memo1.text);
ms.From.Text:=LabeledEdit2.Text;
For I:=0 to Memo1.Lines.Count-1 do
ms.Recipients.EMailAddresses:=memo2.Lines.Strings[i];
ms.Subject:=LabeledEdit1.Text;
idsmtp1.Connect();
if idsmtp1.Connected=true then
goto gotolabel;
exit;
gotolabel:
idsmtp1.Send(ms);
idsmtp1.Disconnect;
ShowMEssage('Сообщение отправлено!');


Вот код смотрите мне надо чтоб он его разослал всем кто находится всем кто находится в мемо1 вот все перепробовал не получается может кто посоветует???

Народ помогите зделать так чтоб в дельфи программа вывела все числа до 1000в мемо!
0
1
2
3
4
5
6
7
8
..
и вот так вот до 1000
сам пробовал не получается раньше делал а щас не помню как помогите пожалуйста!! 

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

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

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

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

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

Продам свое ПО написанное в дельфях! Имеется фейки, трояны вирусы!
Также пишу под заказ любой сложности могу продать программу блокирующую
винду (винлокер, вирус вымогатель) также любой сложности! О цене
договоримся!!  Не дороги пишите!!! Жду!!! Оплата происходит на вебмани,
яндекс деньгах, смс, деньги на телефон, майл деньги!!!

Народ посоветуйте хороший не дорогой vps или vds сервер!!! Тока чтоб не дорого! Мне 50 мб хватит!

Люди помогите пожалуйста я не могу запустить дельфи 7 вылетает ошибка при запуске :

Точка входа в процедуру PnplsFilePnpDriver не найдена в библиотеке DLL SETUPAPI.DLL.

Дельфи раз 10 переустанавливал не помогает, тока если на безопасном режиме загружаюсь тока тогда она запускается! А как сделать чтоб она запускалась как раньше??  А ведь раньше все нормально было..

Народ кто нить умеет работать с 2D графикой?? Научите плизз, а то  я ваще в этом деле нуб=(

Доброе время суток!
Я написал-скопировал перехватчик системных сообщений и настроил его так, чтобы при нажатии левой WinKey вылазило окно. Оно вылезло, но проблема в том, что при этом выпадает и меню "Пуск", как исправить ситуацию? 
Заранее благодарен за помощь. 


function KeyboardProc(code: integer; wParam: word; lParam: longint) : longint; stdcall;
var AppWnd:HWND;
Begin
  if code < 0 then
    Result:= CallNextHookEx(CurHook, Code, wParam, lParam)
  else
    begin
      if Byte(LParam shr 24)<$80 then
        begin
          AppWnd:= FindWindow(nil, PChar('Перехватчик'));
          SendMessage(AppWnd,HookMsg,wParam, GetCurrentThreadId {lParam});
          Result:=CallNextHookEx(CurHook, Code, 0, lParam);
        end;
     end;
end;

Народ подаю хороших троянов и вирусов написанных в дельфи также могу подогнать исходник блокера винды о цене договоримся!

продаю хороший блокератор  винды сделан в делфи =)стоимость 300 руб

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

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

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.

Помогите ибо едет крыша. 
В отсортированной строке массива вида 1 1 1 22 34 34 46 найти колво одинаковых символов. 
Спасите от красноглазия.

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