Xuất dữ liệu từ Foxpro sang Excel và chuyển mã Unicode

Bài viết sau đây chúng tôi xin chia sẻ với bạn đọc các bước xuất dữ liệu từ Foxpro sang Excel và chuyển mã Unicode mời bạn đọc tham khảo
1. Copy các record dữ liệu từ file *.dbf sang 1 worksheet Excel. File *.dbf là 1 bảng (table) dữ liệu, worksheet Excel cũng là 1 bảng dữ liệu. Do đó việc chuyển thông tin từ file *.dbf sang worksheet Excel là hoạt động copy dữ liệu từ table này sang table khác. Bạn có thể lập trình dùng các đối tượng ADO để thực hiện hoạt động này. Cách đơn giản nhất là dùng trực tiếp Excel như sau: chạy Excel, chọn menu File.Open để mở file *.dbf và hiển thị lên 1 worksheet Excel. Sau đó, chọn menu File.Save As để lưu lại theo định dạng *.xls.

2. Chuyển mã các chuỗi văn bản trong bảng dữ liệu từ bảng mã này sang bảng mã khác (cụ thể là từ VNI 1 byte sang Unicode). Bạn có thể dùng các ứng dụng chuyển mã tiếng Việt sẵn có trên thị trường để chuyển mã tiếng Việt trực tiếp trong worksheet Excel.

Lưu ý, do bảng mã tiếng Việt VNI-DOS (và một số bảng mã tiếng Việt cũ khác) có dùng một số mã ký tự điều khiển làm ký tự tiếng Việt nên một số ứng dụng bị xử lý sai. Do đó để giải quyết tổng quát và triệt để vấn đề chuyển mã tiếng Việt, chúng tôi có viết 1 đối tượng COM cung cấp các hàm chức năng để chuyển mã tiếng Việt từ bất kỳ bảng mã nào sang một bảng mã khác. Bạn có thể liên hệ với tòa soạn để copy đối tượng này (file bktrans.dll) về cài vào máy và sử dụng. Qui trình cài đặt đối tượng COM vào máy như sau:

- Copy file bktrans.dll vào thư mục thích hợp (thí dụ c:MyCOM).

- Tạo icon shortcut trên màn hình desktop của trình đăng ký components bằng cách ấn phải chuột trên màn hình desktop, chọn option New.Shortcut, duyệt và chọn file c:windowssystem32regsvr32.exe để tạo icon shortcut cho nó.

- Chạy tiện ích duyệt hệ thống file, tìm và hiển thị nội dung thư mục c:MyCOM, thay đổi kích thước/dời vị trí cửa sổ hiển thị thư mục sao cho thấy được icon shortcut của trình đăng ký component, chọn file bktrans.dll, drag nó vào icon shortcut của trình đăng ký để đăng ký nó vào Windows.

- Sau khi đã đăng ký thành công, bạn có thể dùng bất kỳ môi trường lập trình nào (VB, VC++,...) để lập trình ứng dụng và dùng đối tượng Bktrans vừa đăng ký y như dùng các đối tượng COM khác.

Sau đây chúng tôi xin trình bày qui trình điển hình để xây dựng 1 ứng dụng bằng VB 6.0 đọc bảng dữ liệu từ file *.dbf, chuyển mã tiếng Việt từ mã VNI-DOS sang mã Unicode cho bất kỳ field chuỗi nào rồi ghi kết quả lên 1 worksheet Excel:

1. Chạy VB 6.0, tạo Project mới thuộc loại "Standard EXE" (loại Project mặc định có 1 Form giao diện rỗng ban đầu).

2. Chọn menu Project.References để hiển thị cửa sổ References. Duyệt tìm và chọn mục BkTrans 1.0 Type Library để "add" thành phần COM phục vụ chuyển mã tiếng Việt vào Project. Tương tự, duyệt tìm và chọn mục Microsoft ActiveX Data Objects 2.x Library để "add" thành phần COM phục vụ truy xuất database vào Project.

3. Chọn menu Project.Components để hiển thị cửa sổ Components. Duyệt tìm và chọn mục Microsoft Common Dialog Control 6.0 để "add" điều khiển phục vụ duyệt hệ thống file vào Project.

4. Thiết kế Form ứng dụng theo hình sau, gồm có 5 label, 3 textbox, 2 combobox, 3 button và 1 CommonDialog:

Đặt tên cho 3 textbox là txtDBFFile, txtExcelFile, txtWorksheet, tên cho 3 button là btnDBFFile, btnExcelFile, btnStart, tên cho 2 combobox là cbSourceCode, cbDestCode, tên cho CommonDialog là FileDialog.

5. Ấn kép chuột vào button btnDBFFile để tạo thủ tục xử lý sự kiện Click chuột trên nó, tương tự tạo thủ tục xử lý Click chuột cho 2 button còn lại và cho 2 Combobox rồi viết code VB 6.0 sau đây:

Option Explicit

'khai báo các biến cần dùng

Private srcid As Integer

Private dstid As Integer

Private VietLibCOM As New BKTRANSLib.BKTRANSLib

'thủ tục Click button chọn file DBF

Private Sub btnDBFFile_Click()

FileDialog.ShowOpen

txtDBFFile.Text = FileDialog.FileName

End Sub

'thủ tục Click button chọn file Excel

Private Sub btnExcelFile_Click()

FileDialog.ShowOpen

txtExcelFile.Text = FileDialog.FileName

End Sub

'thủ tục Click button bắt đầu chuyển mã & chuyển định dạng

Private Sub btnStart_Click()

'khai báo các biến cần dùng

Dim Connection1 As ADODB.Connection

Dim RecordSet1 As ADODB.Recordset

Dim Connection2 As ADODB.Connection

Dim RecordSet2 As ADODB.Recordset

Dim Command2 As ADODB.Command

Dim path As String, TableName As String

Dim strSQL As String, strbuf As String

Dim sfldbuf As String, dfldbuf As String

Dim i As Integer, j As Integer

Dim fStart As Integer, kq As Long

Dim fld As Variant

'xác định đường dẫn và file DBF

i = 1

Do

j = InStr(i, txtDBFFile.Text, "", vbBinaryCompare)

If (j <> 0) Then

i = j + 1

End If

Loop While j <> 0

'xác định đường dẫn

path = Mid(txtDBFFile.Text, 1, i - 1)

'xác định tên file DBF

TableName = Mid(txtDBFFile.Text, i)

'Tạo connection tới database nguồn

Set Connection1 = New ADODB.Connection

Connection1.Open "Provider=MSDASQL;DRIVER=Microsoft FoxPro VFP Driver (*.dbf);SourceType=DBF;SourceDB=" & path & ";"

'Tạo recordset chứa các record của table nguồn

Set RecordSet1 = New ADODB.Recordset

RecordSet1.Open TableName, Connection1, adOpenStatic, adLockReadOnly, adCmdTable

'Tạo connection tới database đích

Set Connection2 = New ADODB.Connection

Connection2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & txtExcelFile.Text & ";Extended Properties=Excel 8.0;"

'Tạo command làm việc với database đích

Set Command2 = New ADODB.Command

Command2.ActiveConnection = Connection2

'xây dựng lệnh SQL tạo Table đích

strSQL = "CREATE TABLE " & txtWorksheet.Text & " ("

'duyệt tìm từng field của table nguồn

fStart = 1

For Each fld In RecordSet1.Fields

'tìm tên và kiểu của field

Select Case fld.Type

Case 2

strbuf = "Integer"

Case 3

strbuf = "Long"

Case 5

strbuf = "Currency"

Case 6

strbuf = "Double"

Case 11

strbuf = "Logical"

Case 202

strbuf = "Text"

Case 203

strbuf = "Text"

Case 7

strbuf = "Date"

Case 135

strbuf = "Date"

Case 129

strbuf = "Text"

Case 131

strbuf = "Integer"

Case 133

strbuf = "Date"

Case Else

MsgBox "Type với mã " & fld.Type & " chưa được xử lý!!!"

End Select

If fStart Then

strSQL = strSQL & fld.Name & " " & strbuf

fStart = 0

Else

