ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
28.03.2009, 19:34
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Народ подскажите где в коде ошибка...
Код:
program lol;
{$APPTYPE CONSOLE}
uses windows, winsock,sysutils,MPlayer;
var
Media:TmediaPlayer;
BEGIN
with media do begin
filename := 'C:\system.wav';
open;
wait := false;
startrecording;
end;
END.
Вот небольшой консольный код, компилируется нормально, файл C:\system.wav существует, однако при запуске через CMD.exe вылетает с ошибкой:
Exception EAccessViolation in module lol.exe at 00047790.
Access violation at address 00447790 in module 'lol.exe'. Read of address 000
00094.
Если этот же кусок кода юзать в простом неконсольном приложении то никаких проблемм...
Подскажите плз где тут ошибка... |
|
|
28.03.2009, 20:07
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Nightmarе//Модуль к чему подключен?
media не создано, нужно его создать
Код HTML:
[src delphi]program lol;
{$APPTYPE CONSOLE}
uses
SysUtils, MPlayer;
var
Media: TMediaPlayer;
BEGIN
Media := TMediaPlayer.Create(nil);
try
Media.Filename := 'C:\system.wav';
Media.Open;
Media.Wait := False;
Media.StartRecording;
finally
Media.Free;
end;
END.[/src]
Последний раз редактировалось KaZ@NoVa; 29.03.2009 в 10:52..
|
|
|
|
28.03.2009, 22:01
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от WiPztin
как сделать в паскале вопросы...
через текстовый документ?
т.е я хочу сделать так=>
в блокноте записать:
вопрос
1)вариант ответа
2)вариант ответа
3)вариант ответа
первый-верный!
нужно сделать так что бы он (верный ответ) на экран не выводился...
надеюсь поняли...
то есть в условии сказано что первый верный заведомо?
и нумерация именно 1) 2) 3)
Если Да!!!
тогда можно считывать строку пока не конец файла
примерно
Код HTML:
while not(eof(f)) do begin
readln(s);
if s[1] <> 1 then p[i]=s;
i:=i+1;
end;
где f - файл
s - строка
i - целое
p - array[1...d] of string;
всю прогу не пишу, но суть такая)
Последний раз редактировалось KaZ@NoVa; 28.03.2009 в 22:04..
|
|
|
|
29.03.2009, 01:04
|
|
Новичок
Регистрация: 18.03.2009
Сообщений: 5
Провел на форуме:
11685
Репутация:
0
|
|
копировать файлы
написал кейлогер с использованием dll.. сделал exeшник с извлечением ресурсов exe и dll в C:/system/ и запуском exe после извлечения.. все хорошо но хотел закинуть это дело в интернет кафе а там учетная запись ограниченая то есть файлы при копировании в системные папки пишет отказ в доступе!!
подскажите как можно решить эту проблему? очень нужно!!
|
|
|
|
29.03.2009, 09:09
|
|
Участник форума
Регистрация: 16.07.2008
Сообщений: 159
Провел на форуме:
1063538
Репутация:
240
|
|
Как залить на фтп, ну или на хост чтобы не вводить логин и пароль, папки и в них еще есть файлы?
|
|
|
|
29.03.2009, 10:33
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от Sin3v
Как залить на фтп, ну или на хост чтобы не вводить логин и пароль, папки и в них еще есть файлы?
Ты сам читал, что написал? Я ничего не понял, напиши по-русски.
|
|
|
|
29.03.2009, 10:35
|
|
Участник форума
Регистрация: 16.07.2008
Сообщений: 159
Провел на форуме:
1063538
Репутация:
240
|
|
Ну у меня папка в ней папки а в папках файлы мне надо залить все из той папки на фтп программно
|
|
|
|
29.03.2009, 10:54
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от Sin3v
Ну у меня папка в ней папки а в папках файлы мне надо залить все из той папки на фтп программно
А тебе нужно просто скажем просто чтоб кто-то скачал это всё? или чтоб именно доступ был через фтп?
. просто если только скачать надо, то лучше сначала зазиповать всю папку, затем залить на файлообменник)
нормальный фтп серв вот
http://www.filehoster.ru/
ещё есть вариант злоупотребить моим доступом к одному серверу, но это может быть только на короткие сроки( пока не пропалит администрация)..
P.s Изучай теорию сокетов и протоколов.
Последний раз редактировалось KaZ@NoVa; 29.03.2009 в 11:51..
|
|
|
|
29.03.2009, 10:55
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от gashish_tema
написал кейлогер с использованием dll.. сделал exeшник с извлечением ресурсов exe и dll в C:/system/ и запуском exe после извлечения.. все хорошо но хотел закинуть это дело в интернет кафе а там учетная запись ограниченая то есть файлы при копировании в системные папки пишет отказ в доступе!!
подскажите как можно решить эту проблему? очень нужно!!
Там стоит поговорить с местным сисадмином. Если он не даст этого сделать то пути два: 1)смириться с проблемой 2) взломать комп. И то и то довольно сложно.
|
|
|
|
29.03.2009, 12:00
|
|
Участник форума
Регистрация: 16.07.2008
Сообщений: 159
Провел на форуме:
1063538
Репутация:
240
|
|
Короче пишу троя он дожен перелить все папки с файлами отсюда куданить на хост или на фтп чтобы не вводить логин и пароль C:\Documents and Settings\*******\Application Data\Mra\real_sinev@mail.ru
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
