Script Mikrotik update DDNS

ไม่ได้เข้ามา update blog ซะนาน ก็ขอเขียน script เอาใจคนที่หันมาเล่นกับ routerboard ซะหน่อย เนื่องจากทาง เจ้าของ blog เองก็ได้ ให้ความสนใจกับตัวนี้แล้วก็มีปัญหา จากการ update ddns ของ dyndns ผ่าน เจ้า mikrotik เหมือนกัน เนื่องจาก script ที่ได้จาก wiki ของ mikrotik นั้น พอใช้กับ ADSL ของ true แล้วดันไม่อัพเดทเป็น ip ของ router แต่ไป update public ip เลยกลายเป็นว่า ไม่สามารถ ใช้งานได้

environment ที่ใช้ในการ config 

mikrotik routerboard model : RB951G-2HnD
software version : 6.30
ddns : dyndns host
ISP : true internet ADSL

script ที่ใช้ ก็ตามนี้นะครับ

# Define User account&Host ddns Variables
:global ddnsuser "username"
:global ddnspass "password"
:global ddnshost "***.dyndns.**"
# Define Global Variables
:global ddnsip
:global ddnslastip
:if ([ :typeof $ddnslastip ] = nil ) do={ :global ddnslastip "0" }
:global ddnssystem ("mt-" . [/system package get system version] )
# Grab the current IP address on pppoe-out1 interface.
:global ddnsip [ /ip address get [/ip address find interface="pppoe-out1" ] address ]
:global ddnsip [:pick $ddnsip 0 [:find $ddnsip "/"]]
# Did we get an IP address to compare?
:if ([ :typeof $ddnsip ] = nil ) do={
   :log info ("DynDNS: No ip address present on pppoe-out1 interface , please check.")
} else={
# NORMAL ROUTINE FOR RUN WHEN CHANGE IP
  :if ($ddnsip != $ddnslastip) do={
    :log info ("DynDNS: Sending UPDATE! IP:".$ddnsip)
    :local str "/nic/update\?hostname=$ddnshost&myip=$ddnsip&wildcard=NOCHG&mx=NOCHG&backmx=NOCHG"
    /tool fetch address=members.dyndns.org src-path=$str mode=http user=$ddnsuser \
        password=$ddnspass dst-path=("/DynDNS.".$ddnshost)

    :local str "http://$ddnsuser:$ddnspass@members.dyndns.org/nic/update\?hostname=$ddnshost&myip=$ddnsip&wildcard=NOCHG&mx=NOCHG&backmx=NOCHG"
    /tool fetch url=$str

    :delay 1
    :local str [/file find name="DynDNS.$ddnshost"];
    /file remove $str
    :global ddnslastip $ddnsip
    }
  }

เวลาใช้ก็ปรับแก้ส่วน username, password แล้วก็ dyndns host ได้เลยครับ
ส่วน ใครที่ปรับแก้ interface pppoe-out1 ไป ก็ต้องไปแก้ชื่อให้ตรงด้วยนะครับ ไม่อย่างนั้นมันจะหยิบ ip ไป update dyndns ผิดนะครับ
หลังจากที่เราสร้าง script เสร็จเรียบร้อยเราก็ไปสร้าง scheduler มาเพื่อเรียก script ที่เราสร้างก็เป็นอันจบ ขั้นตอน เท่านี้ ก็จะสามารถ update ddns ไปให้ dyndns ได้เรียบร้อยครับ

ขั้นตอนการ save spool file จาก AS/400 to PC