strSQL = strSQL & ", " & fld.Name & " " & strbuf

End If

Next fld

strSQL = strSQL & ")"

'Xóa table trên database đích nếu có rồi

'Command2.CommandText = "DROP TABLE " & txtWorksheet.Text

'Command2.Execute

'Tạo mới table trên database đích

Command2.CommandText = strSQL

Command2.Execute

'Tạo recordset chứa các record của table đích

Set RecordSet2 = New ADODB.Recordset

RecordSet2.Open txtWorksheet.Text, Connection2, adOpenKeyset, adLockOptimistic, adCmdTable

'duyệt chuyển mã và copy từng record

While Not RecordSet1.EOF

'tạo mới record

RecordSet2.AddNew

For i = 0 To RecordSet1.Fields.Count - 1

'nếu field i là chuỗi thì chuyển mã

If (RecordSet1.Fields(i).Type = 129) Or (RecordSet1.Fields(i).Type = 202) Or (RecordSet1.Fields(i).Type = 203) Then

On Error GoTo AssignIt

sfldbuf = RecordSet1.Fields(i).Value

If Len(sfldbuf) <> 0 Then

kq = VietLibCOM.TransStr(srcid, dstid, sfldbuf, dfldbuf)

RecordSet2.Fields(i).Value = dfldbuf

Else: GoTo AssignIt

End If

Else

'nếu không thì chỉ copy dữ liệu

AssignIt:

RecordSet2.Fields(i).Value = RecordSet1.Fields(i).Value

End If

Next i

'lưu lại record lên table đích

RecordSet2.Update

'di chuyển đến record kế tiếp

RecordSet1.MoveNext

Wend

'đóng các đối tượng sử dụng lại

RecordSet1.Close

Connection1.Close

Connection2.Close

End Sub

'thủ tục Click chọn mã tiếng Việt đích

Private Sub cbDestCode_Click()

dstid = cbDestCode.ListIndex

End Sub

'thủ tục Click chọn mã tiếng Việt gốc

Private Sub cbSourceCode_Click()

srcid = cbSourceCode.ListIndex

End Sub

'thủ tục khởi tạo ban đầu cho ứng dụng

Private Sub Form_Load()

Dim i As Integer

Dim s As String

Dim ret As Integer

Dim cnt As Integer

'xóa trắng nội dung các đối tượng hiển thị

txtDBFFile.Text = ""

txtExcelFile.Text = ""

txtWorksheet.Text = ""

cbSourceCode.Clear

cbDestCode.Clear

'khởi động đối tượng chuyển mã

ret = VietLibCOM.Init()

'tìm số bảng mã được phép xử lý

cnt = VietLibCOM.GetCodeCount()

'hiển thị chúng vào 2 combox để user chọn lựa

For i = 0 To cnt - 1

VietLibCOM.GetCodeName i, s

cbSourceCode.AddItem s

cbDestCode.AddItem s

Next i

End Sub

6. Chọn menu Run.Start để chạy thử ứng dụng, chọn file DBF gốc, chọn file Excel chứa kết quả, chọn mã tiếng Việt gốc, chọn mã tiếng Việt đích, nhập tên worksheet chứa kết quả, chọn button "Bắt đầu copy và chuyển mã file DBF". Sau đó chạy Excel và mở xem thử nội dung file Excel kết quả.

Lưu ý chương trình trên có thể truy xuất bảng dữ liệu của bất kỳ database server nào (FoxPro, Access, Excel, MySQL, SQL, Oracle,...). Bạn chỉ cần hiệu chỉnh chuỗi ConnectionString miêu tả database cần truy xuất cho phù hợp với định dạng database cần truy xuất.

Bạn có thể liên hệ với tòa soạn để copy Project VB 6.0 của ứng dụng chuyển mã (có tên là VBTransDataTable) và file bktrans.dll chứa đối tượng COM phục vụ chuyển mã tiếng Việt.

Theo thanglong-aptech.com

More about →

Lấy tên chương trình đang chạy trong máy tính bằng VB

Khi 1 file phần mềm chạy (do yêu cầu người dùng hay do chương trình khác kích hoạt), nó được nạp vào bộ nhớ và trở thành process. Bạn có thể dùng hàm API của Windows có tên là WTSEnumerateProcesses() để thống kê tất cả các process đang chạy trên máy, mỗi process là của file khả thi nào, từ đó quyết định xử lý chúng theo yêu cầu của mình.

Sau đây chúng tôi xin giới thiệu qui trình điển hình để xây dựng ứng dụng VB 6.0 demo việc thống kê tất cả các process đang chạy và hiển thị thông tin về chúng trong một ListVew để người dùng xem:
1. Chạy VB 6.0, tạo Project ứng dụng dạng 'Standard EXE' đơn giản.
2. Chọn menu Project.Components để hiển thị cửa sổ Components, duyệt tìm vào chọn mục Microsoft Window Common Controls 6.0 rồi Ok để thêm các control trong thư viện này vào ToolBox của Project.
3. Thiết kế Form gồm 1 ListView có tên mặc định là ListView1 như hình 4.
4. Chọn menu View.Code để hiển thị cửa sổ soạn mã nguồn cho form rồi viết code cho nó như sau:

Option Explicit

'khai báo hằng và kiểu cần dùng

Private Const WTS_CURRENT_SERVER_HANDLE = 0&

Private Type WTS_PROCESS_INFO

SessionID As Long

ProcessID As Long

pProcessName As Long

pUserSid As Long

End Type

'khai báo các hàm API cần dùng

Private Declare Function WTSEnumerateProcesses Lib 'wtsapi32.dll' Alias 'WTSEnumerateProcessesA' (ByVal hServer As Long, ByVal Reserved As Long, ByVal Version As Long, ByRef ppProcessInfo As Long, ByRef pCount As Long) As Long

Private Declare Sub WTSFreeMemory Lib 'wtsapi32.dll' (ByVal pMemory As Long)

Private Declare Sub CopyMemory Lib 'kernel32' Alias 'RtlMoveMemory' (Destination As Any, Source As Any, ByVal Length As Long)

'hàm tìm chuỗi từ địa chỉ bộ nhớ xác định

Private Function GetStringFromLP(ByVal StrPtr As Long) As String

Dim b As Byte

Dim tempStr As String

Dim bufferStr As String

Dim Done As Boolean

Done = False

Do 'lấy từng byte và xử lý

CopyMemory b, ByVal StrPtr, 1

If b = 0 Then 'kết thúc chuỗi

Done = True

Else

tempStr = Chr$(b)

bufferStr = bufferStr & tempStr

StrPtr = StrPtr + 1 'tăng pointer tới byte kế

End If

Loop Until Done

GetStringFromLP = bufferStr

End Function

'thủ tục khởi động Form

Private Sub Form_Load()

ListView1.View = lvwReport

'tạo header gồm 4 cột thông tin trên ListView

ListView1.ColumnHeaders.Add 1, 'SessionID', 'Session ID'

ListView1.ColumnHeaders.Add 2, 'ProcessID', 'Process ID'

ListView1.ColumnHeaders.Add 3, 'ProcessName', 'Process Name'

ListView1.ColumnHeaders.Add 4, 'UserID', 'User ID'

'thống kê và hiển thị các process

GetWTSProcesses

End Sub

'thủ tục thống kê và hiển thị thông tin các process

Private Sub GetWTSProcesses()

'khai báo các biến cần dùng

Dim RetVal As Long

Dim Count As Long

Dim i As Integer

Dim lpBuffer As Long

Dim p As Long

Dim udtProcInfo As WTS_PROCESS_INFO

Dim itmAdd As ListItem

'xóa nội dung cũ của ListView

ListView1.ListItems.Clear

'thống kê các process

RetVal = WTSEnumerateProcesses(WTS_CURRENT_SERVER_HANDLE, 0&, 1, lpBuffer, Count)

If RetVal = 0 Then 'nếu thất bại

MsgBox 'Error occurred calling WTSEnumerateProcesses. ' & 'Check the Platform SDK error codes in the MSDN Documentation' & ' for more information.', vbCritical, 'Error ' & Err.LastDllError

'dừng thủ tục

