** File Locker ** FREE !!

			bool flag = Operators.CompareString(this.txtUsername.Text, "Elimabiru", false) == 0 & Operators.CompareString(this.txtPassword.Text, "0122830530", false) == 0;

		Private Sub Folder_Load(sender As Object, e As EventArgs)
			Me.status = ""
			Me.arr(0) = ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
			Me.arr(1) = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
			Me.arr(2) = ".{2559a1f4-21d7-11d4-bdaf-00c04f60b9f0}"
			Me.arr(3) = ".{645FF040-5081-101B-9F08-00AA002F954E}"
			Me.arr(4) = ".{2559a1f1-21d7-11d4-bdaf-00c04f60b9f0}"
			Me.arr(5) = ".{7007ACC7-3202-11D1-AAD2-00805FC1270E}"
		End Sub

		Private Sub Button1_Click(sender As Object, e As EventArgs)
			Me.status = Me.arr(0)
			Dim flag As Boolean = Me.FolderBrowserDialog1.ShowDialog() = DialogResult.OK
			If flag Then
				Dim directoryInfo As DirectoryInfo = New DirectoryInfo(Me.FolderBrowserDialog1.SelectedPath)
				Dim text As String = directoryInfo.Parent.FullName + directoryInfo.Name
				Me.ProgressBar1.Value = 35
				flag = (Me.FolderBrowserDialog1.SelectedPath.LastIndexOf(".{") = -1)
				If flag Then
					Dim flag2 As Boolean = Not directoryInfo****ot.Equals(directoryInfo.Parent.FullName)
					If flag2 Then
						directoryInfo.MoveTo(directoryInfo.Parent.FullName + "\" + directoryInfo.Name + Me.status)
					Else
						directoryInfo.MoveTo(directoryInfo.Parent.FullName + directoryInfo.Name + Me.status)
					End If
					Me.TextBox1.Text = Me.FolderBrowserDialog1.SelectedPath
					Me.ProgressBar1.Value = 70
					Me.ProgressBar1.Value = 100
				Else
					Me.status = Me.getstatus(Me.status)
					directoryInfo.MoveTo(Me.FolderBrowserDialog1.SelectedPath.Substring(0, Me.FolderBrowserDialog1.SelectedPath.LastIndexOf(".")))
					Me.TextBox1.Text = Me.FolderBrowserDialog1.SelectedPath.Substring(0, Me.FolderBrowserDialog1.SelectedPath.LastIndexOf("."))
				End If
			End If
		End Sub

		Private Sub Button2_Click(sender As Object, e As EventArgs)
			Me.status = Me.arr(1)
			Dim flag As Boolean = Me.FolderBrowserDialog1.ShowDialog() = DialogResult.OK
			If flag Then
				Dim directoryInfo As DirectoryInfo = New DirectoryInfo(Me.FolderBrowserDialog1.SelectedPath)
				Dim text As String = directoryInfo.Parent.FullName + directoryInfo.Name
				flag = (Me.FolderBrowserDialog1.SelectedPath.LastIndexOf(".{") = -1)
				If flag Then
					Dim flag2 As Boolean = Not directoryInfo****ot.Equals(directoryInfo.Parent.FullName)
					If flag2 Then
						directoryInfo.MoveTo(directoryInfo.Parent.FullName + "\" + directoryInfo.Name + Me.status)
					Else
						directoryInfo.MoveTo(directoryInfo.Parent.FullName + directoryInfo.Name + Me.status)
					End If
					Me.TextBox1.Text = Me.FolderBrowserDialog1.SelectedPath
				Else
					Me.status = Me.getstatus(Me.status)
					directoryInfo.MoveTo(Me.FolderBrowserDialog1.SelectedPath.Substring(0, Me.FolderBrowserDialog1.SelectedPath.LastIndexOf(".")))
					Me.TextBox1.Text = Me.FolderBrowserDialog1.SelectedPath.Substring(0, Me.FolderBrowserDialog1.SelectedPath.LastIndexOf("."))
				End If
			End If
		End Sub

		Private Function getstatus(stat As String) As String
			Dim num As Integer = 0
			' The following expression was wrapped in a checked-statement
			Dim arg_38_0 As Integer
			Dim num2 As Integer
			Do
				Dim flag As Boolean = stat.LastIndexOf(Me.arr(num)) <> -1
				If flag Then
					stat = stat.Substring(stat.LastIndexOf("."))
				End If
				num += 1
				arg_38_0 = num
				num2 = 5
			Loop While arg_38_0 <= num2
			Return stat
		End Function

Imports System****
Public Class Form1
    Public status As String
    Private arr As String() = New String(5) {}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        status = ""
        arr(0) = ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
        arr(1) = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
        arr(2) = ".{2559a1f4-21d7-11d4-bdaf-00c04f60b9f0}"
        arr(3) = ".{645FF040-5081-101B-9F08-00AA002F954E}"
        arr(4) = ".{2559a1f1-21d7-11d4-bdaf-00c04f60b9f0}"
        arr(5) = ".{7007ACC7-3202-11D1-AAD2-00805FC1270E}"
    End Sub
  
    ' Lock
    Private Sub LockButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LockButton.Click
        status = arr(0)
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            Dim d As DirectoryInfo = New DirectoryInfo(FolderBrowserDialog1.SelectedPath)
            Dim selectedpath As String = d.Parent.FullName + d.Name
            If FolderBrowserDialog1.SelectedPath.LastIndexOf(".{") = -1 Then
                If (Not d****ot.Equals(d.Parent.FullName)) Then
                    Dim newPath As String = d.Parent.FullName & d.Name & status
                    d.MoveTo(newPath)
                    Me.ListBox1.Items.Add(newPath)
                End If
            End If
        End If
    End Sub
 
    ' UnLock
    Private Sub UnLockButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnLockButton.Click
        Try
            status = arr(0)
            Dim d As DirectoryInfo = New DirectoryInfo(ListBox1.SelectedItem.ToString)
            Dim selectedpath As String = d.Parent.FullName + d.Name
            Dim lockPath As String = ListBox1.SelectedItem.ToString
            If lockPath.LastIndexOf(".{") <> -1 Then
                status = getstatus(status)
                d.MoveTo(lockPath.Substring(0, lockPath.LastIndexOf(".")))
                ListBox1.Items.Remove(ListBox1.SelectedItem)
            End If
        Catch ee As Exception
            MsgBox(ee.Message)
        End Try
    End Sub
   
    Private Function getstatus(ByVal stat As String) As String
        For i As Integer = 0 To 5
            If stat.LastIndexOf(arr(i)) <> -1 Then
                stat = stat.Substring(stat.LastIndexOf("."))
            End If
        Next i
        Return stat
    End Function
 
End Class