** File Locker ** FREE !!

**elimabiru** · 07-05-2013

Hi
Today i release my File Locker
it useful for *P0rn*

How to use ?:
1. Download AFL
2. Open AFL
3. Login AFL
4. Press Lock File | Browse you File
5. and Walaaahh you file has been Lock
6. To Unlock just press Unlock File Button

Bug Found:
The Date

Login
username: MPGH
Password: MPGH

vs:
AFL.rar - Jotti's malware scan
https://www.virustotal.com/en/file/0...is/1373081609/

im working on my Programming so im still a Noob

Approve Please !:
@[MPGH]Horror

Credits:
Me

**atom0s** · 07-06-2013

Code:

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

If you actually use this as a name/pass you might want to change your password(s). Don't store sensitive data like that inside of exe's.

On top of that, this code is just copy/pasted from MSDN's forums.

**elimabiru** · 07-06-2013

Originally Posted by atom0s

Code:

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

If you actually use this as a name/pass you might want to change your password(s). Don't store sensitive data like that inside of exe's.

On top of that, this code is just copy/pasted from MSDN's forums.

im just test it
and what do you mean by (copy/pasted from MSDN's forums.)

**atom0s** · 07-06-2013

Your code is literally an exact match from a post on MSDN's forums from 2007.

**elimabiru** · 07-06-2013

Originally Posted by atom0s

Your code is literally an exact match from a post on MSDN's forums from 2007.

yeah ?
i dont know that ..
it take a week for this login form finish
and so many errors ..

anyways im not take the code from MSDN

**atom0s** · 07-06-2013

Decompiled from your code:

Code:

		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

From MSDN in 2007:

Code:

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

Hardly a coincidence for things to be the same, same names, etc.

**Vijfkantig** · 07-07-2013

Nice Good job!! il ike i like

**Kasiiic** · 07-09-2013

Originally Posted by atom0s

Decompiled from your code:

Code:

		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

From MSDN in 2007:

Code:

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

Hardly a coincidence for things to be the same, same names, etc.

Don't try he'll say he did it no matter what.

**Invader-Zim** · 07-12-2013

Originally Posted by elimabiru

Hi
Today i release my File Locker
it useful for *P0rn*

How to use ?:
1. Download AFL
2. Open AFL
3. Login AFL
4. Press Lock File | Browse you File
5. and Walaaahh you file has been Lock
6. To Unlock just press Unlock File Button

Bug Found:
The Date

Login
username: MPGH
Password: MPGH

vs:
AFL.rar - Jotti's malware scan
https://www.virustotal.com/en/file/0...is/1373081609/

im working on my Programming so im still a Noob

Approve Please !:
@[MPGH]Horror

Credits:
Me

it work to unlock the WinRAR too.? i hope it work.

**elimabiru** · 07-13-2013

nope.. only file

**Invader-Zim** · 08-02-2013

Originally Posted by elimabiru

nope.. only file

ok thanks for the info.

Thread: File Locker FREE !!

Thread Tools

Display

File Locker FREE !!

The Following 11 Users Say Thank You to elimabiru For This Useful Post:

Similar Threads

[Info] HEY, free PSD files

Free Mypsace Locker ADDED Proxy support!

Free Myspace Locker!

Free 250g File hosting!

Free File Hosts

Thread: ** File Locker ** FREE !!

Thread Tools

Display

** File Locker ** FREE !!

The Following 11 Users Say Thank You to elimabiru For This Useful Post:

Similar Threads

[Info] HEY, free PSD files

Free Mypsace Locker ADDED Proxy support!

Free Myspace Locker!

Free 250g File hosting!

Free File Hosts

Thread: File Locker FREE !!

File Locker FREE !!