Exit Sub

End If

'nếu thống kê được thì lặp hiển thị từng process

p = lpBuffer

For i = 1 To Count

'copy thông tin về process i vào biến udtProcInfo

CopyMemory udtProcInfo, ByVal p, LenB(udtProcInfo)

'thêm hàng thông tin về process i vào ListView

Set itmAdd = ListView1.ListItems.Add(i, , CStr(udtProcInfo.SessionID))

itmAdd.SubItems(1) = CStr(udtProcInfo.ProcessID)

itmAdd.SubItems(2) = GetStringFromLP(udtProcInfo.pProcessName)

itmAdd.SubItems(3) = CStr(udtProcInfo.pUserSid)

'hiệu chỉnh p về vị trí miêu tả process kế tiếp

p = p + LenB(udtProcInfo)

Next i

Set itmAdd = Nothing

'giải phóng bộ nhớ

WTSFreeMemory lpBuffer

End Sub

Lưu ý tên file khả thi của process được chứa trong trường udtProcInfo.pProcessName.
5. Chọn menu Run.Start để chạy thử Form vừa xây dựng và xem danh sách các process đang chạy trên máy.

Theo pcworld

Nguồn bài viết: thanglong-aptech.com

More about →

5 cách tăng tốc mạng gia đình

Dưới đây là 5 cách khiến mạng gia đình bạn trở nên tuyệt vời, và bạn sẽ có thể chào từ biệt công ty truyền hình cáp mà không hề vương vấn.

Nhưng trước tiên, hãy lưu ý một điều: mạng không dây của bạn hiện tại không thể chạy nhanh hơn kết nối Internet của mạng gia đình bạn. Nếu bạn có lý do để nghĩ rằng mạng của bạn không chạy nhanh như trước đây - hoặc lẽ ra phải nhanh tương ứng với phần cứng của bạn - hãy truy cập trang http://www.speedtest.net/ và kiểm tra tốc độ tải lên/xuống rồi so sánh chúng với những gì nhà cung cấp dịch vụ Internet (ISP) đã cam kết với bạn. Đây là động tác đầu tiên để phân biệt ISP của bạn có phải là thủ phạm khiến mạng chậm hay không.

1. Chuyển Router để sóng Wi-Fi phủ tốt hơn

Tiếp đến, hãy bắt đầu với những thao tác hết sức đơn giản để tối ưu hóa mạng không dây. Điều cần làm trước tiên là chuyển router đến một vị trí trung tâm hơn, hoặc đặt trong một căn phòng mà không bị ngăn cách bởi những bức tường dày, cũng như không có nhiều thiết bị khác có thể gây nhiễu. Các router phát tín hiệu dạng sóng lan rộng ra xung quanh theo mọi hướng, vì vậy nếu nó được đặt ở góc sâu nhất của căn nhà, hoặc dưới tầng hầm, tín hiệu có thể không đủ mạnh để xuyên vào tất cả các phòng. Như vậy một số phòng sẽ không có sóng Wi-Fi (hoặc quá yếu) để bạn có thể kết nối thiết bị với Internet.

Các chuyên gia vẫn thường khuyên rằng, để sóng Wi-Fi phủ rộng, router tích hợp tính năng phát sóng Wi-Fi nên được treo lên cao, nhưng cũng không nên sát với trần nhà đúc bê tông.

2. Coi chừng điện thoại không dây phát trùng kênh Router

Điện thoại không dây (thường gọi là mẹ bồng con) có thể gây nhiễu vì một số loại phát sóng trùng kênh với router của bạn. Nếu bạn nghĩ rằng điều đó có thể xảy ra, hãy thử đổi kênh trên điện thoại và xem sóng Wi-Fi có còn bị nhiễu nữa hay không.

3. Mua một bộ mở rộng (Extender)

Vấn đề hóc búa nhất với bạn là mở rộng phạm vi vùng phủ sóng của mạng. Một tòa nhà nhiều tầng lầu hay khu biệt thự rộng khiến có những khu vực không nhận được tín hiệu (hoặc tín hiệu quá yếu) phát từ router. Và dĩ nhiên việc di chuyển router cũng không khả thi. Lúc đó bạn sẽ cần dùng tới bộ mở rộng tín hiệu. Tuy nhiên, bạn sẽ phải trả giá về hiệu suất vì tín hiệu qua bộ mở rộng sẽ bị yếu đi. Điều đó có thể không quan trọng nếu bạn chỉ lướt Web, nhưng nếu thường chơi game online, bạn sẽ cảm thấy thất vọng vì thỉnh thoảng sẽ bị "về thành dưỡng sức". Đó cũng không phải cách tốt để xem phim trực tuyến trên TV qua các set-top box.

4. Thay đổi thiết bị mạng nếu cần

Nếu muốn tăng tốc cho mạng Wi-Fi hiện có của bạn sau khi đã cố gắng thử chuyển router tới một vài vị trí khác mà vẫn không ưng ý, có lẽ đã đến lúc bạn nên nâng cấp phần cứng mạng. Một số điều cần lưu ý:

Thành phần chạy chậm nhất trong mạng sẽ kéo tốc độ mạng trên toàn nhánh xuống theo.

Các chuẩn Wi-Fi đã thay đổi nhanh trong những năm qua. Các chuẩn 802.11a/b/g đã quá cũ. Chuẩn mới nhất 802.11n mới là thứ bạn cần.

Nhiều MTXT được sản xuất gần đây hỗ trợ công nghệ kết nối Wi-Fi theo chuẩn "n". Và bạn hãy nhớ kiểm tra router (hay Wireless Access Point - AP, nếu dùng rời) có hỗ trợ chuẩn "n" hay không. Lưu ý là việc thay router (nếu không hỗ trợ "n") là phương án tối ưu thay vì nâng cấp mạng bằng cách bổ sung AP và giữ lại router.

Việc cài đặt router mới không mất nhiều thời gian, và có thể nhận được hỗ trợ kỹ thuật miễn phí từ phía bán hàng. Một số router hiện nay được nhắm cho người dùng gia đình thiếu một số tính năng cao cấp thường được dùng trong doanh nghiệp, đổi lại chúng có giá rẻ và rất dễ cài đặt. Những tính năng cao cấp có lẽ chỉ thêm tốn tiền trong khi bạn hầu như không dùng tới chúng.

5. Để ý tới phương tiện truyền dẫn điện

Bạn nên nhớ, những thiết bị điện như dây dẫn, ổ cắm, ổ kéo dài cần phải đảm bảo chất lượng để không gây nhiễu. Trong trường hợp này, có lẽ không nên vì quá tiết kiệm mà mua đồ giá rẻ, lợi bất cập hại. "Hàng hiệu" là lựa chọn hàng đầu.

Tín hiệu điện trong nhà được truyền qua hệ thống dây dẫn điện và các thiết bị đấu nối (ổ cắm, phích cắm...). Adapter của modem hoặc router băng thông rộng sẽ được cắm vào một ổ điện có sẵn trong mạng điện, hoặc ổ nối dài.

Hệ thống dây điện và ổ cắm cũ kỹ có thể là một mối bận tâm vì rất dễ gây nhiễu, cung cấp nguồn điện không "sạch" cho thiết bị khiến tín hiệu mạng có thể không ổn định.

Theo pcwporld

Nguồn: 5 cách tăng tốc mạng gia đình

More about →

Chọn máy chủ và phần mềm dùng cho ảo hóa

Ảo hóa giúp việc quản trị đơn giản cũng như giảm chi phí. Bằng cách dùng một máy chủ vật lý để chạy nhiều máy chủ ảo hóa, bạn có thể giảm nhiều chi phí hoạt động cũng như chi phí đầu tư.

Hiện nay, gần như không thể mua máy chủ mà không phải là loại đa nhân nhưng nhiều doanh nghiệp nhỏ (dưới 100 nhân viên) lại yêu cầu máy chủ không cần quá mạnh như vậy. Tuy nhiên, nếu tuân theo yêu cầu trên thì khả năng là doanh nghiệp nhỏ sẽ trang bị máy chủ vật lý vừa đắt tiền, ít hiệu quả vừa tiêu tốn nhiều năng lượng, tỏa nhiều nhiệt. Đó là lý do vì sao nên mua máy chủ đa nhân - có 4, 6 hay thậm chí 12 nhân trên một bộ xử lý - để lưu trữ máy chủ ảo hóa, phù hợp cho mọi quy mô hoạt động của doanh nghiệp.

