Upgrade ArcaOS to NeoWPS level Install original PNG icons drawed by designer, specialized at OS/2 adornation. Install eSchemes 2018 to change colors and buttons on desktop.

TITLE: ISDNPM and PPtP protocol

DATE: 2004-11-11 12:41:04

AUTHOR: Stanislav Kozlov, Dmitry Froloff

.......... . . ..... .......... .........: ... "............" ........., . ......, ......., ........... .... . ........ .. ......., .......... VPN (Virtual Private Network) Server W2k.

........ ... ... "...." ..... ........ PPtP (Point to Point Tunneling Protocol), ....... ... ..... .. ...... ......... . .... ......... .......... ............ ...! InJoyFW, IJDialer, PPtPforos2, .. ...... .. ..........

......., ..... .......... . ......... ISDNPM, ....... ....... ........ ............. ........ ...... Willibald Meyer. ..... ... .. ....... PM. ..... PM ......, ........ . ......... ...... ..........

1. ......... ISDNPM

...... . ... ..... . ........, .. ..... ....... ..... . ..., ... ...... ... ....... ..... ..... .. ........ ....., . ....... . . ......... ...... .. .......... .., ........... . ......... . ................ ........ ....... . .......... ....... ............ . ......... ......... .... ......... ....... .. ..........., .. ..... . . .... .. .............. ......., ... .... ............ ... pptp.out ......... ....... ..... ... .........:

....: pptp.out
[OUTGOING]

    Name            : PP    // .... ... .........., ............

    LineOutName     : [PPTP01] // ... ......... ....., .... .. 
                               // .......... pptp ... . .........,
                               // .... . isdn.cfg .. . .......

    Tunnel          : 192.168.4.20  //..... ......, ... ....... ....... VPN .......

    MSS             : 1400 //............ ...... ........ (Max Segment Size), 
                           // ...... .... ...... ... MTU(== ...... 1500)

    UserId          :  // .... . ...... ... ..... . .......
    Password        : 

    MaxConnections  : 1 // ............ ...-.. ..........

    Flags           : AUTODIAL                   //....., ..... ......... =)
    AUTODIALMODE    : PING,DNSREQUEST,TCPCONNECT //

    FLAGS           : DEFAULTROUTE
    Flags           : MPPE128   //!!!...... ...., ... .... 
                                // ..... .......... ..........
                                
    Flags           : MPPESLESS // ........., ..... ....., ... ...... ...... ;)

    DNS             : 212.45.25.166 //... ......

    KeepAlive       : 30 //.. ... .... ... .... ....... =)
    KeepAliveDisc   : 5

    Masquermode     : 2 //.... .. ...........


//  ...... ... Netbios over TCP/IP (Port 137-139)
    IncomingFilter  : fp2.flt,DATENFILTER0
    OutgoingFilter  : fp2.flt,DATENFILTER0

..... ...... ... . .. .. .........., ... isdnPM . .... user. ..... ....... .. isdn.cfg

....: isdn.cfg
. . . . .:

    FLAGS   :   AUTODIAL    // .... ......., ..... ...............
                            // .........., .... .. .......

    FLAGS   :   MULTILINK   // ....., ... ......... ..-.. .....

    FLAGS   :   DEFAULTROUTE // .......... ....... .. .......

    FLAGS   :   DNSREQUEST   // ............ ... . .....

    Flags   :   DORESOLVE    // .... ........ ...,
                              
. . . . .  ..........., .......... .......!!!!! . . . . .! 

    FLAGS   :   MPPE128       // ..........., . .... ... . ... ........

    FLAGS :  PAP      // PAP ...........
    FLAGS :  CHAP     // CHAP ...........
    FLAGS :  CHAPMS   // CHAPMS ...........
    FLAGS :  CHAPMSV2 // CHAPMSV2 ...........
    FLAGS :  ALLOWCALLBACKMS  // ......... ......-..
    FLAGS :  ALLOWCALLBACK    // ......... CALLBACK 

    FLAGS   :   CALLBACK    // .......... ......, 
                            // .... ..... .... ............. .....
                            
    FLAGS   :   CALLBACKMS  // PPP-CALLBACK .. .......... .$

    FLAGS   :   LZS             // STACK LZS COMPRESSION 
    FLAGS   :   LZS1            // STACK LZS-1 COMPRESSION 
    FLAGS   :   LZS1T           // STACK LZS-1T COMPRESSION 
    FLAGS   :   BSD             // BSD COMPRESSION 
    FLAGS   :   PREDICTOR1      // PREDICTOR COMPRESSION
    FLAGS   :   PREDICTORCISCO  // PREDICTOR CISCO COMPRESSION
    FLAGS   :   MPPC            // MICROSOFT COMPRESSION


    FLAGS :   DYNAMIC         // ......... .dyn .....(. .. .. ............, 
                              // .... ... .... .. ..... ......)

