10

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

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

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

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

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

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)

    Установка 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;

     

    VN:F [1.9.22_1171]
    Rating: 0.0/10 (0 votes cast)
    VN:F [1.9.22_1171]
    Rating: 0 (from 0 votes)

      Работа с 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;

       

      VN:F [1.9.22_1171]
      Rating: 0.0/10 (0 votes cast)
      VN:F [1.9.22_1171]
      Rating: 0 (from 0 votes)

        Настройка свичей 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 порта
        • записали конфигурацию
        VN:F [1.9.22_1171]
        Rating: 0.0/10 (0 votes cast)
        VN:F [1.9.22_1171]
        Rating: 0 (from 0 votes)

          Ichkeria free

          Вот такую WiFi  сеть обнаружил мой ноут сегодня на Техническом переулке д. 53

          Я конечно стараюсь быть толерантным, но к жильцам рекомендовал бы определенным  органам присмотреться.

          VN:F [1.9.22_1171]
          Rating: 0.0/10 (0 votes cast)
          VN:F [1.9.22_1171]
          Rating: 0 (from 0 votes)

            Жизнь замечательных грибов