1. สร้าง Physical files ก่อนโดยใช้ Command CRTPF โดยกำหนด ชื่อ File และ Library ที่ต้องการจะลง และเปลี่ยน Record Length ให้เป็น 150

                          Create Physical File (CRTPF)                        
                                                                               
 Type choices, press Enter.                                                    
                                                                               
 File . . . . . . . . . . . . . . > SPOOLFILE     Name                        
   Library  . . . . . . . . . . .     *CURLIB     Name, *CURLIB                
 Source file  . . . . . . . . . .   QDDSSRC       Name                        
   Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *CURLIB        
 Source member  . . . . . . . . .   *FILE         Name, *FILE                  
 Record length, if no DDS . . . . > 150           Number                      
 Generation severity level  . . .   20            0-30                        
 Flagging severity level  . . . .   0             0-30                        
 File type  . . . . . . . . . . .   *DATA         *DATA, *SRC                  
 Member, if desired . . . . . . .   *FILE         Name, *FILE, *NONE          
 Text 'description' . . . . . . .   *SRCMBRTXT                                
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                        More...
 F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display  
 F24=More keys                                                                                                                

           
หลังจาก นั้นกด F10 เพื่อใส่ Additional data  
                                                                               

                        Additional Parameters                              
                                                                               
 Source listing options . . . . .                 *SRC, *NOSRC, *SOURCE...    
                + for more values                                              
 System . . . . . . . . . . . . .   *LCL          *LCL, *RMT, *FILETYPE        
 Expiration date for member . . .   *NONE         Date, *NONE                  
 Maximum members  . . . . . . . .   *NOMAX        Number, *NOMAX              

 Access path size . . . . . . . .   *MAX1TB       *MAX1TB, *MAX4GB            

 Access path logical page size  .   *KEYLEN       *KEYLEN, 8, 16, 32, 64...    
 Access path maintenance  . . . .   *IMMED        *IMMED, *DLY, *REBLD        

 Access path recovery . . . . . .                 *NO, *AFTIPL, *IPL          

 Force keyed access path  . . . .   *NO           *NO, *YES                    
                                                                               
                                                                               
                                                                               
                                                                        More...
 F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display  
 F24=More keys                                                                

                              Create Physical File (CRTPF)                                                                                                          Type choices, press Enter.                                                  
 
 Member size:                                                                      Initial number of records  . . > *NOMAX        1-2147483646                     Increment number of records  .                 Number                      
 
   Maximum increments . . . . . .                 Number                      
 
 Allocate storage . . . . . . . .   *NO           *NO, *YES                      Contiguous storage . . . . . . .   *NO           *NO, *YES                      Preferred storage unit . . . . .   *ANY          1-255, *ANY, *SSD              Records to force a write . . . .   *NONE         Number, *NONE                  Maximum file wait time . . . . .   30            Seconds, *IMMED, *CLS          Maximum record wait time . . . .   60            Seconds, *NOMAX, *IMMED        Share open data path . . . . . .   *NO           *NO, *YES                      Max % deleted records allowed  .   *NONE         1-100, *NONE                   Reuse deleted records  . . . . .   *NO           *YES, *NO                      Sort sequence  . . . . . . . . .   *SRC          Name, *SRC, *JOB...              Library  . . . . . . . . . . .                 Name, *LIBL, *CURLIB          Language ID  . . . . . . . . . .   *JOB          Character value, *JOB                                                                           More...  F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display     F24=More keys                                                                 

                                                                                                                                                           
พอได้ Physical File เสร็จ ก็ถึงคราวที่เราจะ Copy Spool file มาลงแล้ว
2.  การ Copy spool file จะใช้ Command CPYSPLF
โดย ค่าต่างๆนั้นสามารถ ดูได้จาก Command WRKSPLF
เมื่อเรากรอกค่าเสร็จก็กด Enter เป็นอันจบพิธี การ Copy spool file ลง physical file

                           Copy Spooled File (CPYSPLF)                        
                                                                               
 Type choices, press Enter.                                                    
                                                                               
 Spooled file . . . . . . . . . .                 Name                        
 To data base file  . . . . . . .   SPOOLFILE     Name                        
   Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *CURLIB        
 Job name . . . . . . . . . . . .   *             Name, *                      
   User . . . . . . . . . . . . .                 Name                        
   Number . . . . . . . . . . . .                 000000-999999                
 Spooled file number  . . . . . .   *ONLY         1-999999, *ONLY, *LAST, *ANY
 Job system name  . . . . . . . .   *ONLY         Name, *ONLY, *CURRENT, *ANY  
 Spooled file created:                                                        
   Creation date  . . . . . . . .   *ONLY         Date, *ONLY, *LAST          
   Creation time  . . . . . . . .                 Time, *ONLY, *LAST          
 To member  . . . . . . . . . . .   *FIRST        Name, *FIRST                
 Replace or add records . . . . .   *REPLACE      *REPLACE, *ADD              
                                                                               
                                                                               
                                                                               
                                                                         Bottom
 F3=Exit   F4=Prompt   F5=Refresh   F10=Additional parameters   F12=Cancel    
 F13=How to use this display        F24=More keys                               

                                                                                                     