....

[GLOBAL]

.... 

    PPTPLines          :  1 //....... ..... ..........
... 

... .... ... .... ........ .... ... ...... ..... ... ....... ....... ........ . .......... .... .........(.......), .. ..... .......... ..

[IP0]

    IF_NAME             : sl0  << ....
    IF_UNIT             : 0

    IF_CONFIG           : CONFIG0.FNC     // . .... =) 
         // ... ... ...... ... ................ 
         // ........, ... .... .......

[PPTP01]

    Indication          : 10123         //
    Connections         : 4             // 
    Bind                : 127.0.0.1     //

... ....... .. ....... ...... ........ . ... ..... ....... ...... .. ....... . ........ ...... CONFIG0.FNC ... ... .... ..... ......... ........

....: CONFIG0.FNC
 lcLocalIP     = '192.168.4.20'    // ......... ... . ... .... ......
 lcNetmask     = '255.255.255.255' // .. . .... ..... _....._
 LocalDNS = '0.0.0.0'              // ......... ... .... .... ......, 
                                   // . .... ... .........

.. ... ........ ............ .. .......... ... ... ..... ........ ........ .-. MPTN .. ....... /driver ..... ... .......... . ... ........ ........ IMYWI$, .. .... .... ......, .. . .... . ... .... ... ........ =)) .. ... ..... .... ... .. ... ............., .. ..... ........... ......... isdnPM. .......... . ... .. ....., . ... ... .. ...... .......... . ......, .. ........., ... ......... ..........., ...... ... ....... Willibald Meyer, ... ..... .. ........... ...... ... ............ .......=( ... ..... .... .. ........ ISDNPM, ... ......... ..... . ... ....... ..... ........ ... .. .... ........ ......, ...... ... ...... . ...... isdnpm.

........., .... . ........ . ........... . ... .... 1 .........., . .......... ... ... ... .. ........ ... . pptp.out. ........ ... . .... ..... dial ... .... ... ..... ......., .. . ... .........., .. ....... ...... ........... .. ......., .... .. ... ......, . ..... ......., .. ... ......... ......, ... ........ ..........., .. .. ..... .... ... ..... .... ..... .... =)

......, ... ...... ......, .... ... ......... ..... ............. DNS, .. ... ........., ..... .., ..... ......... . ... .. ..... MPTS ......... DNS ........ 212.45.25.166 . 212.45.25.165 (... . O:\MPTN\ETC\resolv2 ......... nameserver 212.45.25.166) .. ... .... ......

PS: .. ..... .... ISDNPM - ... ..... ...... ..... .. ...... . ...... . ...... ...... ........ ...... .... ... ....... - ...... . VPN ..... ......... ..... ... .. .. ........ ..... ....., .... ... ..... ............ ... ........, .. ... ... .. .. ... ... =)

..... .... ..... .. #os2russian, ... . ......... ... ...... Mancubus =) ....... ....... .... .. #os2russian, . ........... moveton.

2. .......... .. ....... .......

........... .... ........ ... .. ......., ....... ..... .... .... ......... ....... .......... .......... (.., ... . ..... ........ .. 5 .....) ........ ...... ...... ............ . ........ . ....... ..... .. Karlheinz Schmidthaus ...... .. ......... ....... ........... ...... ........... .......... . ..... User\pptp.out ........ ....... ...... passive mode ppp. ..... ............ ..... Flags : ~PASSIVE ... ........... ....... .............. ........ MACMYWI.OS2 . PPPEMYWI.OS2 ............. .. ..........

...., .......... ......... User\pptp.out ........ ... ....

