Информационная Безопасность. Аудит Безопасности


Нажмите CTRL-D чтобы добавить нас в закладки
HackZone.RU - Чтение txt файлов с удаленного компа
Войти / Регистрация / Участники
Определение даты выпуска iPhone по серийному номеру
-
Поиск по сайту
Форумы



Реклама

Программирование / Delphi & Pascal RSS подписка на сообщения с форума Subscribe


Новая тема Наиболее обсуждаемые темы Наиболее посещаемые темы
Поиск 
Период
Перейти

Просмотров - 2530
Чтение txt файлов с удаленного компа
Добавить этот топик в закладки »
RSS-лента ответов »Subscribe
B3JIoMep




Platinum Member
# | Сообщение добавлено 17.09.2010 16:42:37
Text
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    cs: TClientSocket;
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
cs.Host:=Edit1.Text;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
cs.Active:=true; //Коннектимся
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
cs.Socket.SendText(edit2.text);
end;
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
s:string;
begin
if copy(s,1,5)='Text:'
then
Memo1.lines.add(s) ;
end;
 
end.
 
Если присмотреться, то можно понять что это сетевое приложение. Перед вами исходник его клиента. Его задача мала - чтение текстовых файлов с удаленного компа (на котором соответственно будет запущен сервер). Но проверяя эту слиент на практике я столкнулся с одной очень неприятной для меня проблемой. При попытке коннекта к серверу вылазит ошибка. Я все еще раз проверил. Просканировал порты у компа на котором стоит сервер - порт сервера был открыт. Разумееться вошел в ступор. Отдельные куски кода брал из статьи о том как написать свой троян на дельфи (тут) Жду ваших ответов. Версия дельфи - 7. Если будет нужно для ответа на мой вопрос я могу выложить серверную часть. Всем зарание спасибо.
З.Ы. Это мое первое сетевое приложение на дельфи, по этому прошу кисходник не обсуждать. Я и сам знаю что он муторноват =)
 
гений, миллиардер, плейбой, филантроп)0)
Сказать спасибо Ответить Цитировать

DP120




Scum of Society
# | Сообщение добавлено 17.12.2010 19:02:06
выложи серверную часть
Сказать спасибо Ответить Цитировать


Только зарегистрированные пользователи могут оставлять сообщения в форуме

Зарегистрироваться *** Авторизоваться

 Последние новости и статьи  Последние сообщения с форумов
  • В darknet сливают данные 100 000 российских банковских карт
  • Вирус Escobar ворует коды двухфакторной аутентификации из Google ...
  • DeadBolt использует уязвимость, исправленную в декабре
  • Почти миллион WordPress-сайтов в опасности из-за уязвимости в поп...
  • Шифровальщик DeadBolt взломал 3600 NAS. Qnap устанавливает обновл...
  • Банковский троян Chaes устанавливает вредоносные расширения для C...
  • Взломана платформа Qubit Finance, хакеры похитили 80 млн долларов
  • Арест участников REvil взволновал других преступников
  • Обнаружена malware MoonBounce, внедряющаяся в UEFI
  • Администратор кардерского форума UniCC и участник хак-группы The ...

    Все новости... Все статьи... Прислать новость RSS
  • Разное / Предложения работы » Взлом авторизации CRM
  • Разное / Предложения работы » взломать сайт и выграть электронную жеребьёвку
  • Разное / Предложения работы » разблокировать сбер аккаунт
  • Разное / Болталка » Re: Форум жив?
  • Разное / Болталка » Форум жив?
  • Разное / Болталка » С Новым 2022 Годом!
  • Взлом и безопасность / Программы » Re: Hasp ключ для ABC-4
  • Портал / Отзывы и предложения » Предлагаем партнерство вашему форуму.
  • Разное / Предложения работы » взлом почты
  • Разное / Куплю, приму в дар » Покупка аккаунтов Uphold

    Все форумы... RSS


  • Разместить рекламу
    © HackZone Ltd. 1996-2020. Все права зарегистрированы.
    Перепечатка материалов без согласования и указания источника будет преследоваться по Закону

    О проекте | История проекта | Размещение рекламы | Обратная связь | Правила поведения на портале
    contador de visitas счетчик посещений

    #{title}

    #{text}

    x

    #{title}

    #{text}