Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
09.02.2008, 05:25
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Понимаю что глупо звучит, но ни у кого нету готовых исходников бекдора на делфи, с функцией просмотра локальных дисков, и скачивание файла с винчестера???
|
|
|
09.02.2008, 10:55
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Nightmarе
Понимаю что глупо звучит, но ни у кого нету готовых исходников бекдора на делфи, с функцией просмотра локальных дисков, и скачивание файла с винчестера???
достаточно 1 ссылку посмотреть
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
09.02.2008, 12:10
|
|
Новичок
Регистрация: 09.11.2007
Сообщений: 24
Провел на форуме:
60954
Репутация:
3
|
|
var
str1,str2 : array[0..128]of char;
begin
str1:='Скомпелируем в';
str2:='месте!';
lstrcat(str1,str2);
MessageBox(0,str1,0,0);
end;
buf:array[0..100] of char;
s1  char='file1';
s2 char='file2';
s3 char;
s3:=lstrcpy(buf, s1);
s3:=lstrcat(buf, s2);
writeln(s3); zl0y, noobyara, спасибо огромное!!!Оч помогли!
|
|
|
|
09.02.2008, 14:13
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
без библиотеки windows ... должна бы помочь lstrcat
как-то противоречиво. Почему windows нельзя использовать? Это ж тупо Win API
Последний раз редактировалось Joker-jar; 09.02.2008 в 14:14..
Причина: очепятки
|
|
|
|
09.02.2008, 15:55
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме:
2715445
Репутация:
588
|
|
Сообщение от Derec
Hellsp@wn, и так пробовал, почему то обнуляет строку s2  потому что надо по-нормальному с pchar работать 
Код:
tmpstr1 := pointer(LocalAlloc(lmem_ZeroInit,255));
tmpstr2 := pointer(LocalAlloc(lmem_ZeroInit,255));
lstrcpyA(tmpstr1,'blabla1');
lstrcpyA(tmpstr2,'blabla2');
lstrcatA(tmpstr1,tmpstr2);
|
|
|
|
10.02.2008, 02:49
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Посмотрел исходники бекдоров... гораздо проще с нуля написать бекдора с одной функцией, чем вырезать тонны кода....
Может кто-нибудь может накатать примерный код на делфи, что должен делать сервер, и клиент который мог бы качать файлы... если конешн не сложно
|
|
|
|
10.02.2008, 08:35
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Nightmarе
Посмотрел исходники бекдоров... гораздо проще с нуля написать бекдора с одной функцией, чем вырезать тонны кода....
Может кто-нибудь может накатать примерный код на делфи, что должен делать сервер, и клиент который мог бы качать файлы... если конешн не сложно
на: http://slil.ru/25456476
чуть чуть поискать и сразу находишь =\
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
10.02.2008, 15:38
|
|
Познающий
Регистрация: 11.11.2007
Сообщений: 89
Провел на форуме:
243903
Репутация:
15
|
|
как из компонента ListView скопировать строчку в буфер?
Последний раз редактировалось Ridikh; 10.02.2008 в 18:28..
|
|
|
|
10.02.2008, 21:31
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от Ridikh
как из компонента ListView скопировать строчку в буфер?
Чё за компонент ListView я хз, может имелся ввиду ListBox???
Тогда делай так:
ClipBoard.AsText := ListBox1.Items[1];
где 1 это номер строки, 0 это самая первая строка 1 это вторая и и т.д...
Главное не забудь в uses добавить компонент Clipbrd
Или например с memo так:
ClipBoard.AsText := Memo1.Lines[0];
Думаю далее разберёшься...
|
|
|
|
11.02.2008, 14:31
|
|
Познающий
Регистрация: 11.11.2007
Сообщений: 89
Провел на форуме:
243903
Репутация:
15
|
|
сделал, еще проблемка
что нужно вставить в буфер, чтобы был конец строки
например надо вставить :
1
2
ClipBoard.AsText:='1'+конец строки +'2'
вот как конец строки выглядит?
Последний раз редактировалось Ridikh; 11.02.2008 в 15:20..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