Chọn máy chủ lưu trữ

Quyết định sự thành công máy chủ ảo hóa trong môi trường có quy mô nhỏ hơn bắt đầu bằng máy chủ lưu trữ vật lý (host). Mặc dù nó sẽ chịu trách nhiệm cho việc lưu trữ hàng tá máy chủ ảo, nhưng lại yêu cầu tài nguyên trên bộ xử lý (CPU) ít hơn bạn nghĩ.
Tùy theo phần mềm ảo hóa (chẳng hạn hypervisor), bạn sẽ có thể chạy máy chủ ảo hóa trên CPU 4 hoặc 6 nhân. Lý do là hầu hết máy chủ ảo hóa được vận hành gần như ở trạng thái duy trì (idle) trong phần lớn thời gian. Khi máy chủ ảo hóa bắt đầu chạy, tài nguyên của chúng có khuynh hướng chia ra cho CPU, RAM, đĩa cứng và truy xuất mạng vào/ra, trong đó chỉ một số máy chủ ảo yêu cầu tài nguyên CPU đáng kể. Bằng cách tận dụng ưu điểm này, bạn có thể phối hợp chặt chẽ nhiều máy chủ vật lý trên cùng một máy chủ lưu trữ duy nhất.
Tuy nhiên, đối với các máy chủ cơ sở dữ liệu, tải dữ liệu nhiều không thích hợp cài đặt trên máy chủ ảo hóa. Tất cả tùy thuộc vào tài nguyên phần cứng trên máy chủ lưu trữ, tính năng phần mềm ảo hóa, và cũng tùy thuộc vào những quy định của máy chủ ảo hóa. Việc thiết lập và kiểm tra các yêu cầu này trước khi thực hiện là điều không quá khó.
Chọn phần cứng, một nguyên tắc cần nhớ là chọn CPU đa nhân và có tốc độ xung nhịp lớn dành cho máy chủ lưu trữ; nếu bạn chọn giữa CPU 4 nhân tốc độ 2,93GHz và CPU 6 hoặc 12 nhân tốc độ 2,4GHz, bạn nên chọn CPU 6 hoặc 12 nhân. Bởi vì khả năng chia tải máy chủ ảo trên CPU đa nhân nhanh hơn, hiệu suất hoạt động đồng bộ hơn trên tất cả máy chủ ảo.

RAM và đĩa cứng

Máy chủ lưu trữ ảo hóa có thể luôn dùng nhiều bộ nhớ hệ thống (RAM), vì vậy hãy trang bị càng nhiều RAM càng tốt, và lựa chọn loại RAM nhanh nhất có thể. Mặt khác, việc phân bổ RAM cũng bị khống chế khắt khe hơn nhiều so với CPU. Càng nhiều RAM, bạn càng có thể có nhiều máy chủ ảo hóa.
Trong môi trường nhỏ hơn, bạn có thể không cần mạng lưu trữ hay thiết bị lưu trữ qua mạng để lưu ảnh máy chủ ảo hóa, vì máy chủ lưu trữ sẽ chịu trách nhiệm cho công việc này. Trong trường hợp đó, càng nhiều đĩa cứng càng tốt. Yêu cầu chung, ổ đĩa SATA chạy RAID 5 hay RAID 6 thì đủ đáp ứng, mặc dù ổ đĩa cứng SAS (Serial Attached SCSI) cung cấp hiệu suất hoạt động hiệu quả hơn.

Phần mềm ảo hóa

Bạn có nhiều lựa chọn phần mềm miễn phí. VMware Server miễn phí chạy trên Windows hay Linux. Phần mềm ảo hóa cần hệ điều hành để cung cấp các yêu cầu chính cho hoạt động và chúng dễ cài đặt và sử dụng. Nếu bạn muốn miễn phí hoàn toàn, hãy cài đặt Linux trên máy chủ và chạy bản VMware Server trên Linux. Nếu không, hãy cài đặt bản Windows Server 2003 hay 2008 và chạy bản VMware Server trên Windows.
VMware có bản miễn phí là VMware ESXi. Phiên bản này được xây dựng trên cơ sở của bản VMware trả phí, ổn định, nhưng VMware ESXi có một số vấn đề tương thích phần cứng, kiểm tra tương thích phần cứng tại find.pcworld.com/70448.
Hyper-V của Microsoft có lẽ tốt cho hệ thống mạng chạy Windows. Về mặt kỹ thuật, Hyper-V không miễn phí, vì nó yêu cầu mua Windows Server 2008 R2, tuy nhiên Hyper-V có giao diện đơn giản và tích hợp tốt vào hệ điều hành. Nếu máy chủ ảo hóa chạy trên máy chủ lưu trữ Windows Server 2008, bạn có thể nghĩ đến việc mua bản quyền. Mua Windows Server 2008 R2 cho phép chạy 4 máy chủ Windows Server 2008 ảo, chỉ với 1 bản quyền.
Bạn cũng có thể chọn lựa tùy chọn khác, chẳng hạn như XenServer của Citrix. Phiên bản miễn phí này có tính năng có thể không bằng bản miễn phí của VMware, chẳng hạn quản lý nhiều máy chủ. XenServer không theo trào lưu như các phần mềm khác, nhưng nó có thể tải về và cài đặt miễn phí, và không cần dựa vào hệ điều hành hay bản quyền hệ điều hành nào.

Card mạng

Trong nhiều trường hợp, máy chủ vật lý chỉ dùng 1 hay 2 card mạng để hỗ trợ toàn bộ môi trường ảo hóa, nhưng nếu bộ chuyển mạch mạng (switch) cho phép bạn gộp đường kết nối để tăng băng thông cho máy chủ ảo thì rất tốt. Việc gộp 2 hay nhiều card mạng tốc độ gigabit, giúp bạn tạo một card mạng ảo lớn hơn, hỗ trợ nhiều băng thông hơn cho người dùng và cho các máy chủ vật lý khác trên mạng. Nhiều bộ chuyển mạch tầm trung hỗ trợ tính năng này.
Nếu bộ chuyển mạch mạng thiếu tính năng gộp đường kết nối, bạn có thể dành một card mạng cho một máy chủ có tải nhiều nhất. Card mạng gigabit giờ cũng khá rẻ, vì vậy hãy trang bị ít nhất 4 card mạng gigabit cho máy chủ vật lý.

Nguồn điện

Bạn thường thấy một số máy chủ chỉ có một nguồn cung cấp điện duy nhất, nhưng nếu bạn chạy nhiều máy chủ ảo hóa trên một máy chủ lưu trữ, bạn nên đầu tư thêm bộ nguồn chạy chế độ dự phòng. Tất cả máy chủ ảo hóa của bạn đều phụ thuộc hoàn toàn vào nguồn điện cung cấp của máy chủ vật lý. Việc trang bị nguồn điện dự phòng khá đáng giá nếu bạn dư giả.

Theo PCWorld VN

Nguồn : Chọn máy chủ và phần mềm dùng cho ảo hóa

More about →

Chuyển đổi biểu thức thành tổng giá trị

Xin hướng dẫn cách đổi một chuỗi dạng công thức sang số (ví dụ chuỗi (3+2)*2, sau khi biến đổi sẽ là 10).

Trả lời :

Yêu cầu của bạn thuộc dạng viết chương trình dịch. Để giải quyết tốt và tổng quát được vấn đề, trước hết bạn phải định nghĩa cú pháp được dùng để xây dựng công thức. Sau khi có cú pháp xây dựng công thức, bạn sẽ viết 2 module sau để phục vụ dịch công thức sang giá trị cuối cùng của nó:

