[TOOL] UltraEdit FTP-Password Decoder
From: support@securiteam.comDate: 09/05/01
- Previous message: support@securiteam.com: "[NEWS] Multiple User PGP ID Attack"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]
From: support@securiteam.com To: list@securiteam.com Subject: [TOOL] UltraEdit FTP-Password Decoder Message-Id: <20010905205343.8E555138C0@mail.der-keiler.de> Date: Wed, 5 Sep 2001 22:53:43 +0200 (CEST)
The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com
- - promotion
When was the last time you checked your server's security?
How about a monthly report?
http://www.AutomatedScanning.com - Know that you're safe.
- - - - - - - - -
UltraEdit FTP-Password Decoder
------------------------------------------------------------------------
DETAILS
This piece of VB code will decode the passwords stored in uedit32.ini for
the FTP accounts
' UltraEdit FTP password decryption (stored in uedit32.ini)
'
' Taken from the help-file:
'
' This checkbox determines if UltraEdit will save the password for later
' reference. If not the user will be prompted for the password as
required. Note
' - if the password is saved it is stored on the system. It is encrypted
however
' the encryption mechanism is unsophisticated and should not be relied
upon as a
' method of security.
' Masterkey. Taken from the UltraEdt.exe
Private Const Masterkey = "sdfkh we;34u[ jwef "
'Decode a single character
Public Function UEDecode(i_Asc, ByVal i_Pos As Integer)
i_Pos = i_Pos Mod 19
If i_Pos = 0 Then i_Pos = 19
UEDecode = ((Not i_Asc) And Asc(Mid(Masterkey, i_Pos, 1))) + (i_Asc And
((Not Asc(Mid(Masterkey, i_Pos, 1))) And 127))
End Function
'Decode password
Public Function UEDecodeString(str_password As String)
Dim i As Integer
UEDecodeString = ""
For i = 1 To (Len(str_password) / 2)
UEDecodeString = UEDecodeString + Chr$(UEDecode(Val("&H" +
Mid(str_password, (2 * (i - 1)) + 1, 2)), i))
Next i
End Function
ADDITIONAL INFORMATION
The tool has been provided by <mailto:evelk@dsv.nl> E. van Elk.
========================================
This bulletin is sent to members of the SecuriTeam mailing list.
To unsubscribe from the list, send mail with an empty subject line and body to: list-unsubscribe@securiteam.com
In order to subscribe to the mailing list, simply forward this email to: list-subscribe@securiteam.com
====================
====================
DISCLAIMER:
The information in this bulletin is provided "AS IS" without warranty of any kind.
In no event shall we be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.
- Previous message: support@securiteam.com: "[NEWS] Multiple User PGP ID Attack"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]
Relevant Pages
|
|