// * Sample for an ADSL-PPTP connection 
// * Standardbeispiel fuer eine ADSL-PPTP-Tunnelverbindung
// *
// * mit Netbios-Datenfilter / with Netbios-paketfilter
// * IP-Masquerading
// * AutoDial

[OUTGOING]

// define NAME without space 
    Name            : Xs4all-Adsl    // or special characters, 
                                     // maximum 32 chars.

    LineOutName     : [PPTP01]

// Tunnel = IP-address of the ADSL-Modem
    Tunnel          : 192.168.0.1

//                       MSS = (Max Segment Size) 
//                             must be lower then MTU Size
    MSS             : 1492

    UserId          : username@xs4all-basic-adsl
    Password        : mypassword
#   QueryUID        : QUID

    MaxConnections  : 1

#    Flags           : AUTODIAL
    AUTODIALMODE    : DNSREQUEST,TCPCONNECT,PING
#    AUTORECONNECT   : 1

    FLAGS           : DEFAULTROUTE,DORESOLVE
    Flags           : ~PASSIVE

#    FLAGS           : MPPESLESS         // Client want to use encryption
#    FLAGS           : MPPE128           // ask for 128 bit encryption
#    FLAGS           : NACK2CHAPMSV2     // force MS CHAPV2 authentication

                                      // IP-Masquerading aktiv
    Masquermode     : 2
    RemoteAddress   : 10.0.0.0/255.0.0.0

#    Masquerloglevel : natindeny,natinaccept,natout
    
//                    allow different port for the ftp data connection
    MasquerOption   : LOOSEFTPPORT

    // answer authentication request with TCPReject (port 113/tcp)
    MasquerEntry    : 0.0.0.0,0,113,127.0.0.1,113,6,0,TCPReject

//  Paketfilter for Netbios over TCP/IP (Port 137-139)
    IncomingFilter  : fp2.flt,DATENFILTER0
    OutgoingFilter  : fp2.flt,DATENFILTER0

    KeepAlive       : 30
    KeepAliveDisc   : 5

#, // - ........... ............, ...... .............. .. .....

• [OUTGOING] - ........... .......... ..........
• name - ... .......... - ..... .......... . ...... ISDNPM
• LineOutName - ....... ............ .......... .. isdn.cfg
• Tunnel - ..... ......., ................ PPTP ......
• MSS - ............ ...... ........, ...... .... ... ....... .. 8 .... ...... MTU
• UserId - ... ............ (.....) - ....... . ..........
• Password - ...... ... .......
• QueryUID - ......... ...../...... ..... ............. ...........
• MaxConnections - ..... ............. .......... - ...... ......... 1
• FLAGS - ..... ... ....... .........., ......... .., . ........ ........ ..... ....:
  • AUTODIAL - ............. ............. .......... ... ....... .........;
  • DEFAULTROUTE - ............ ...... .......... .. ......... ... ....... . ........;
  • DORESOLVE - ........... DNS . resolv2 (... ........ . ....... config0.fnc)
  • PASSIVE - ..... PPP . .... ...... ............. .... .......... . Off (~PASSIVE)
  • MPPESLES, MPPE40, MPPE128 - ...... .......... ... ........, .... .......... .. ..............., .... .............. ........ ......., .. ..... ........... ......... .... .. .... ......
  • MPPC - ..... .......... ........... ...... (.. ......, ... ........)
• AUTODIALMODE ..... ............ ..........
  • DNSREQUEST - ...... ....... DNS;
  • TCPCONNECT - ............... .......... TCP;
  • PING - ............. ..... ...-........ . ........ PPTP.
• AUTORECONNECT - .............. .............. .......... . ...... .......
• Masquermode - ..... NAT
  • 0 - NAT ........
  • 2 - .......
• MasquerEntry - ... .......... NAT .......... portmapping .. .......... .....
• RemoteAddress - .......... ..... . ..... ......., ....... ..... ........... ...... .......... ..... NAT.

....... ... ....... ........... ....... Rexx ....... ......... ............. config1.fnc - ......... ... ............ ......... .... 10.0.0.0/255.0.0.0 (..... NAT ...... .... ........... .......). ..... ............ .... ...... - .......... ......... ... .....

   IF_CONFIG           : CONFIG1.FNC

. ...... [IP0] (......... sl0) ..... isdn.cfg