- Module xử lý từ vựng, module này có nhiệm vụ chuyển công thức từ dạng chuỗi ký tự thô sang chuỗi token có nghĩa. Bạn có thể dùng công cụ Lex để xây dựng module này dễ dàng.
- Module xử lý cú pháp, module này có nhiệm vụ chuyển công thức từ dạng chuỗi token sang dạng cây cú pháp, nhờ đó thực hiện tính giá trị của công thức được dễ dàng. Bạn có thể dùng công cụ Yacc để xây dựng module này.

Cụ thể, nếu ta định nghĩa cú pháp của công thức ở mức đơn giản như sau:
hằngsố = chuỗi từ 1 tới n ký số thập phân
toántử = + | - | * | /
dấu ngăn = ( | )
côngthức = hằngsố
| (côngthức)
| côngthức + côngthức
| côngthức - côngthức
| côngthức * côngthức
| côngthức / côngthức
1. Ta có thể dùng ngôn ngữ đặc tả Lex để đặc tả các biểu thức chính qui miêu tả các token được dùng để xây dựng công thức như sau:

include "expr.h"

%%

[0-9]* { yylval.ival = atoi(yytext);

return ICONST; }

"*" { return MUL; }

"-" { return SUB; }

"+" { return ADD; }

"/" { return DIV; }

"(" { return LPAR; }

")" { return RPAR; }

. { }

%%

Cất đoạn lệnh trên vào file expr.l. Lưu ý rằng để hiểu và viết được các lệnh Lex đặc tả các token, bạn cần phải biết cú pháp của ngôn ngữ Lex (vốn rất dễ hiểu).

2. Soạn nội dung file expr.h như sau để phục vụ cho file expr.l ở trên:
//đoạn code C định nghĩa 1 số kiểu và hằng cần dùng

typedef union {

char* s;

int ival;

int t;

} YYSTYPE;

extern YYSTYPE yylval;

# define ICONST 257

# define ADD 258

# define SUB 259

# define DIV 260

# define MUL 261

# define LPAR 262

# define RPAR 263

3. Tương tự, ta có thể dùng ngôn ngữ đặc tả Yacc để đặc tả cú pháp của công thức và tính giá trị công thức như sau:

%{

//đoạn code C chứa các hàm dịch vụ

#include

#include

#include

#include

#include

#include

#include

#include

#include

#include

#include

extern FILE* yyin;

char pexpr[256];

int ketqua;

void yyerror(char* ps) {

printf("%s",ps);

}

%}

%union {

char* s;

int ival;

int t;

}

%token ICONST ADD SUB DIV MUL LPAR RPAR

%type Expr ICONST

%type ADD SUB MUL DIV LPAR RPAR

%left ADD SUB

%left MUL DIV

%start Expr

%%

Expr : ICONST

{ $$ = yylval.ival; ketqua = $$;}

| LPAR Expr RPAR

{ $$ = $2; ketqua = $$;}

| Expr ADD Expr

{ $$ = $1 + $3; ketqua = $$;}

| Expr SUB Expr

{ $$ = $1 - $3; ketqua = $$;}

| Expr DIV Expr

{ $$ = $1 / $3; ketqua = $$;}

| Expr MUL Expr

{ $$ = $1 * $3; ketqua = $$;}

;

%%

//chương trình tính công thức được viết bằng C

void main(int argc, char* argv[]) {

loop:

printf("Nhập biểu thức cần tính : ");

scanf("%s",pexpr);

// Cất chuỗi ký tự miêu tả công thức lên file

remove("ftmp.txt");

yyin = fopen("ftmp.txt","w");

fprintf(yyin,"%sn",pexpr);

fclose(yyin);

// Mở lại file chứa công thức

yyin = fopen("ftmp.txt","r");

// Phân tích biểu thức và tính kết quả

yylex_init();

yyparse();

printf("Biểu thức vừa nhập có giá trị là : %dn",ketqua);

goto loop;

}

Cất đoạn lệnh trên vào file expr.y. Lưu ý rằng để hiểu và viết được các lệnh Yacc đặc tả cú pháp, bạn cần phải biết cú pháp của ngôn ngữ Yacc (vốn khá dễ hiểu).

4. Soạn đoạn script sau để dịch tự động các file ra chương trình khả thi và lưu lên file có tên là makefile:

CFLAGS= -c -g255 -v -ml -C -Ic:bc31include

LFLAGS= -ml -v -Lc:bc31lib

CC= bcc

GRAPH= c:bc31libgraphics.lib

yacc= c:Toolsfyacc

lex= c:Toolsflex

expr: expr.obj exprlex.obj

$(CC) -eexpr $(LFLAGS) expr.obj exprlex.obj

expr.obj: expr.c expr.h

$(CC) $(CFLAGS) expr.c

exprlex.obj: exprlex.c expr.h

$(CC) $(CFLAGS) exprlex.c

expr.c: expr.y

$(yacc) -vdl expr.y

del expr.c

ren ytab.c expr.c

del expr.h

ren ytab.h expr.h

exprlex.c: expr.l

$(lex) -tl expr.l >exprlex.c

Đoạn script trên sẽ dùng chương trình dịch BorlandC được cài đặt vào thư mục c:bc31, nó cũng dùng 2 tiện ích Flex và Fyacc được cài đặt ở thư mục c:Tools. (Bạn có thể tải về từ website TGVT 2 tiện ích này, với tên file lần lượt là Bison111.zip và flex251.zip).

4. Chạy tiện ích Start.All Program.Accessories.Command Prompt, nhập và thực hiện các lệnh sau:
c:>cd exprcalc
c:exprcalc>make expr
5. Sau khi biên dịch ra file chương trình có tên là expr.exe, bạn có thể chạy thử ứng dụng rồi nhập thử từng công thức cần tính và xem kết quả

Theo pcworld

Nguồn : thanglong-aptech.com

More about →

Truy vấn có tham số từ form trong Visual Foxpro 6.0

Trong lúc lập trình, chúng ta thường phải xây dựng các lệnh truy vấn theo nội dung động do người dùng nhập vào. Ngôn ngữ FoxPro (và các ngôn ngữ lập trình khác) cho phép ta thực hiện điều này dễ dàng.

Thí dụ ta thiết kế 1 Form FoxPro đơn giản gồm 1 textbox có tên là txtHoten và 1 button có tên là btnSearch, đoạn code FoxPro sau (nằm trong thân thủ tục xử lý sự kiện click chuột vào button btnSearch) sẽ tạo lệnh truy vấn Select để tìm các record của bảng table1 trong file database data1.dbc mà nội dung trường hoten có chứa chuỗi nhập vào textbox txtHoten:

*khai báo biến cần dùng

public shoten

*mở database cần dùng

open database c:datadata1.dbc

*chứa chuỗi nhập vào biến

shoten = ALLTRIM(thisform.txtHoten.Text)

*thực hiện tìm kiếm

Select * from table1 where hoten like '%&str%'

Lưu ý, trong lệnh Select (hay bất kỳ lệnh truy vấn SQL nào), bạn có thể chèn nội dung động bằng cách dùng cú pháp &ten, trong đó ten là tên biến chứa nội dung chuỗi động cần dùng.

Theo pcworld

Nguồn : Thanglong-Aptech.com

More about →

Cảnh giác virus tấn công người dùng Twitter

Các chuyên gia của Kaspersky Lab lại vừa đưa ra cảnh báo về một loại sâu mới tấn công các tài khoản Twitter. Loại sâu này khai thác dịch vụ rút gọn đường dẫn của nhà cung cấp Google là goo.gl.

Các đường dẫn được rút gọn đang được sử dụng rộng rãi trong các hệ thống mạng xã hội giúp rút ngắn độ dài các thông điệp, tin nhắn cho người sử dụng dịch vụ Twitter. Tuy nhiên, theo cảnh báo gần đây của phòng thí nghiệm Kaspersky, các đường dẫn ngắn này có nhiều mối đe dọa tiềm ẩn, bởi các đường dẫn rút gọn làm cho người dùng không biết trước nội dung của chúng và dễ bị dẫn vào các trang web có thể gây hại. Những dấu hiệu mới nhất càng chứng tỏ giới tin tặc đang tăng cường sử dụng phương thức tấn công này.

