это прикреплённый файл закодированный в семибитной кодировке base64

я недавно где-то видел описание данной кодировки - сделать раскодирующюю приладу несложно.

но можно сделать проще: копируешь этот текст в файл, даёшь файлу расширение ".uue" и открываешь его WinZip'ом

Ответить

RFC2045

Ответить

Ответить

На сайте есть алгоритм работы с base64 (по-моему раздел VBA)

Ответить

Павел, это было-бы конечно хорошо, если-бы не одно НО, я в .Net хуже чем полный ноль...... Если есть возможность, можеш этот класс как-нить в LL запечатать? 

Ответить

Ответить

вот отрыл примерно такой код:

Const Table As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="

Function GetBin(Dec As Single, cFormat As Integer) As String
    Dim sFormat As String
    sFormat = String(cFormat, "0")
    If Dec = 64 Then GetBin = "00000 ": Exit Function
    If Dec = 0 Then GetBin = sFormat: Exit Function
    Do While Dec >= 1
    Dec = Int(Dec) / 2
    If Dec = Int(Dec) Then
    GetBin = 0 & GetBin
    Else
    GetBin = 1 & GetBin
    End If
    Loop
    GetBin = Format$(GetBin, sFormat)
End Function

Function GetDec(Bin As String) As Long
    If InStr(1, Bin, "=") Then GetDec = 64: Exit Function
    If InStr(1, Bin, " ") Then GetDec = 256: Exit Function
    Dim Cnt As Integer
    Cnt = Len(Bin) - 1
    For t = 1 To Len(Bin)
    If Mid(Bin, t, 1) = 1 Then
    GetDec = GetDec + (2 ^ Cnt)
    End If
    Cnt = Cnt - 1
    Next
End Function

Function Base64ToAscii(sSource As String) As String
    Dim Bin As String, Pos As Integer, sLen As Long, sKrt As Long, dBrake As Long
    sLen = Len(sSource)
    For t = 1 To Len(sSource) Step 4
    Bin = ""
    For l = t To t + 3
    Pos = InStr(1, Table, Mid$(sSource, l, 1))
    Bin = Bin & GetBin(CStr(Pos - 1), 6)
    Next l
    For m = 1 To Len(Bin) Step 8
    If GetDec(Mid$(Bin, m, 8)) <> 256 Then
    Base64ToAscii = Base64ToAscii & Chr$(GetDec(Mid$(Bin, m, 8)))
    End If
    Next m
    Next t
End Function

но он мне тоже билебирду выдал(

Ответить

код для декодирования из/в UUE:

проверено! работает!

Public Function UUDecodeToFile(strUUCodeData As String, strFilePath As String)

Dim vDataLine As Variant

Dim vDataLines As Variant

Dim strDataLine As String

Dim intSymbols As Integer

Dim intFile As Integer

Dim strTemp As String

If Left$(strUUCodeData, 6) = "begin " Then

strUUCodeData = Mid$(strUUCodeData, InStr(1, strUUCodeData, vbLf) + 1)

End If

If Right$(strUUCodeData, 4) = "end" + vbLf Then

strUUCodeData = Left$(strUUCodeData, Len(strUUCodeData) - 7)

End If

intFile = FreeFile

Open strFilePath For Binary As intFile

vDataLines = Split(strUUCodeData, vbLf)

For Each vDataLine In vDataLines

strDataLine = CStr(vDataLine)

intSymbols = Asc(Left$(strDataLine, 1))

strDataLine = Mid$(strDataLine, 2, intSymbols)

For i = 1 To Len(strDataLine) Step 4

strTemp = strTemp + Chr((Asc(Mid(strDataLine, i, 1)) - 32) * 4 + _

(Asc(Mid(strDataLine, i + 1, 1)) - 32) \ 16)

strTemp = strTemp + Chr((Asc(Mid(strDataLine, i + 1, 1)) Mod 16) * 16 + _

(Asc(Mid(strDataLine, i + 2, 1)) - 32) \ 4)

strTemp = strTemp + Chr((Asc(Mid(strDataLine, i + 2, 1)) Mod 4) * 64 + _

Asc(Mid(strDataLine, i + 3, 1)) - 32)

Next i

Put intFile, , strTemp

strTemp = ""

Next

Close intFile

End Function

Public Function UUEncodeFile(strFilePath As String) As String

Dim intFile As Integer 'file handler

Dim intTempFile As Integer 'temp file

Dim lFileSize As Long 'size of the file

Dim strFileName As String 'name of the file

Dim strFileData As String 'file data chunk

Dim lEncodedLines As Long 'number of encoded lines

Dim strTempLine As String 'temporary string

Dim i As Long 'loop counter

Dim j As Integer 'loop counter

Dim strResult As String

'

'Get file name

strFileName = Mid$(strFilePath, InStrRev(strFilePath, "\") + 1)

'

'Insert first marker: "begin 664 ..."

strResult = "begin 664 " + strFileName + vbLf

'

'Get file size

lFileSize = FileLen(strFilePath)

lEncodedLines = lFileSize / 45 + 1

'

'Prepare buffer to retrieve data form

'the file by 45 symbols chunks

strFileData = Space(45)

'

intFile = FreeFile

'

Open strFilePath For Binary As intFile

For i = 1 To lEncodedLines

If i = lEncodedLines Then

strFileData = Space(lFileSize Mod 45)

End If

Get intFile, , strFileData

strTempLine = Chr(Len(strFileData) + 32)

If i = lEncodedLines And (Len(strFileData) Mod 3) Then

strFileData = strFileData + Space(3 - (Len(strFileData) Mod 3))

End If

For j = 1 To Len(strFileData) Step 3

strTempLine = strTempLine + Chr(Asc(Mid(strFileData, j, 1)) \ 4 + 32)

strTempLine = strTempLine + Chr((Asc(Mid(strFileData, j, 1)) Mod 4) * 16 _

+ Asc(Mid(strFileData, j + 1, 1)) \ 16 + 32)

strTempLine = strTempLine + Chr((Asc(Mid(strFileData, j + 1, 1)) Mod 16) * 4 _

+ Asc(Mid(strFileData, j + 2, 1)) \ 64 + 32)

strTempLine = strTempLine + Chr(Asc(Mid(strFileData, j + 2, 1)) Mod 64 + 32)

Next j

strResult = strResult + strTempLine + vbLf

strTempLine = ""

Next i

Close intFile

strResult = strResult & "'" & vbLf + "end" + vbLf

UUEncodeFile = strResult

End Function

Ответить