Сёдня чуть не влип…

Довелось сегодня побывать в 12-ти этажке, той которая напротив ж/д вокзала. Еще перед входом в подьезд напрягло — стоит рядом с открытыми несколько гоповатого вида молодых человек. Как я зашел — двери закрыли, один пошел за мной, двое остались снаружи.

Нажал кнопку лифта. Стою — смотрю в упор на гопника. Лыблюсь. Он: «довезешь на лифте». Я: «заходи».

Ладно. Зашли в лифт. Спрашивает: «слыш, есть тут где закинуться потихому?». Я: «Не знаю, сам разбирайся». Сам напрягся, руки из карманов вынял. Ну думаю дело к махалову идет. А настроение у меня с утра гадское было. Потому как-бы не прочь и сам люлей получить, и дать если получиться.

Но видно нарик это дело прочуствовал. Я на 9-м этаже вышел, он вниз поехал..

Установка Synapse и отправка письма с вложением..

  • Скачиваем исходники с http://synapse.ararat.cz/doku.php/download
  • Копируем папку lib в расположение вашего проекта
  • В свойствах проекта Lazarus: Проект-Параметры проекта-Пути-Другие модули добавляем путь куда положили содержимое lib.

На этом все. Теперь достаточно после uses добавлять необходимые для использования компоненты. Вот так например выглядит простейший пример отправки письма с вложением.

function SendMail (Host, Subject, pTo, From , TextBody,
                HTMLBody, login,password,filename : string) : boolean;
var Msg : TMimeMess; // сообщение
    StringList : TStringList; // содержимое письма
    MIMEPart : TMimePart; // части сообщения (на будущее)
begin
    Msg := TMimeMess.Create; // создаем новое сообщение
//      IdealCharsets:=[CP1251];
//      Msg.Header.CharsetCode:='CP1251';
      StringList := TStringList.Create;
      try
        // Добавляем заголовки
        Msg.Header.Subject := Subject;// тема сообщения
        Msg.Header.From := From; // имя и адрес отправителя
        Msg.Header.ToList.Add(pTo); // имя и адрес получателя
        // создаем корневой элемент
//        MIMEPart := Msg.AddPartMultipart('alternative', nil);
          Msg.AddPartMultipart('', nil);
        if length(TextBody)=0 then
        // если формат HTML
          begin
            StringList.Text := HTMLBody;
            Msg.AddPartHTML(StringList, Msg.MessagePart);
          end
        else
        // если текстовый формат
          begin
            StringList.Text := TextBody;
            Msg.AddPartText(StringList, Msg.MessagePart);
          end;
          if filename<>'' then
            Msg.AddPartBinaryFromFile(filename,Msg.MessagePart);

        // Кодируем и отправляем
        Msg.EncodeMessage;
        // Отправляем.
        if smtpsend.SendToRaw(From,pTo,Host,Msg.Lines,login,password) then
            SendMail:=true
        else
            SendMail:=false;

     finally
       Msg.Free;
       StringList.Free;
     end;
end;

 

Работа с Ini файлами.

Короткий пример,  лучше всего..

uses INIFiles;
procedure TForm1.Button1Click(Sender: TObject);
Var
   IniF:TINIFile;
begin
    Inif := TINIFile.Create('getmailconf.ini');
    INiF.WriteString('config','email',form1.emailto.text);
end;
procedure TForm1.FormCreate(Sender: TObject);
Var
   IniF:TINIFile;
begin
    Inif := TINIFile.Create('getmailconf.ini');
   form1.emailto.text:=INiF.ReadString('config','email','testmail@yartelecervice.ru');

end;

 

Настройка свичей DES 3200

Включаем свич, втыкаем Eth в 16 порт. Присваиваем себе сеть 10.90.90.91. Заходим в WEB интерфейс http://10.90.90.90 без логина пароля и меняем IP адрес свича на нужный.

Далее заходим на него по telnet, и выполняем следующую последовательность комманд:

create account admin admin
create vlan sw tag 104
conf vlan sw add tag 17
conf vlan sw add unt 16
enable password encryption
conf ipif System vlan sw
conf traffic_ 1-16,18 for 17
show traffic_segmentation
save

 

 

Что мы тут сделали?
  • создали логин/пароля админа
  • создали vlan 104 с именем sw
  • добавили туда 17 порт
  • добавили правило что заходить в админку можно только с 16 порта
  • записали конфигурацию