Đợt tấn công mới nhất trên mạng xã hội Twitter chứng kiến một loại sâu máy tính sử dụng dịch vụ đường dẫn rút gọn uy tín của Google là goo.gl. Chúng sẽ dẫn dụ người dùng đến một trang web cung cấp phần mềm diệt virus giả mang tên "Security Shield". Sau nhiều lần chuyển trang, người sử dụng bị chuyển đến một trang bị bọn tin tặc nhúng vào các mã độc hại bao gồm cả các mã RSA chạy trên nền phổ biến JavaScrip, có hàng ngàn các thông điệp Twitter tiếp tục phát tán loại sâu này mỗi ngày.

Quá trình tấn công sẽ xảy ra như sau, người dùng sẽ nhận được một cảnh báo rằng máy tính bạn đang chạy các ứng dụng nguy hiểm khi đang truy cập các trang web. Lời cảnh báo còn đưa hướng dẫn chi tiết giúp người dùng loại bỏ tất cả các mối đe dọa đó bằng cách tải phầm mềm diệt virus "Security Shield". Kết quả là máy tính người dùng sẽ bị nhiễm các mã độc hại khi chọn cài đặt chương trình diệt virus giả mạo đó.

Bên cạnh dùng phần mềm diệt virus, các chuyên gia bảo mật cũng khuyến cáo người dùng phải luôn cẩn thận khi truy cập vào các liên kết ngẫu nhiên ngay cả trên những mạng xã hội phổ biến như Twitter và các dịch vụ uy tín như Goo.gl.

Lê Mỹ
Theo ictnews

Nguồn: Cảnh giác virus tấn công người dùng Twitter

More about →

Thêm lớp bảo mật cho quá trình đăng nhập Windows

Bài viết sẽ trình bày các biện pháp để tăng tính bảo mật cho quá trình đăng nhập vào máy tính. Tùy theo nhu cầu bạn có thể chọn lựa cho mình một phương pháp phù hợp để bảo vệ dữ liệu khỏi các cặp mắt tò mò của người khác khi không có bên cạnh chiếc máy tính.

1.Dùng mật khẩu

Đây là cách phổ biến nhất được đại đa số người dùng chọn lựa.Từ khi khởi động máy tính cho đến lúc vào giao diện desktop của Windows bạn có thể thiết lập cho mình 3 lớp mật khẩu để tăng tính an toàn: mật khẩu CMOS, mật khẩu syskey và mật khẩu đăng nhập Windows.

+Mật khẩu BIOS: tùy vào nhà sản xuất mainboard mà các phím tắt để vào BIOS có khác nhau nhưng thông thường là các phím Del, F1, F2, F10, ...Đối với những người chưa có kinh nghiệm không nên thiết lập mật khẩu này. Nếu chẳng may quên sẽ không thể khởi động vào windows được. Hơn nữa việc gỡ bỏ không hề đơn giản, đặc biệt trên các máy laptop.

+Mật khẩu syskey: gõ syskey trong hộp thoại tìm kiếm ở Start menu, nhấn Update trong hộp thoại xuất hiện. Đánh dấu chọn vào mục Password Startup và nhập cùng một mật khẩu tại hai trường Password và Confirm xong nhấn OK để kết thúc.

+Mật khẩu đăng nhập: Đây là mật khẩu được sử dụng phổ biến nhất và cũng dễ dàng bị bẻ khóa nhất bằng rất nhiều các công cụ trên đĩa Hiren Boot. Để tạo mật khẩu này bạn vào Control Panel, mục User accounts, chọn tài khoản muốn tạo mật khẩu và chọn mục Create a password for your account. Nhập cùng mật khẩu vào hai trường New password và Confirm new password xong nhấn Create password.

2.Dùng chức năng nhận dạng khuôn mặt

Với phương pháp này đòi hỏi bạn phải có một chiếc webcam chất lượng tốt và một phần mềm nhận dạng khuôn mặt được cài đặt sẵn. Phần mềm miễn phí Luxand Blink được đánh giá cao về lĩnh vực này. Với Luxand Blink, bạn có thể đăng nhập vào ban ngày hay ban đêm nhờ các thuật toán nhận dạng khuôn mặt rất tinh vi và tự động điều chỉnh để thích ứng với sự thay đổi điều kiện ánh sáng.

Trong quá trình cài đặt bạn sẽ được yêu cầu chọn loại webcam mình sử dụng như USB 2.0 Camera (kết nối qua cổng USB), Cyberlink webcam Filter ...(thường tích hợp trên các laptop được cài sẵn phần mềm Cyberlink Youcam).

Quá trình cài đặt sẽ tự động diễn ra, nhấn Next hai lần để vào bước cấu hình. Webcam sẽ được khởi động để tiến hành quá trình nhận dạng khuôn mặt. Bạn nhìn thẳng trực diện vào webcam và chầm chậm quay đầu từ trái sang phải theo yêu cầu. Kế đến nhập mật khẩu đăng nhập Windows (nếu có) vào khung Your password xong nhấn Finish để kết thúc.

Trong lần đăng nhập kế tiếp sẽ có thêm tùy chọn đăng nhập bằng khuôn mặt để bạn chọn lựa. Chương trình mặc định khởi động cùng Windows và kèm theo biểu tượng dưới khay hệ thống khi hoạt động. Bạn nhấn phải chuột vào biểu tượng chọn Settings để thiết lập lại webcam và khuôn mặt hay vô hiệu hóa chương trình nếu không muốn dùng cách đăng nhập này nữa.

3.Dùng chức năng nhận dạng vân tay:

Tính năng nhận dạng vân tay này thường chỉ xuất hiện trên các dòng máy tính xách tay cao cấp và các máy trạm. Tuy nhiên nếu có điều kiện bạn có thể trang bị thêm thiết bị đầu đọc dấu vân tay như sản phẩm Microsoft Fingerprint Reader ( giá khoảng 50USD ). Chỉ cần cài đặt phần mềm kèm theo khi mua thiết bị và bắt đầu sử dụng. Cách nhận dạng vân tay cho độ chính xác và bảo mật cao vì không phụ thuộc vào yếu tố môi trường như trong trường hợp của webcam.

Bên cạnh đó chức năng này có thể được sử dụng để đăng nhập vào các trang web, mạng không dây, ...miễn là các trình điều khiển và phần mềm đi kèm với thiết bị hỗ trợ các tính năng này. Có thể nói đây là cách an toàn nhất để bảo vệ quá trình đăng nhập vào máy tính.

Theo quản trị mạng

Nguồn : Thêm lớp bảo mật cho quá trình đăng nhập Windows

More about →

Hướng dẫn cài đặt Rsyslog 5.7.x trên nền tảng CentOS 5.x

Theo thông tin từ phía hãng, Rsyslog có khả năng cải thiện khả năng hỗ trợ syslogd, có thể được sử dụng như 1 phương án thay thế hoặc dự phòng.

Bên cạnh đó, những tính năng nâng cao khá phù hợp với các tầng lớp doanh nghiệp, khả năng bảo mật mã hóa cũng khá đơn giản và dễ thiết lập, dù cho đối tượng người sử dụng có ít kinh nghiệm. Cụ thể, chúng ta sẽ cùng nhau kết hợp và cài đặt tất cả các tính năng của Rsyslog 5.7.2 trên nền tảng CentOS 5.5 server.
Để bắt đầu, chúng ta cần cài đặt những gói hỗ trợ sau:

yum install -y pcre pcre-devel mysql-server mysql-devel gnutls gnutls-devel gnutls-utils net-snmp net-snmp-devel net-snmp-libs net-snmp-perl net-snmp-utils libnet libnet-devel

Tiếp theo là gói librelp (Reliable Event Logging Protocol Library) để sử dụng các thư viện dành cho giao thức RELP - có nhiệm vụ cung cấp khả năng ghi lại các sự kiện xảy ra trong hệ thống mạng và đảm bảo rằng không bỏ sót bất kỳ tin nhắn cũng như email nào, cho dù có vấn đề xảy ra với quá trình kết nối hoặc các đầu peer không ổn định.

cd /tmp

wget http://download.rsyslog.com/librelp/librelp-1.0.0.tar.gz

tar -xvf librelp-1.0.0.tar.gz

