• Home
 · 
• Files/File Controls/Input/Output
 · 
• Reads encrypted *.ftr files and puts the decoded file on your desktop.

Reads encrypted *.ftr files and puts the decoded file on your desktop.

Reads encrypted *.ftr files and puts the decoded file on your desktop.

Rate Reads encrypted *.ftr files and puts the decoded file on your desktop.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Stick it on da desktop!

'Now put tha following under a command button

Private Sub Command1_Click()
Dim A As String * 1
Dim B As String * 1
Open "C:\Windows\Desktop\FILTER.FTR" For Binary As #1
Open "C:\Windows\Desktop\FILTER.TXT" For Binary As #2
While Not EOF(1)
 Get #1, , A
 If (Asc(A) > &H20) Then
  A = Chr$(Asc(A) - &H11)
  Put #2, , A
 Else
  Put #2, , A
 End If
Wend
MsgBox "Ya Done!", vbinformation, "Ðøq'z *.FTR HaCKeR!"
End Sub