Month: February 2013

  • 20130227-Kbank-Phishing

    มีจดหมายหลอกลวง หน้าตาประมาณนี้
    20130227-phishing-email

    เมื่อคลิก Link เข้าไป โดยผ่าน Google Chrome จะได้หน้าจอเตือนอย่างนี้
    20130227-chrome-warning

    แต่ถ้าเป็น IE, Firefox จะไม่ได้รับการเตือน !!!!
    ซึ่งจะได้หน้าจอประมาณนี้

    20130227-phishing-kbank

    ซึ่งหน้าตา ช่างเหมือนกับของจริงมากๆ

    แต่นี่คือ Website หลอกลวง เพื่อเอาข้อมูลทางการเงินของท่าน 

    โปรดระวัง !!!

    เปรียบเทียบ ของปลอม (ซ้าย) และ ของจริง (ขวา)

    20130227-compare

     

    วิธีสังเกต

    เวปไซต์ของจริง จะต้องมี รูปกุญแจ และเป็นสีเขียว (เข้ารหัสในการส่งข้อมูลด้วย HTTPS และ ใช้ SSL Certificate ที่ได้รับการยอมรับ)

    ด้านซ้ายคือ ของหลอกลวง ด้านขวาคือ ของจริง

    20130227-ssl-compare

    โปรดใช้ความระมัดระวัง

  • ติว “VirtualBox Networking + vi + Shell Scripts”

    กิจกรรมของ CoP PSU sysadmin ของเราในลำดับต่อไป จะจัดขึ้นในวันที่ 28 ก.พ. 56 (พฤหัส) เวลา 09.00 – 16.30 น. มีอาหารเที่ยงเลี้ยง ที่ห้อง 101 อาคารศูนย์คอมพิวเตอร์ ม.อ.หาดใหญ่
    หากท่านสนใจรีบแจ้งอีเมลมาที่ผมโดยตรง ( wiboon.w@psu.ac.th ) หรือทางเฟสบุ๊คของกลุ่ม และผมจะนำรายชื่อมาใส่ไว้ด้านล่างของบล็อกนี้ (ดูรายชื่อผู้เข้าร่วมติว)

    ติว “VirtualBox Networking + vi + Shell Scripts”

    กลุ่มเป้าหมาย

    • ผู้ดูแลระบบคอมพิวเตอร์และเครือข่ายของม.อ.วิทยาเขตต่างๆ

    วันและเวลา

    • วันที่ 28 ก.พ. 56 เวลา 09.00 – 16.30 น.

    สถานที่และเครื่องคอมพิวเตอร์ที่ใช้

    • ห้อง 101 เครื่องคอมพิวเตอร์จำนวน 26 เครื่อง (ผู้เรียนจะนำโน้ตบุ๊คมาเองก็ได้)

    ระบบปฏิบัติการที่ใช้

    • Linux Mint/Ubuntu
    • Microsoft Windows (เครื่องคอมพิวเตอร์ในห้อง 101)

    เนื้อหา

    • ฝึกปฏิบัติใช้ Oracle VirtualBox เพื่อทดสอบเซิร์ฟเวอร์ 1 เครื่อง และทดสอบระบบงานที่มีเซิร์ฟเวอร์และไคลเอ็นต์หลายเครื่องอยู่ภายใน VirtualBox Networking
    • ฝึกปฏิบัติการใช้เอดิเตอร์ vi เครื่องมือที่จำเป็นสำหรับแอดมิน
    • ฝึกปฏิบัติการเขียนโปรแกรม Linux Shell Script

    รายละเอียดหัวข้อติว
    ช่วงเช้า

    1. VirtualBox Networking (NAT, Bridged Adapter, Internal Network, Host-only Adapter) แต่ละแบบทำงานอย่างไร
    2. โปรแกรมที่นำมาใช้เป็น Domain Name Resolver เพื่อทดสอบใน VirtualBox Networking
    3. ซอฟต์แวร์ที่นำมาใช้ทำเป็น Router แบ่ง subnet มากกว่า 1 net เพื่อทดสอบใน VirtualBox Networking

    ช่วงบ่าย

    1. เอดิเตอร์ vi
    2. แนะนำโปรแกรม Shell Script จากตัวอย่างในงานจริง ทั้งแบบรันตามต้องการ และสั่งทำงานผ่าน crontab
    3. การเขียนโปรแกรม Shell Script

    วิทยากร

    • วิบูลย์ วราสิทธิชัย ศูนย์คอมพิวเตอร์
    • อ.ฉัตรชัย จันทร์พริ้ม อาจารย์ประจำภาควิชาวิศวกรรมคอมพิวเตอร์ คณะวิศวกรรมศาสตร์ ม.อ.

    รายชื่อผู้แจ้งเข้าร่วมติว

    1. ศิริพงษ์ ศิริวรรณ ศูนย์เทคโนโลยีสารสนเทศ คณะเภสัชศาสตร์
    2. วิศิษฐ โชติอุทยางกูร งานเทคโนโลยีสารสนเทศ คณะทันตแพทยศาสตร์ (อาหารมังสวิรัติ)
    3. เกรียงไกร หนูทองคำ ศูนย์คอมพิวเตอร์ ม.อ.หาดใหญ่
    4. ชัยวัฒน์ ศรีจันทร์กุล คณะวิทยาการจัดการ
    5. นิติ โชติแก้ว คณะการแพทย์แผนไทย
    6. อาทิตย์ อรุณศิวกุล งานสารสนเทศ คณะศิลปศาสตร์
    7. ธีรพันธุ์ บุญราช ศูนย์เทคโนโลยีสารสนเทศ คณะเภสัชศาสตร์
    8. หฤทัย สมบูรณ์รุ่งโรจน์ ศูนย์คอมพิวเตอร์ ม.อ.หาดใหญ่
    9. ทิพาพร พัฒนศิริ ศูนย์คอมพิวเตอร์ ม.อ.หาดใหญ่
    10. เอกภพ ถาวรจิตร สำนักทรัพยากรการเรียนรู้คุณหญิงหลง อรรถกระวีสุนทร (อาหารมังสวิรัติ)
    11. ภูเมศ จารุพันธ์ สารสนเทศ คณะพยาบาลศาสตร์
    12. ศุภกร  เพ็ชรรัตน์ คณะทันตแพทยศาสตร์ (จอมขวัญ สุวรรณมณี สารสนเทศ คณะพยาบาลศาสตร์ แจ้งยกเลิก)
    13. กฤตกร อินแพง สารสนเทศ คณะพยาบาลศาสตร์ (fb: Nick Justice)
    14. กิตติพัฒน์ อุบลกาญจน์ สำนักทรัพยากรการเรียนรู้คุณหญิงหลงฯ
    15. ปิยะวัชร์ จูงศิริ คณะวิศวกรรมศาสตร์
    16. กฤษณะ คีรีวัลย์ คณะวิศวกรรมศาสตร์
    17. พัฒนาวดี ศิวติณฑุโก คณะวิศวกรรมศาสตร์
    18. สุวัฒน์ อนันตคุณูปกร ศูนย์สื่อการเรียนรู้
    19. สราวุฒิ เลิศล้ำไตรภพ ศูนย์สื่อการเรียนรู้
    20. เกียรติศักดิ์ คมขำ ศูนย์สื่อการเรียนรู้
    21. ศรายุทธ จุลแก้ว ศูนย์สื่อการเรียนรู้
    22. ปุณณวัชร์ วิเทียมญลักษณ์ ศูนย์สื่อการเรียนรู้
    23. สุระเชษฐ์ วงศ์อารยพาณิช คณะวิศวกรรมศาสตร์
    24. คณกรณ์ หอศิริธรรม ศูนย์คอมพิวเตอร์ ม.อ.หาดใหญ่
    25. โกศล โภคาอนนต์ ศูนย์คอมพิวเตอร์  ม.อ.หาดใหญ่
    26. ณัฏฐิกา หัตถกรรม ศูนย์คอมพิวเตอร์  ม.อ.หาดใหญ่
    27. สุนทรี นภิบาล ศูนย์คอมพิวเตอร์  ม.อ.หาดใหญ่

    (ปิดรับสมัคร)

  • How to install LibreOffice 4.0 in Ubuntu & Mint

    1. Uninstall LibreOffice รุ่นเก่าออกให้หมด
      $sudo apt-get remove --purge libreoffice*
    2. Download Libreoffice for Ubuntu ที่ LibreOffice โดยเลือกรุ่นให้ถูกต้องว่า 64 บิตหรือ 32บิต (x86 หรือ x86_64) ดูได้จากคำสั่ง
      $uname -a
      หากได้ผลลัพธ์ว่า
      Linux Enterprise 3.5.0-23-generic #35-Ubuntu SMP Thu Jan 24 13:15:40 UTC 2013 x86_64 x86_64 x86_64 GNU/Linux
      แปลว่า 64บิต สังเกตุว่ามี x86_64 ต่อท้าย ส่วนรุ่น 32บิตจะได้ว่า
      Linux ubuntu 2.6.32-34-generic-pae #77-Ubuntu SMP Tue Sep 13 21:16:18 UTC 2011 i686 GNU/Linux
      สังเกตว่ามี i686 เครื่องรุ่นเก่ากว่านี้อาจจะเป็นเลขอื่นๆ

    (more…)

  • การเชื่อมต่อ PSU Passport : WordPress-LDAP (AD Integration Plugin)

    วิธีการเชื่อมต่อ PSU Passport ด้วย WordPress ผ่าน LDAPS Plugin AD Integration

    ทดสอบบน : Windows 2008 R2 / WordPress 4.1 / Active Directory Integration 1.1.5

    (more…)

  • การเชื่อมต่อ PSU Passport : Drupal7-LDAP (Module LDAP)

    วิธีการเชื่อมต่อ PSU Passport ด้วย Drupal7 ผ่าน LDAPS Module Lightweight Directory Access Protocol

    ทดสอบบน : Windows 2008 R2 / IIS 7.5 / Drupal 7.34 / LDAP Module 7.x-1.0-beta12

    (more…)

  • การเชื่อมต่อ PSU Passport : Drupal6-LDAP (Module LDAP integration)

    วิธีการเชื่อมต่อ PSU Passport ด้วย Drupal6 ผ่าน LDAPS Module LDAP integration

    ทดสอบบน : Windows 2008 R2 / IIS 7.5 / Drupal 6.34 / LDAP integration 6.x-1.x-dev

    (more…)

  • การเชื่อมต่อ PSU Passport : Joomla-LDAP

    วิธีการเชื่อมต่อ PSU Passport ด้วย Joomla ผ่าน LDAPS Plugin

    ทดสอบบน : Windows 2008 R2 / IIS 7.5 / Joomla 1.5.26/2.5.28/3.3.6

    ก่อนอื่นขออธิบายนิดนะครับในส่วนการ Map Full Name

    ชื่อ นามสกุล ภาษาไทย ให้ใช้ field = description
    ชื่อ นามสกุล ภาษาอังกฤษ ให้ใช้ field = displayname

    Joomla 1.5.26 Capture Authentication – LDAP Plugin Settings
    (บทความเก่าทดสอบบน Ubuntu 12.04-Apache2)

    joomla15

     

    Joomla 2.5.28 Capture Authentication – LDAP Plugin Settings

    joomla25

    Joomla 3.3.6 Capture Authentication – LDAP Plugin Settings

    joomla3

  • การเชื่อมต่อ PSU Passport : ASP.NET(C#)-LDAP

    วิธีการเชื่อมต่อ PSU Passport ด้วย ASP Classic ผ่าน LDAPS

    ทดสอบบน : Windows 2008 R2 / IIS 7.5 / .NET 2.0

    เนื่องจาก Code ค่อนข้างเยอะ ขอแป๊ะแค่ link ให้ Download File ดังนี้

    Source Code : https://passport.psu.ac.th/ldap/dotnetpsuldap.7z

    Password : psuldap#$%

  • การเชื่อมต่อ PSU Passport : ASP-LDAP

    วิธีการเชื่อมต่อ PSU Passport ด้วย ASP Classic ผ่าน LDAPS

    ทดสอบบน : Windows 2008 R2 / IIS 7.5

    Code ดังนี้

    Class PSULdap (psuldap.inc)

    <%
    'PSU Passport ASP-LDAP Class Version 1.0.0
    'Author : Jatuporn Chuchuay ISD CC PSU (Tel.2121)
    'Update : 06/02/2013
    Class PSULdap
            Private strAdsPath
            Private strUserName
            Private strPassWord
            Private strDC
    
            Public Property Let AdsPath(sAdsPath)
                    strAdsPath = sAdsPath
            End Property
            Public Property Let UserName(sUserName)
                    strUserName = sUserName
            End Property
            Public Property Let PassWord(sPassWord)
                    strPassWord = sPassWord
            End Property
            Public Property Let DC(sDC)
                    strDC = sDC
            End Property
            Public Property Get vAdsPath
                    vAdsPath = strAdsPath
            End Property
            Public Property Get vUserName
                    vUserName = strUserName
            End Property
            Public Property Get vPassWord
                    vPassWord = strPassWord
            End Property
            Public Property Get vDC
                    vDC = strDC
            End Property
    
            Public Function LdapAuthen()
                    Dim objConn,objRS,objCom, strDescription, strLine, listDC, authenCheck, i
                    Dim MyVar(1,20)
                    Set objConn = Server.CreateObject("ADODB.Connection")
                    objConn.provider ="ADsDSOObject"
                    objConn.Properties("User ID") = "psu\" & strUserName
                    objConn.Properties("Password") = strPassWord
                    objConn.Properties("Encrypt Password") = True
                    objConn.open "Active Directory Provider"
                    Set objCom = CreateObject("ADODB.Command")
                    Set objCom.ActiveConnection = objConn
                    listDC = Split(strDC,",",-1,1)
                    authenCheck = false
                    i = 0
                    While i <= UBound(listDC) and authenCheck = false
                            objCom.CommandText ="select sAMAccountname,cn," & _
    "distinguishedName,employeeid,citizenid,company,campusid,department,departmentid," & _
    "physicaldeliveryofficename,positionid,description,displayname,title,personaltitle," & _
    "personaltitleid,givenname,sn,sex,userprincipalname,mail from 'LDAP://" & listDC(i) & _
    ":636/"+strAdsPath+"' where sAMAccountname='" & strUserName & "' and objectClass='user'"
                            On Error Resume Next
                            Set objRS = objCom.Execute
                            If Not Err.Number = 0 Then
                                    MyVar(0,0) = false
                                    MyVar(1,0) = Err.Description
                                    'Debug
                                    'Response.write listDC(i) & ":" & MyVar(0,0) & ":" & _
    'MyVar(1,0) & "<br/>"
                            Else
                                    MyVar(0,0) = true
                                    'Debug
                                    'Response.write listDC(i) & ":" & MyVar(0,0) & "<br/>"
                                    authenCheck = true
                            End If
                            i = i + 1
                    Wend
                    If authenCheck = true Then
                            MyVar(1,0) = objRS("sAMAccountname")
                            MyVar(1,1) = objRS("cn")
                            MyVar(1,2) = objRS("employeeid")
                            MyVar(1,3) = objRS("citizenid")
                            MyVar(1,4) = objRS("company")
                            MyVar(1,5) = objRS("campusid")
                            MyVar(1,6) = objRS("department")
                            MyVar(1,7) = objRS("departmentid")
                            MyVar(1,8) = objRS("physicaldeliveryofficename")
                            MyVar(1,9) = objRS("positionid")
                            For Each strLine In objRS.Fields("description").Value
                                    strDescription = strDescription & strLine
                            Next
                            MyVar(1,10) = strDescription
                            MyVar(1,11) = objRS("displayname")
                            MyVar(1,12) = objRS("title")
                            MyVar(1,13) = objRS("personaltitle")
                            MyVar(1,14) = objRS("personaltitleid")
                            MyVar(1,15) = objRS("givenname")
                            MyVar(1,16) = objRS("sn")
                            MyVar(1,17) = objRS("sex")
                            MyVar(1,18) = objRS("userprincipalname")
                            MyVar(1,19) = objRS("mail")
                            MyVar(1,20) = objRS("distinguishedName")
                    End If
                    LdapAuthen = MyVar
                    objRS.Close
                    objConn.Close
                    Set objRS = Nothing
                    Set objConn = Nothing
                    Set objCom = Nothing
            End Function
    End Class
    %>

    Code Login (default.asp)

    <%@ Language=VBScript %>
    <%
    'PSU Passport ASP-LDAP Weblogin Version 1.0.0
    'Author : Jatuporn Chuchuay ISD CC PSU (Tel.2121)
    'Update : 06/02/2013
    %>
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title>PSU Passport : ASP-LDAP example</title>
    </head>
    <body>
    <!-- #include file ="psuldap.inc" -->
    <%
    Response.CharSet = "TIS-620"
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
            Dim PSULdapCls, AuthenResult, SamAccountName, EmployeeID, CitizenID, CN, DN
            Dim Campus, CampusID, Department, DepartmentID, WorkDetail, PositionID
            Dim Description,DisplayName, Detail, Title, TitleID, FirstName, LastName
            Dim Sex, Mail, Othermail
            Set PSULdapCls = New PSULdap
            PSULdapCls.AdsPath = "DC=psu,DC=ac,DC=th"
            'DC1(VM),2(RACK),7(VM)-Hatyai,DC3(RACK)-Pattani,DC5(RACK)-Surat,DC6(RACK)-Trang
            PSULdapCls.DC = "dc2.psu.ac.th,dc7.psu.ac.th,dc1.psu.ac.th"
            PSULdapCls.UserName = Request.Form("username")
            PSULdapCls.PassWord = Request.Form("password")
            AuthenResult = PSULdapCls.LdapAuthen()
            If AuthenResult(0,0) = True Then
                    SamAccountName = AuthenResult(1,0)
                    CN = AuthenResult(1,1)
                    EmployeeID = AuthenResult(1,2)
                    CitizenID = AuthenResult(1,3)
                    CampusID = AuthenResult(1,5)
                    WorkDetail = AuthenResult(1,8)
                    Department = AuthenResult(1,6)
                    DepartmentID = AuthenResult(1,7)
                    Campus =  AuthenResult(1,4)
                    PositionID = AuthenResult(1,9)
                    Description = AuthenResult(1,10)
                    Displayname = AuthenResult(1,11)
                    Detail = AuthenResult(1,12)
                    Title = AuthenResult(1,13)
                    TitleID = AuthenResult(1,14)
                    FirstName = AuthenResult(1,15)
                    LastName = AuthenResult(1,16)
                    Sex = AuthenResult(1,17)
                    Mail = AuthenResult(1,18)
                    Othermail = AuthenResult(1,19)
                    DN = AuthenResult(1,20)
                    'Display
                    'On Error Resume Next
                    Response.write "Authentication OK" & "<br/>"
                    Response.write "<br/>>> User Profile <<<br/>"
                    Response.write "Account Name : " & SamAccountName & "<br/>"
                    Response.write "Employee ID/Student ID : " & EmployeeID & "<br/>"
                    Response.write "Citizen ID : " & CitiZenID & "<br/>"
                    Response.write "CN : " & CN & "<br/>"
                    Response.write "DN : " & DN & "<br/>"
                    Response.write "Campus : " & Campus & "(" & CampusID & ")<br/>"
                    Response.write "Department : " & Department & "(" & DepartmentID & _
    ")<br/>"
                    Response.write "Work Detail : " & WorkDetail & "<br/>"
                    Response.write "Position ID : " & PositionID & "<br/>"
                    Response.write "Description : " & Description & "<br/>"
                    Response.write "Display Name : " & DisplayName & "<br/>"
                    Response.write "Detail : " & Detail & "<br/>"
                    Response.write "Title Name : " & Title & "(" & TitleID & ")<br/>"
                    Response.write "First Name : " & FirstName & "<br/>"
                    Response.write "Last Name : " & LastName & "<br/>"
                    Response.write "Sex : " & Sex & "<br/>"
                    Response.write "Mail : " & Mail & "<br/>"
                    Response.write "Other Mail : " & Othermail & "<br/>"
                    Response.write "<br/><a href='./default.asp'>Back to Login Page</a><br/>"
            Else
                    Response.write "Authentication Failed" & "<br/>"
                    Response.write "Reason : " & AuthenResult(1,0) & "<br/>"
            End If
    Else
    %>
    This area is restricted.<br>
    Please login to continue.<br>
    
    <form method='post' action=''>
    Username: <input type='text' name='username' value=''><br>
    Password: <input type='password' name='password'><br>
    <br>
    <input type='submit' name='submit' value='Submit'><br>
    </form>
    <%
    End If
    %>
    </body>
    </html>