cd librelp-1.0.0

./configure --prefix=/usr

make

make install

cd /tmp

wget http://sourceforge.net/projects/libestr/files/libestr-0.1.0.tar.gz/download

tar -xvf libestr-0.1.0.tar.gz

cd libestr-0.1.0

./configure --prefix=/usr

make

make install

cd /tmp

wget http://www.libee.org/files/download/libee-0.1.0.tar.gz

tar -xvf libee-0.1.0.tar.gz

cd libee-0.1.0

./configure --prefix=/usr

make

make install

Tại thời điểm bài viết này, chúng tôi sử dụng rsyslog 5.7.2:

cd /tmp

wget http://www.rsyslog.com/files/download/rsyslog/rsyslog-5.7.2.tar.gz

tar -xvf rsyslog-5.7.2.tar.gz

cd rsyslog-5.7.2

Để tìm hiểu thông tin về những tùy chọn có sẵn trong Rsyslog, các bạn có thể sử dụng lệnh

./configure -help.

Câu lệnh sau sẽ kích hoạt hầu hết các tính năng rsyslog như Compression, Multithreading, MySql, SNMP, Mail, RELP... :

 

./configure --enable-regexp --enable-zlib --enable-pthreads --enable-klog --enable-inet --enable-unlimited-select --enable-debug --enable-rtinst --enable-memcheck --enable-diagtools --enable-mysql --enable-snmp --enable-gnutls --enable-rsyslogrt --enable-rsyslogd --enable-extended-tests --enable-mail --enable-imptcp --enable-omruleset --enable-valgrind --enable-imdiag --enable-relp --enable-testbench --enable-imfile --enable-omstdout --enable-omdbalerting --enable-omuxsock --enable-imtemplate --enable-omtemplate --enable-pmlastmsg --enable-omudpspoof --enable-omprog --enable-impstats

make

make install

Cài đặt và khởi tạo cơ sở dữ liệu MySQL:

mysql -u root -p < plugins/ommysql/createDB.sql

mysql -u root -p mysql

 

GRANT ALL ON Syslog.* TO rsyslog@localhost IDENTIFIED BY 'your-mysql-password';

flush privileges;

 

Tiếp theo, chúng ta sẽ cấu hình mã init:

vi /etc/init.d/rsyslog

#!/bin/bash

#

# rsyslog Starts rsyslogd/rklogd.

#

#

# chkconfig: - 12 88

# description: Syslog is the facility by which many daemons use to log

# messages to various system log files. It is a good idea to always

# run rsyslog.

### BEGIN INIT INFO

# Provides: $syslog

# Required-Start: $local_fs $network $remote_fs

# Required-Stop: $local_fs $network $remote_fs

# Default-Stop: 0 1 2 3 4 5 6

# Short-Description: Enhanced system logging and kernel message trapping daemons

# Description: Rsyslog is an enhanced multi-threaded syslogd supporting,

# among others, MySQL, syslog/tcp, RFC 3195, permitted

# sender lists, filtering on any message part, and fine

# grain output format control.

### END INIT INFO

# Source function library.

. /etc/init.d/functions

RETVAL=0

start() {

[ -x /usr/local/sbin/rsyslogd ] || exit 5

#[ -x /usr/local/sbin/rklogd ] || exit 5

# Do not start rsyslog when sysklogd is running

if [ -e /var/run/syslogd.pid ] ; then

echo $"Shut down sysklogd before you run rsyslog";

exit 1;

fi

# Source config

if [ -f /etc/sysconfig/rsyslog ] ; then

. /etc/sysconfig/rsyslog

else

#SYSLOGD_OPTIONS="-c3"

SYSLOGD_OPTIONS="-c5"

#KLOGD_OPTIONS="-2"

fi

if [ -z "$SYSLOG_UMASK" ] ; then

SYSLOG_UMASK=077;

fi

umask $SYSLOG_UMASK

echo -n $"Starting system logger: "

daemon /usr/local/sbin/rsyslogd $SYSLOGD_OPTIONS

RETVAL=$?

echo

#echo -n $"Starting kernel logger: "

#daemon rklogd $KLOGD_OPTIONS

#echo

[ $RETVAL -eq 0 ] && touch /var/lock/subsys/rsyslog

return $RETVAL

}

stop() {

#echo -n $"Shutting down kernel logger: "

#killproc rklogd

#echo

echo -n $"Shutting down system logger: "

killproc rsyslogd

RETVAL=$?

echo

[ $RETVAL -eq 0 ] && rm -f /var/lock/subsys/rsyslog

return $RETVAL

}

reload() {

RETVAL=1

syslog=`cat /var/run/rsyslogd.pid 2>/dev/null`

echo -n "Reloading system logger..."

if [ -n "${syslog}" ] && [ -e /proc/"${syslog}" ]; then

kill -HUP "$syslog";

RETVAL=$?

fi

if [ $RETVAL -ne 0 ]; then

failure

else

success

fi

echo

RETVAL=1

#echo -n "Reloading kernel logger..."

#klog=`cat /var/run/rklogd.pid 2>/dev/null`

#if [ -n "${klog}" ] && [ -e /proc/"${klog}" ]; then

#kill -USR2 "$klog";

# RETVAL=$?

#fi

#if [ $RETVAL -ne 0 ]; then

#failure

#else

#success

#fi

#echo

return $RETVAL

}

rhstatus() {

status rsyslogd

#status rklogd

}

restart() {

stop

start

}

case "$1" in

start)

start

;;

stop)

stop

;;

restart)

restart

;;

reload|force-reload)

reload

;;

status)

rhstatus

;;

condrestart)

[ -f /var/lock/subsys/rsyslog ] && restart || :

;;

*)

echo $"Usage: $0 {start|stop|restart|reload|force-reload|condrestart}"

exit 2

esac

exit $?

Hãy lưu ý đến giá trị SYSLOGD_OPTIONS="-c5″ đã được thiết lập. Sau đây, chúng ta sẽ thiết lập Syslog và Rsyslog:

service syslog stop

chkconfig syslog off

chmod 755 /etc/init.d/rsyslog

chkconfig --add rsyslog

chkconfig rsyslog on

 