/**********************************************************************
 * config1.fnc
 *
 * Sample for T-DSL-Connection 
 *       the command syntax is for TCP/IP 4.1 and later
 *
 *       WICHTIG: Abweichende MTU-Size (1492) bei PPPoE notwendig!
***********************************************************************/

 call RxFuncAdd 'SysSleep','RexxUtil','SysSleep'
 call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
 call SysLoadFuncs

 /* read parameter */
 PARSE ARG  action ifname ifnumber txt1 local txt2 remote txt3 
            dns1 txt4 dns2 txt5 nbdns1 txt6 nbdns2 txt7 netmask 
            txt8 name txt9 default txt10 mmode txt11 doresolve 
            txt12 lineoutname .

 /* display parameters in more readable form */
 PARSE SOURCE . . CallName
 PARSE ARG . . . MoreParms;
 CALL LOGSAY CallName 'started for' action 'of interface' ifname'/'ifnumber;

 DO WHILE (MoreParms \= '')
    PARSE VAR MoreParms ThisName ThisValue MoreParms;
    CALL LOGSAY  ' ' ThisName ThisValue;
 END;


/****************************************************************/
/*   CALLED WHEN ISDNPM IS STARTED FOR A SPECIFIC INTERFACE     */
/****************************************************************/

 if ACTION = 'START'  then do
    say 'START FOR INTERFACE ' ifname  ' NUMBER ' ifnumber
/* .... .... default - ....... */
    'route delete default' 
/* ............. ......... */
    'ifconfig sl0 10.0.1.1 netmask 255.0.0.0 mtu 1492'
/* ........... default */
    'route add net default 10.0.1.1'
/* .. ...... ...... - .... ... . setup.cmd */
    'ifconfig lo 127.0.0.1'
    'ipgate on'

 end

/****************************************************************/
/*   CALLED WHEN ISDNPM IS STOPPED FOR A SPECIFIC INTERFACE     */
/****************************************************************/

 if ACTION = 'STOP' then do
/* ............... ........ ........ */
    'route delete default'
    'ipgate off'
    WriteResolv()

/*  say 'STOP FOR INTERFACE ' ifname   ' NUMBER ' ifnumber
*/
 end


/****************************************************************/
/* CALLED WHEN ISDNPM OPENS A 'PPP-LINK' FOR A INTERFACE        */
/****************************************************************/

 if ACTION = 'OPEN' then do

    say 'CONFIG FOR INTERFACE ' ifname   ' NUMBER ' ifnumber
    say 'CONFIG ' txt1 local
    say 'CONFIG ' txt2 remote
    say 'CONFIG ' txt9 default

    say "Nameserver1="||dns1
    say "Nameserver2="||dns2

/* ........... ......... DNS . %ETC%\resolv */
    WriteResolv( LocalDNS, DNS1, DNS2);

 end

/****************************************************************/
/* CALLED WHEN ISDNPM CLOSE A 'PPP-LINK' FOR A INTERFACE        */
/****************************************************************/

 if ACTION = 'CLOSE' then do
/*
    say 'RESET FOR INTERFACE ' ifname   ' NUMBER ' ifnumber
*/
 end

exit 0


/* -------------------------------------------------------------------- */
/* write a line to console and logfile                                  */
/* name and place of the logfile is the same as of the script, but with */
/* extension .log, The file must exist in order to be written.          */
/* -------------------------------------------------------------------- */
LOGSAY: PROCEDURE

 LogId       = '[#]';
 TimeStamp   = TRANSLATE( 'abcd/ef/gh', DATE('S'), 'abcdefgh') TIME()':';

 PARSE ARG Line;
 PARSE SOURCE . . CallName;
 LogFile = OVERLAY( '.log', CallName, LASTPOS( '.', CallName));
 IF (FileExist( LogFile)) THEN
 DO
    rc = LINEOUT( LogFile, TimeStamp Line);
    rc = LINEOUT( LogFile);
 END;

 SAY LogId Line;
 RETURN( 0);

/* -------------------------------------------------------------------- */
/* determines if a given file exists                                    */
/* -------------------------------------------------------------------- */
FileExist: PROCEDURE
 PARSE ARG FileName
 RETURN(STREAM(Filename, 'C', 'QUERY EXISTS') > '');

