|
|
|
AD: Upgrade ArcaOS to NeoWPS level
- Install original PNG icons drawed by designer, specialized at OS/2 adornation.
- Install eSchemes 2019 to change colors and buttons on desktop.
|
TITLE: ISDNPM and PPtP protocol
DATE: 2004-11-11 12:41:04
AUTHOR: Stanislav Kozlov, Dmitry Froloff
Please use online translator
go to http://translate.google.com
and request the translation of http://ru.ecomstation./showarticle.php?id=120
to your language |
.......... . . ..... .......... .........: ... "............" ........., . ......, ......., ........... .... . ........ .. ......., .......... 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.
|
Test the program:
|
eSchemes - change the colors and buttons on the desktop.
|
Comments: 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, . ... ..... ........ .......
|
Comment this article.
|
 |
IBM OS/2 Warp
|