Các đoạn mã init có thể download tại đây (http://honeynet.ir/software/rsyslog/). Một số mẫu tham khảo khác các bạn có thể tìm và tham khảo thêm tại trang chủ (http://www.rsyslog.com/):

vi /etc/rsyslog.conf

# Input Modules -----------------------------------This line is comment

#--------------------------------------------------This line is comment

$ModLoad impstats.so

$PStatsInterval 300

syslog.info /var/log/rsyslog-stats

#--------------------------------------------------This line is comment

$ModLoad immark.so # provides --MARK-- message capability

$ModLoad imuxsock.so # provides support for local system logging (via logger command)

$ModLoad imklog.so # provides kernel logging support (previously done by rklogd)

#--------------------------------------------------This line is comment

$ModLoad imudp.so # provides UDP syslog reception

$UDPServerAddress * # all local interfaces

$UDPServerRun 514 # start UDP server (log server receiver)

#--------------------------------------------------This line is comment

$ModLoad imtcp.so # provides TCP syslog reception and GSS-API (if compiled)

$InputTCPServerRun 514 # start TCP server (log server receiver)

#--------------------------------------------------This line is comment

$ModLoad imrelp.so # RELP input

$InputRELPServerRun 20514 # start RELP Protocol

#--------------------------------------------------This line is comment

$ModLoad imfile.so # Text file input

$InputFileName /var/log/i-am-a-text-file.log

$InputFileTag my-text-file:

$InputFileStateFile stat-file1

$InputFileSeverity error

$InputFileFacility local7

$InputFilePollInterval 10 # check for new lines every 10 seconds

$InputRunFileMonitor

#--------------------------------------------------This line is comment

#$ModLoad imgssapi.so # Plain TCP and GSSAPI

#$ModLoad im1395.so # Messages via RFC1395

# Output Modules ----------------------------------This line is comment

#--------------------------------------------------This line is comment

$ModLoad omsnmp.so # Send SNMP traps

#$actionsnmptransport udp

#$actionsnmptarget 192.168.x.x

#$actionsnmptargetport 162

#$actionsnmpversion 1

#$actionsnmpcommunity public

#*.* "http://npower.vn/wp-includes/images/smilies/icon_surprised.gif" alt="icon surprised Hướng dẫn cài đặt Rsyslog 5.7.x trên nền tảng CentOS 5.x" class="wp-smiley" title="Hướng dẫn cài đặt Rsyslog 5.7.x trên nền tảng CentOS 5.x"> msnmp:

#--------------------------------------------------This line is comment

$ModLoad ommysql.so # Log to MySQL

#$ModLoad ompgsql.so # Log to PostgreSQL

#--------------------------------------------------This line is comment

$ModLoad ommail.so # Send mail

#$ActionMailSMTPServer mail.example.net

#$ActionMailFrom rsyslog@example.net

#$ActionMailTo operator@example.net

#$ActionMailTo admin@example.net

#$template mailSubject,"disk problem on %hostname%"

#$template mailBody,"RSYSLOG Alertrnmsg='%msg%'"

#$ActionMailSubject mailSubject

#$ActionExecOnlyOnceEveryInterval 21600

#if $msg contains 'hard disk fatal failure' then "http://npower.vn/wp-includes/images/smilies/icon_surprised.gif" alt="icon surprised Hướng dẫn cài đặt Rsyslog 5.7.x trên nền tảng CentOS 5.x" class="wp-smiley" title="Hướng dẫn cài đặt Rsyslog 5.7.x trên nền tảng CentOS 5.x"> mmail:;mailBody

#--------------------------------------------------This line is comment

$ModLoad omrelp.so # Send to another host via RELP

#$ModLoad omlibdbi.so # Log via generic DB output

#$ModLoad omgss.so # GSS enabled output

# Globals -----------------------------------------This line is comment

$umask 0000

$DirCreateMode 0640

$FileCreateMode 0640

$RepeatedMsgReduction on

$WorkDirectory /var/log/rsyslog # default location for work (spool) files

$ActionQueueType LinkedList # use asynchronous processing

$ActionQueueFileName queue # set file name, also enables disk mode

$ActionResumeRetryCount -1 # infinite retries on insert failure

$ActionQueueSaveOnShutdown on # save in-memory data if rsyslog shuts down

$MainMsgQueueMaxFileSize 100M

$ActionQueueMaxFileSize 5M

#--------------------------------------------------This line is comment

# Below find some samples of what a template can do. Have a good

# time finding out what they do [or just tun them] "http://npower.vn/wp-includes/images/smilies/icon_wink.gif" alt="icon wink Hướng dẫn cài đặt Rsyslog 5.7.x trên nền tảng CentOS 5.x" class="wp-smiley" title="Hướng dẫn cài đặt Rsyslog 5.7.x trên nền tảng CentOS 5.x">

# A template that resambles traditional syslogd file output:

$template TraditionalFormat,"%timegenerated% %HOSTNAME% %syslogtag%%msg:::drop-last-lf%n"

# a template useful for debugging format issues

$template DEBUG,"Debug line with all properties:nFROMHOST: '%FROMHOST%', HOSTNAME: '%HOSTNAME%', PRI: %PRI%,nsyslogtag '%syslogtag%', programname: '%programname%', APP-NAME: '%APP-NAME%', PROCID: '%PROCID%', MSGID: '%MSGID%',nTIMESTAMP: '%TIMESTAMP%', STRUCTURED-DATA: '%STRUCTURED-DATA%',nmsg: '%msg%'nescaped msg: '%msg:::drop-cc%'nrawmsg: '%rawmsg%'nn"

# A template that resembles RFC 3164 on-the-wire format:

# (yes, there is NO space betwen syslogtag and msg! that's important!)

$template RFC3164fmt,"<%PRI%>%TIMESTAMP% %HOSTNAME% %syslogtag%%msg%"

# a template resembling traditional wallmessage format:

$template wallmsg,"rn7Message from syslogd@%HOSTNAME% at %timegenerated% ...rn %syslogtag%%msg%nr"

# The template below emulates winsyslog format, but we need to check the time

# stamps used. for now, it is good enough This format works best with

# other members of the MonitorWare product family. It is also a good sample

# where you can see the property replacer in action.

$template WinSyslogFmt,"%HOSTNAME%,%timegenerated:1:10:date-rfc3339%,%timegenerated:12:19:date-rfc3339%,%timegenerated:1:10:date-rfc3339%,%timegenerated:12:19:date-rfc3339%,%syslogfacility%,%syslogpriority%,%syslogtag%%msg%n"

# A template used for database writing (notice it *is* an actual

# sql-statement):

$template dbFormat,"insert into SystemEvents (Message, Facility,FromHost, Priority, DeviceReportedTime, ReceivedAt, InfoUnitID, SysLogTag) values ('%msg%', %syslogfacility%, '%HOSTNAME%',%syslogpriority%, '%timereported:::date-mysql%', '%timegenerated:::date-mysql%', %iut%, '%syslogtag%')",sql

$template FileFormat,"%TIMESTAMP:::date-rfc3339% %HOSTNAME% %syslogtag%%msg:::sp-if-no-1st-sp%%msg:::drop-last-lf%n"

$template ForwardFormat,"<%PRI%>%TIMESTAMP:::date-rfc3339% %HOSTNAME% %syslogtag:1:32%%msg:::sp-if-no-1st-sp%%msg%"

# Selector lines are somewhat different from stock syslogd. With

# rsyslog, you can add a semicolon ";" after the target and then

# the template name. That will assign this template to the respective

# action. If no template name is given, a hardcoded template is used.

# If a template name is given, but the template was not defined, the

# selector line is DEACTIVATED.

#--------------------------------------------------------------------

#--------------------------------------------------This line is comment

# Forward via TCP with maximum compression:

#$AllowedSender TCP, 127.0.0.1, 192.0.2.0/24, [::1]/128, *.example.net, somehost.example.com

#*.* @@(z9)192.168.x.x:514

# Forward via UDP with maximum compression:

#$AllowedSender UDP, 127.0.0.1, 192.0.2.0/24, [::1]/128, *.example.net, somehost.example.com

#*.* @(z9)192.168.x.x:514

# Forward via RELP Protocol :

#*.* mrelp:192.168.2.4:20514;TraditionalFormat

# Store all log files in MySQL DB :

#*.* mmysql:127.0.0.1,Syslog,rsyslog,your-mysql-password

#--------------------------------------------------This line is comment

#--------------------------------------------------This line is comment

# Log all kernel messages to the console.

# Logging much else clutters up the screen.

#kern.* /dev/console;TraditionalFileFormat

# Log anything (except mail) of level info or higher.

# Don't log private authentication messages!

*.info;mail.none;authpriv.none;cron.none /var/log/messages

# The authpriv file has restricted access.

authpriv.* /var/log/secure

# Log all the mail messages in one place.

mail.* -/var/log/maillog

# Log cron stuff

cron.* /var/log/cron

# Everybody gets emergency messages

*.emerg *

# Save news errors of level crit and higher in a special file.

uucp,news.crit /var/log/spooler

# Save boot messages also to boot.log

local7.* /var/log/boot.log

#--------------------------------------------------This line is comment

$IncludeConfig /etc/rsyslog.d/*.conf

#--------------------------------------------------This line is comment

#if message contains 'network error' then run the restart-network.sh shell script!!!

#:msg, contains, "network error" ^/root/restart-network.sh

 

Sau đó, khởi động Rsyslog:

chmod 640 /etc/rsyslog.conf

service rsyslog start

tail -f /var/log/messages

 

Và kiểm tra quá trình hoạt động của Rsyslog như sau:

 

logger "this is a test message"

logger -p local0.info -t testtag "this is a test message"

 

Khi hệ thống hiển thị thông tin đúng theo mẫu kiểm tra thì có nghĩa là toàn bộ quá trình cài đặt và cấu hình trên đã thành công. Chúc các bạn thành công!

Theo quản trị mạng

Nguồn: Hướng dẫn cài đặt Rsyslog 5.7.x trên nền tảng CentOS 5.x

More about →