หลังจากได้ Physical file แล้วก็ทำการ FTP จาก AS/400 ลง PC ได้ตามปกติ

COBOL PROGRAMMING

ไม่ได้เข้ามาอัพเดท Blog ซะนาน วันนี้พอมีเวลาก็เลยจัดซักหน่อย
ในวันนี้เปลี่ยนมาศึกษา ภาษาเก่าๆอย่าง Cobol ดูบ้าง ซึ่งมันก็ออกจากเป็นภาษาที่โครงสร้างไม่ซับซ้อนเท่าไหร่ โดย Cobol นั้น จะมีส่วนสำคัญๆ ที่จะต้องมีอยู่4 ส่วน (4 Division)
เริ่มต้นด้วยส่วนแรก Identification Division หรือส่วนที่ใช้ในการประกาศว่า เป็นโปรแกรมอะไร
ต่อมาเป็นส่วนของ Environment Division เป็นส่วนที่ใช้ในการประกา่ศเกี่ยวกับเครื่องที่จะใช้ RUN program
ส่วนที่ 3 คือ ส่วน Data Division ส่วนนี้เป็นส่วนที่ใช้ในการประกาศตัวแปรต่างๆซึ่งจะ รวมไปถึงการประกาศค่า COMMAREA (ส่วนที่ใช้ในการ ส่งค่าไปให้กับโปรแกรมอื่นๆตอน ทำ CICS Program)
และส่วนสุดท้ายคือส่วน Procedure Division หรือส่วนที่ใช้ในการเขียน Code เพื่อที่จะทำงานจริงๆ

ตัวอย่างการเขียนโปรแกรม Hello world ด้วยภาษา Cobol

IDENTIFICATION DIVISION.                                          
PROGRAM-ID. HWORLD.
AUTHOR.          RUJJI.                          
DATE-WRITTEN.       18/04/12.                    
DATE-COMPILED.                                  
ENVIRONMENT DIVISION.          
CONFIGURATION SECTION.        
SOURCE-COMPUTER. IBM-370.      
OBJECT-COMPUTER. IBM-370.      
DATA DIVISION.
WORKING-STORAGE SECTION.
      01   WS-MSG.
              03  WS-TXT-MSG                           PIC X(60)     VALUE
                     'HELLO WORLD'.
PROCEDURE DIVISION.
MAIN-ROUTINE.
*
                  DISPLAY 'WS-TXT-MSG' WS-TXT-MSG.
*
EXIT-ROUTINE.
       STOP-RUN.

Encoder/Decoder Base64 using package JAVA

เนื่องด้วย จะเริ่มลอง Develop โดยใช้ JAVA ก็เลยลองเขียนเล่นๆ ดู

    private String DecoderBase64(java.lang.String strEncryptData)
    {
        String strReturn = "";
        strReturn = com.sun.xml.internal.messaging.saaj.util.Base64.base64Decode(strEncryptData);
        return strReturn;
    }
   
    private String EncoderBase64(java.lang.String strData)
    {
        String strReturn = "";
         strReturn = com.sun.org.apache.xml.internal.security.utils.Base64.encode(strData.getBytes());
        return strReturn;