Cute-FTP stored Password Decoder

This piece of VB code will decode the passwords stored in sm.dat for the FTP accounts

Works only if you have NOT set a password on the Site Manager!

'Decode a single character
Public Function CuteDecode(i_Asc As Integer)

   CuteDecode = ((Not i_Asc) And 200) + (i_Asc And 55)
   
End Function

'Decode password
Public Function CuteDecodeString(str_password As String)

   Dim i As Integer

   CuteDecodeString = ""

   For i = 1 To Len(str_password)
      CuteDecodeString = CuteDecodeString + Chr$(CuteDecode(Asc(Mid(str_password, i, 1))))
   Next i

End Function