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

by D?qt? X (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 13^th October 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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



'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

Download this snippet Add to My Saved Code

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

No comments have been posted about Reads encrypted *.ftr files and puts the decoded file on your desktop.. Why not be the first to post a comment about 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. Comments

Post your comment

Difficulty