/* -------------------------------------------------------------------- */
/* determines filesize                                                  */
/* -------------------------------------------------------------------- */
FileSize: PROCEDURE
 PARSE ARG FileName
 RETURN(STREAM(Filename, 'C', 'QUERY SIZE'));

WriteResolv: PROCEDURE EXPOSE (GlobalVars)
 PARSE ARG LocalDNS, DNS1, DNS2;

 /* default values */
 Redirection = '>NUL 2>&1';
 resolv     = VALUE( 'ETC',, 'OS2ENVIRONMENT')'\resolv'
 resolv2    = VALUE( 'ETC',, 'OS2ENVIRONMENT')'\resolv2'
 resolv_tmp = resolv||'.tmp'
 resolv_bak = resolv||'.sik'

 IF (DNS1 \= '') THEN
 DO
    /* ---- write resolv configuration ---- */

    /* write temporary resolv file */
    rc = SysFileDelete( resolv_tmp);
    IF (LocalDNS \= "0.0.0.0") THEN CALL LINEOUT resolv_tmp, 'nameserver' LocalDNS;
    IF (dns1     \= "0.0.0.0") THEN CALL LINEOUT resolv_tmp, 'nameserver' dns1;
    IF (dns2     \= "0.0.0.0") THEN CALL LINEOUT resolv_tmp, 'nameserver' dns2;
    CALL LINEOUT resolv_tmp

    /* create backup copy */
    IF ((\FileExist( resolv2)) | (FileSize( Filename) = 0)) THEN
    DO
       CALL LOGSAY 'create backup copy of existing file' resolv;
       rc = SysFileDelete( resolv_bak);
       'ren' resolv FileSpec( 'N', resolv_bak) Redirection;
    END;

    /* now let temporary file become the real resolv file */
    CALL LOGSAY 'create file' resolv 'with requested DNS information'
    rc = SysFileDelete( resolv);
    'ren' resolv_tmp FileSpec( 'N', resolv) Redirection;

    /* create resolv2 from resolv if not exist      */
    IF (\FileExist( resolv2)) THEN
    DO
       CALL LOGSAY 'create file' resolv2 'as copy';
       'COPY' resolv resolv2 Redirection;
    END;
 END;
 ELSE
 DO
    /* ---- cleaup resolv configuration ---- */

    /* delete current resolv file */
    CALL LOGSAY 'removing file' resolv;
    rc = SysFileDelete( resolv);

    /* rename back a backup copy */
    IF (FileExist( resolv_bak)) THEN
    DO
       CALL LOGSAY 'reactivating existing backup copy of' resolv;
       'ren' resolv_bak FileSpec( 'N', resolv) Redirection;
    END;

    /* do not delete resolv2 !   */
    /* better for autodial users */

 END;

 RETURN( '');

3. .......... ...... ISDNPM

. ....... eComStation/Rus 1.2 ............ ........... ........... ...... ISDNPM - eCSConNet, ....... ............ ......... ........ ........... . .... ........:

• ..... .......... ......
• ISDN CAPI 1.1 ... 2.0
• PPPoE (xDSL)
• PPtP (xDSL)
• Dial-Back
• NAT (.. ..... 253 .............)

... ............ eCSConNet ..... ............ ....... ........., ........ Internet Assistant.

Komentarze:

evermc 2004-12-06 18:25:36	good
ssh 2006-06-25 16:27:04	"..... ....." ....... ....... ......... ....., .......... .... .. ........ .........: [url]
ssh 2006-06-25 16:28:34	..... ......... ....... ......... ..... . .......... ..... ...... [url]
alexadmin 2007-03-27 14:15:04	........ ...... .. ........, ... ...... ..... ...... ............ . ......... pptp ......., . ...... - ......., . .... ~PASSIVE ... ... .... . ...... ...... . ...... ........
Eugene Gorbunoff 2007-04-25 12:03:39	.... ....... . ........ .. ...... . .... ........: ...... "#" .. ...... .......... . .. ........ . ...... .......: ..... ..... . Dial Prefix, . ... ..... ........ .......

Komentarz artykuЁu.

Twoje ImiЙ i Nazwisko: TwСj E-Mail: CODE:
TwСj Komentarz:

eComStation 2.0 works faster (support of SMP x JFS filesystem) eCS 2.0 what's new