Исходники программ

[Solide Snake]

Думаю полезная тема будет как для новичков, так и для тех кто хорошо разбирается в программировании)
Выкладывайте в эту тему различные исходники программ, запросы на исходники оставляем так-же в этой теме.

Вот вам для начала парочка:)

Древний Telnet, но для новичков будет норм)
Скачать (http://ifolder.ru/6088031)


Простой ICQ бот.
Скачать (http://sources.codenet.ru/file/1500/ICQ+BOT.rar)


Task Manager. Убивает любой процесс в Windows даже если пользователь не обладает правами админа(только должна быть привелегия создания удаленного потока- по умолчанию она есть для обычного пользователя)
Скачать (http://ifolder.ru/6088098)


Исходники ОС Idioma (C++), компилятся из под DOS(DJGPP) и Linux(gcc).
P.S: Нечто похожее на первые потуги Линуса :-)
Скачать (http://ifolder.ru/6088118)


Прога для просмотра автозапуска через реестр.
Скачать (http://ifolder.ru/6088140)


Ищем все компьютеры в сети (Delphi)
Скачать (http://ifolder.ru/6088813)


Простой FTP сервер (Delphi)
Скачать (http://ifolder.ru/6088831)


Простейший сниффер для NT-платформ. Ловит пакеты и с ppp-соединения (Delphi)
Скачать (http://ifolder.ru/6088855)


Очень простенький почтовый клиент написанные в Delphi6 с использованием компонентов FastNet. (Delphi)
Скачать (http://ifolder.ru/6088867)


Простейший сниффер под W2K/XP (C++)
Скачать (http://ifolder.ru/6088905)


Интерфейс для прослушивания событий запущенного Internet Explorer (C++)
Скачать (http://ifolder.ru/6088926)

[KemSucks]

исходники лоадера пожалуйста кто нибудь выложите,желательно на делфи,заранее спасибо;)

[Solide Snake]

Пример создания Loader'а на Delphi (исходники).
Скачать (http://ifolder.ru/6089843)

Исходник программы, предназначенной для обмена мгновенными сообщениями (полный аналог ICQ). Это небольшая компонента, которая позволяет вам общаться с ICQ пользователями прямо из вашей программы. Исходники довольно хорошо описаны (правда на английском), так что можно без проблем расширять возможности компоненты. (Delphi)
Скачать (http://ifolder.ru/6104937)

Исходник достаточно простого для понимания и быстрого сканера портов. (Delphi)
Скачать (http://ifolder.ru/6104959)

Исходник программы, предназначенной для мониторинга активности сетевых интерфейсов с построением графиков активности. (Delphi)
Скачать (http://ifolder.ru/6104991)

Исходник программы, показывающей пример создания простейшего прокси-сервера на основе компонента TGpHTTPProxy. (Delphi)
Скачать (http://ifolder.ru/6105011)

Исходник программы, предназначенной для отправки электронной почты с возможностью прикрепления файла к сообщению (используются компоненты SMTPClient и SMTPMess). (Delphi)
Скачать (http://ifolder.ru/6105042)

Исходники TCP клиент-сервера. (C++)
Скачать (http://ifolder.ru/6119729)

Получение хистори из Internet Explorer. (C++)
Скачать (http://ifolder.ru/6119799)

Программа отправки пейджинговыйх сообщений через e-mail. (C++)
Скачать (http://ifolder.ru/6119837)

Простой чат для локальлной сети. Сервер и клиент. (C++)
Скачать (http://ifolder.ru/6119851)

Компонент OCX для организации голосовой прозвонки. (C++)
Скачать (http://ifolder.ru/6119865)

[desTiny]

Не очень сложный IRC-бот (Delphi) (coded давно by я:))
Скачать (http://webfile.ru/1869736)
пасс: Antichat

[Ch3ck]

Можно скопипастить все программы с ishodniki.ru и подобных ему сайтов...

[St0nX]

если кто встречал или может у кого есть исходники на С++ (api) отправка файла почтой с авторизацией выложите пожалуйста

[zythar]

боян.
читал и скачивал давно на сайте ishodnniki.ru.

если кто встречал или может у кого есть исходники на С++ (api) отправка файла почтой с авторизацией выложите пожалуйста

читай RFC протоколо + юзай сокеты и будет тебе счастье

[taha]

2All:
http://sourceforge.net/
http://www.koders.com/
http://ishodniki.ru/

[FeraS]

http://delphisources.ru/
В свое время частенько качал отседова примеры)

[xcedz]

нде... а не проще качнуть

Архив статей по C/CPP. На данный момент в архиве более 6600 статей, собранных преимущественно с русскоязычных ресурсов сети Интернет. Есть система управления архивом статей - это переделанная с разрешения автора программа DelphiWorld. С ее помощью можно эффективно искать необходимый код. Все статьи разбиты на категории, а те в свою очередь на подкатегории - 23 и 205 соответственно. Ниже приведен список категорий: ASM all, Borland CPP, CPP - чистый, Microsoft DirectX, UNIX, Visual CPP, Visual CPP .NET, Win32 API, Алгоритмы - математика, криптография. Описание многих алгоритмов, Библиотечные функции Borland CPP, Графика, Дата, время, таймеры, И снова математика - теория чисел, Литература - как книги, так и множество ссылок на таковые, Переполнение буфера, Приложение - все что с ним связано, Примеры разработки - совсем маленьким, Разное - комментарии к статьям, разные заметки, Сеть, Система. Общее, Стандарты программирования, Файловая система, Элементы управления - разные кнопочки, меню и т.д.

пям по морде :) (http://cracklab.ru/download.php?action=get&n=NjM1)

или
по делфям


пям еще раз ;) (http://delphiworld.narod.ru/dw.html)

и вся недолга :)

а потом видимо приходит опыт и тд

[Freedom]

Ребят а есть исходники каких нибудь регеров? Желательно работающие но можно и любые. Хочу посмотреть принцип действия.

[vp$]

исходники аналога Brutus AET2 на дельфи скачать (http://vps.nxt.ru/webhacker.rar)

[baltazar]

Пишем письмо незаметно от пользователя по протоколу SMTP:
{
smtp - ip адрес smtp сервера
port - порт smtp сервера, по умолчанию 25
from - адрес отправителя
dest - адрес получателя
subject - тема письма
body - текст писма
Возвращает True если письмо было успешно отправленно...
}
function mail(smtp: string; port: integer; from, dest, subject,
body: string): bool;
const
cl = #13#10;
var
WSAData: TWSAData;
Host: TSockAddrIn;
Sock: TSocket;
res: Integer;
buff: array[1..255] of Char;
{ отправляем данные через сокет }
procedure senddata(str: string);
var
i: integer;
begin
for i := 1 to Length(str) do
if send(Sock, str[i], 1, 0) = SOCKET_ERROR then
exit;
end;
{ получаем ответ от команды }
function recvdata(accept: string): bool;
var
buff: array[1..255] of Char;
begin
res := recv(Sock, buff, SizeOf(buff), 0);
Result := (Res = SOCKET_ERROR) or (Copy(buff, 1, 3) = accept);
end;
begin
try
result := false;
{ инициализация сокета }
WSAStartUp(257, WSAData);
Sock := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
if Sock = INVALID_SOCKET then
Exit;
{ устанавливаем хост и порт сервера }
res := inet_addr(PChar(smtp));
if res <= 0 then
exit;
Host.sin_family := AF_INET;
Host.sin_port := htons(port);
Host.sin_addr.S_addr := res;
{ подключаемся к серверу }
if connect(Sock, Host, SizeOf(Host)) > 0 then
Exit;
{ приветствие сервера }
if not recvdata('220') then
Exit;
{ EHLO }
senddata('EHLO' + cl);
if not recvdata('250') then
Exit;
{ MAIL FROM: }
senddata('MAIL FROM:' + from + cl);
if not recvdata('250') then
Exit;
{ RCPT TO: }
senddata('RCPT TO:' + dest + cl);
if not recvdata('250') then
Exit;
{ DATA }
senddata('DATA' + cl);
if not recvdata('354') then
Exit;
{ отправляем текст сообщения }
senddata('Subject:' + subject + cl + cl + body + cl + '.');
if not recvdata('250') then
Exit;
{ отключаемся от сервера }
senddata('QUIT' + cl);
result := true;
finally
{ убиваем сокет }
closesocket(sock);
WSACleanup;
end;
end;
{
mail('127.0.0.1',25,'bboy-ne@yandex.ru' ,'admin@company.mail', 'subj', 'body text');
}

Тоже самое,но короче
unit Email;
interface
uses
Windows, SusUtils, Classes;
function SendEmail(const RecipName, RecipAddress,
Subject, Attachment: string): Boolean;
function IsOnline: Boolean;
implementation
uses Mapi;
function SendEmail(const RecipName, RecipAddress,
Subject, Attachment: string): Boolean;
var
MapiMessage: TMapiMessage;
MapiFileDesc: TMapiFileDesc;
MapiRecipDesc: TMapiRecipDesc;
i: integer;
s: string;
begin
with MapiRecipDesc do
begin
ulRecerved:= 0;
ulRecipClass:= MAPI_TO;
lpszName:= PChar(RecipName);
lpszAddress:= PChar(RecipAddress);
ulEIDSize:= 0;
lpEntryID:= nil;
end;
with MapiFileDesc do
begin
ulReserved:= 0;
flFlags:= 0;
nPosition:= 0;
lpszPathName:= PChar(Attachment);
lpszFileName:= nil;
lpFileType:= nil;
end;
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(Subject);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 1;
lpRecips := @MapiRecipDesc;
if length(Attachment) > 0 then
begin
nFileCount:= 1;
lpFiles := @MapiFileDesc;
end
else
begin
nFileCount:= 0;
lpFiles:= nil;
end;
end;
Result:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG
or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) = SUCCESS_SUCCESS;
end;
function IsOnline: Boolean;
var
RASConn: TRASConn;
dwSize,dwCount: DWORD;
begin
RASConns.dwSize:= SizeOf(TRASConn);
dwSize:= SizeOf(RASConns);
Res:=RASEnumConnectionsA(@RASConns, @dwSize, @dwCount);
Result:= (Res = 0) and (dwCount > 0);
end;
end.

[_Great_]

А кто будет посылать полезные поля From, To и Content-Type?)

[Amoura]

Сканер портов (С++)
скачать (http://ifolder.ru/6382516)

[bxN5]

есть у кого исходники мультимедийного учебника, или что то на подобее, буду благодарен