Decrypt email in vb.net

Question

1.00/5 (1 vote)

See more:

hey guys,
about a year ago i developed a program to my comapny that extract customers call from our website, decrypt it and pushed it to our internel software and from ther to the support department.
here the problem: during the last week, my basic assumption is that our server did some automatic updates and it cause (by purpose?) changes in the decription of html pages. why am i saying this? in the code, i'm looking for tags such as to start from. the text that i get now is nothing like this. i need to know what is the encryption type that i get and how can i decrypt it. please, this is very urgent!!!
added: after research, i found out that microsoft made 5 security updates in our server. when i compare the emails i get before and after the security updates, i found out that the old email contain this:
Content-Transfer-Encoding: 8bit
and the new emails contains this:
Content-Transfer-Encoding: base64.
i think this is the source of my problem. now i need to know how to decrypy base64 back to the original encoding.
here is a section of the function of the old decryption:

C#

Sub GetEmails(ByVal Server_Command As String)
        Dim m_buffer() As Byte = System.Text.Encoding.UTF8.GetBytes(Server_Command.ToCharArray())
        Dim stream_Reader As StreamReader
        Dim TxtLine As String = ""
        Try
            'x = x & ",10"
            m_sslStream.Write(m_buffer, 0, m_buffer.Length)
            'x = x & ",11"
            stream_Reader = New StreamReader(m_sslStream, Encoding.UTF8)
            Do While stream_Reader.Peek() <> -1
                TxtLine += stream_Reader.ReadLine() & vbNewLine
            Loop
            System.IO.File.WriteAllText("directory/utf8.html", TxtLine)
            Dim einfo As New EmailInfo
            TextBox1.Text = ""
            Call Utilities.GetEmailInfo(TxtLine)
            Dim AdpX As New OleDbDataAdapter, tbl As New DataTable, row As DataRow,sql As String
            sql = "SELECT * FROM TempCalls"
            AdpX = GetAdapter(sql, "\Service.mdb")
            AdpX.Fill(tbl)
            row = tbl.NewRow
            row("License") = Val(GetFldSc("[מס' לקוח]", TxtLine))
            row("LicName") = GetFldSc("[שם העסק]", TxtLine)
            row("IDNumber") = GetFldSc("[ח.פ/ע.מ]", TxtLine)
    End Sub

and this is the function which extract the text:

C#

Public Function GetFldSc(fldToSearch As String, msgStr As String) As String
       Dim str As String = ""
       Dim index As Integer = msgStr.IndexOf("<tbody>")
       Dim objRegEx As System.Text.RegularExpressions.Regex
       'msgStr = objRegEx.Replace(msgStr, " ", "") 'Replace all " " in the string with: ""
       msgStr.ToString.Replace(" ", "")
       msgStr = msgStr.Substring(index, (msgStr.Length - index))
       Dim bodyArray() As String = Split(msgStr, vbCrLf)
       For i = 0 To bodyArray.Length - 1
           If bodyArray(i).IndexOf(fldToSearch) <> -1 Then
               str = bodyArray(i - 1).Substring(14, ((bodyArray(i - 1).Length - 5) - 14))
               str.Replace(" ", "")
               str = objRegEx.Replace(str, " ", "")
               Exit For
           End If
       Next
       If str = "<span>N/A</span>" Or str = " <span>N/A</span>" Then str = ""
       Return str
   End Function

this is the new decoding that i get and i dont know how to handle it:

+OK message follows
MIME-Version: 1.0
Received: by 10.28.39.193 with HTTP; Mon, 20 Apr 2015 23:31:55 -0700 (PDT)
In-Reply-To: <eec338eaf2a4ba099314de8d9fc4d7a3@www.minisoft.co.il>
References: <eec338eaf2a4ba099314de8d9fc4d7a3@www.minisoft.co.il>
Date: Tue, 21 Apr 2015 09:31:55 +0300
Delivered-To: ############
Message-ID: <cada2pvozucpnd3ykhoqotueuj>
Subject: =?UTF-8?B?RndkOiBb157Xmdeg15nXodeV16TXmCDXqtee15nXm9eUIC0gW9ek16rXmdeX16og16fXqA==?=
	=?UTF-8?B?15nXkNeU?=
From: oron sultan 
To: #########
Content-Type: multipart/alternative; boundary=001a11468f00e604be0514363370

--001a11468f00e604be0514363370
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: base64

15TXldeT16LXlCDXqdeU15XXoteR16jXlA0K157XkNeqOiBb157Xmdeg15nXodeV16TXmCDXqtee
15nXm9eUIC0gW9ek16rXmdeX16og16fXqNeZ15DXlCA8ZXJlemdvbGFuMDFAZ21haWwuY29tPg0K
16rXkNeo15nXmjogMyDXkdee16jXpSAyMDE1INeR16nXoteUIDE0OjMxDQrXoNeV16nXkDogW9ee
15nXoNeZ16HXldek15gg16rXnteZ15vXlCAtIFvXpNeq15nXl9eqINen16jXmdeQ15QNCteQ15w6
IOKAq21pbmlzb2Z0MzY1QGdtYWlsLmNvbeKArA0KDQoNCg0KICAgICAq16TXqNeY15kg15fXkdeo
15QqICAgMzcyMzg1IFvXntehJyDXnNen15XXl10gICDXnteV16DXmdeV16og16TXqteQ15wgW9ep
150g15TXoteh16ddICAgNTEzNjA3NzYyDQpb15cu16Qv16Iu155dICAg157Xldeg15nXldeqIFvX
odeZ15XXldeSINeU16LXodenXSAgIDMuMDkzMiBb157XoScg15LXqNeh15RdICAwNTMtNzY5MTMw
NiBb15jXnNek15XXnw0K16jXkNep15ldICAgaW5iYWwubWVnYUBnbWFpbC5jb20gW9eQ15nXnteZ
15nXnCDXqNeQ16nXmV0gICAgKtek16jXmNeZINeU16HXoNeZ16MqICAg15DXmdec16ogW9ep150N
CteU16HXoNeZ16NdICAg157XkteV16jXmQ0K15zXkSDXpNeq15DXnCBb15vXqteV15HXql0gICDX
kNeZ15zXqiBb15nXqdeV15FdICAgMDgtNjMzODAwMiBb15jXnNek15XXnyDXkdeh16DXmdejXSAg
IDA3Ny05MzM4MDAyIFvXpNen16FdDQogICrXpNeo15jXmSDXkNeZ16kg15TXp9ep16gqICAg16LX
oNeR15wgW9ep150g15DXmdepINeU16fXqdeoXSAgINee16DXlNecINeX16nXkdeV16DXldeqIFvX
qtek16fXmdeTXQ0KMDUzLTc2OTEzMDYgW9eY15zXpNeV158NCteQ15nXqSDXp9ep16hdICBOL0Eg
IFvXqdec15XXl9eUXSAgIGluYmFsLm1lZ2FAZ21haWwuY29tIFvXkNeZ157XmdeZ15wg15DXmdep
INen16nXqF0NCg0KKtek16jXmNeZINen16jXmdeQ15QqDQogICA4NTYgW9eg15XXqdeQINep15nX
qNeV16pdICAg15TXldeX15bXqCDXp9eV15HXpSDXqdeS15XXmSDXkNeg15kg16bXqNeZ15vXlCDX
kNeqINeU16fXldeR16Ug16nXnCDXnteS15Ag157Xodeq15nXmdedINeRDQo2NjYyMSBb16TXqNeY
15kg16fXqNeZ15DXlF0NCg==
--001a11468f00e604be0514363370
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: base64

PGRpdiBkaXI9InJ0bCI+PGJyPjxkaXYgY2xhc3M9ImdtYWlsX3F1b3RlIj7XlNeV15PXoteUINep
15TXldei15HXqNeUPGJyPtee15DXqjogPGIgY2xhc3M9ImdtYWlsX3NlbmRlcm5hbWUiPlvXnteZ
16DXmdeh15XXpNeYINeq157Xmdeb15QgLSBb16TXqteZ15fXqiDXp9eo15nXkNeUPC9iPiA8c3Bh
biBkaXI9Imx0ciI+Jmx0OzxhIGhyZWY9Im1haWx0bzplcmV6Z29sYW4wMUBnbWFpbC5jb20iPmVy
ZXpnb2xhbjAxQGdtYWlsLmNvbTwvYT4mZ3Q7PC9zcGFuPjxicj7XqteQ16jXmdeaOiAzINeR157X
qNelIDIwMTUg15HXqdei15QgMTQ6MzE8YnI+16DXldep15A6IFvXnteZ16DXmdeh15XXpNeYINeq
157Xmdeb15QgLSBb16TXqteZ15fXqiDXp9eo15nXkNeUPGJyPteQ15w6ICDigKs8YSBocmVmPSJt
YWlsdG86bWluaXNvZnQzNjVAZ21haWwuY29tIj5taW5pc29mdDM2NUBnbWFpbC5jb208L2E+4oCs
PGJyPjxicj48YnI+PHA+wqA8L3A+DQo8dGFibGUgc3R5bGU9ImZsb2F0OnJpZ2h0IiBib3JkZXI9
IjEiIGFsaWduPSJyaWdodCI+PGNhcHRpb24+wqA8L2NhcHRpb24+DQo8dGJvZHk+DQo8dHI+DQo8
dGQ+wqA8L3RkPg0KPHRkIGRpcj0icnRsIj48c3BhbiBzdHlsZT0idGV4dC1kZWNvcmF0aW9uOnVu
ZGVybGluZSI+PHN0cm9uZz7XpNeo15jXmSDXl9eR16jXlDwvc3Ryb25nPjwvc3Bhbj48L3RkPg0K
PC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+wqAzNzIzODU8L3RkPg0KPHRkIGRpcj0icnRsIj5b
157XoSYjMzk7INec16fXldeXXTwvdGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj7CoNee
15XXoNeZ15XXqiDXpNeq15DXnDwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXqdedINeU16LXodenXTwv
dGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj7CoDUxMzYwNzc2MjwvdGQ+DQo8dGQgZGly
PSJydGwiPlvXly7XpC/Xoi7Xnl08L3RkPg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+wqDX
nteV16DXmdeV16o8L3RkPg0KPHRkIGRpcj0icnRsIj5b16HXmdeV15XXkiDXlNei16HXp108L3Rk
Pg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+wqAzLjA5MzI8L3RkPg0KPHRkIGRpcj0icnRs
Ij5b157XoSYjMzk7INeS16jXodeUXTwvdGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj4w
NTMtNzY5MTMwNjwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXmNec16TXldefINeo15DXqdeZXTwvdGQ+
DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj7CoDxhIGhyZWY9Im1haWx0bzppbmJhbC5tZWdh
QGdtYWlsLmNvbSIgdGFyZ2V0PSJfYmxhbmsiPmluYmFsLm1lZ2FAZ21haWwuY29tPC9hPjwvdGQ+
DQo8dGQgZGlyPSJydGwiPlvXkNeZ157XmdeZ15wg16jXkNep15ldPC90ZD4NCjwvdHI+DQo8dHI+
DQo8dGQ+wqA8L3RkPg0KPHRkIGRpcj0icnRsIj48c3Ryb25nPjxzcGFuIHN0eWxlPSJ0ZXh0LWRl
Y29yYXRpb246dW5kZXJsaW5lIj7XpNeo15jXmSDXlNeh16DXmdejPC9zcGFuPjwvc3Ryb25nPjwv
dGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj7CoNeQ15nXnNeqPC90ZD4NCjx0ZCBkaXI9
InJ0bCI+W9ep150g15TXodeg15nXo108L3RkPg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+
wqDXnteS15XXqNeZINec15Eg16TXqteQ15w8L3RkPg0KPHRkIGRpcj0icnRsIj5b15vXqteV15HX
ql08L3RkPg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+wqDXkNeZ15zXqjwvdGQ+DQo8dGQg
ZGlyPSJydGwiPlvXmdep15XXkV08L3RkPg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+wqAw
OC02MzM4MDAyPC90ZD4NCjx0ZCBkaXI9InJ0bCI+W9eY15zXpNeV158g15HXodeg15nXo108L3Rk
Pg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+wqAwNzctOTMzODAwMjwvdGQ+DQo8dGQgZGly
PSJydGwiPlvXpNen16FdPC90ZD4NCjwvdHI+DQo8dHI+DQo8dGQ+wqA8L3RkPg0KPHRkIGRpcj0i
cnRsIj48c3Ryb25nPjxzcGFuIHN0eWxlPSJ0ZXh0LWRlY29yYXRpb246dW5kZXJsaW5lIj7XpNeo
15jXmSDXkNeZ16kg15TXp9ep16g8L3NwYW4+PC9zdHJvbmc+PC90ZD4NCjwvdHI+DQo8dHI+DQo8
dGQgZGlyPSJydGwiPsKg16LXoNeR15w8L3RkPg0KPHRkIGRpcj0icnRsIj5b16nXnSDXkNeZ16kg
15TXp9ep16hdPC90ZD4NCjwvdHI+DQo8dHI+DQo8dGQgZGlyPSJydGwiPsKg157XoNeU15wg15fX
qdeR15XXoNeV16o8L3RkPg0KPHRkIGRpcj0icnRsIj5b16rXpNen15nXk108L3RkPg0KPC90cj4N
Cjx0cj4NCjx0ZCBkaXI9InJ0bCI+wqAwNTMtNzY5MTMwNjwvdGQ+DQo8dGQgZGlyPSJydGwiPlvX
mNec16TXldefINeQ15nXqSDXp9ep16hdPC90ZD4NCjwvdHI+DQo8dHI+DQo8dGQgZGlyPSJydGwi
PjxzcGFuPk4vQTwvc3Bhbj7CoDwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXqdec15XXl9eUXTwvdGQ+
DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj7CoDxhIGhyZWY9Im1haWx0bzppbmJhbC5tZWdh
QGdtYWlsLmNvbSIgdGFyZ2V0PSJfYmxhbmsiPmluYmFsLm1lZ2FAZ21haWwuY29tPC9hPjwvdGQ+
DQo8dGQgZGlyPSJydGwiPlvXkNeZ157XmdeZ15wg15DXmdepINen16nXqF08L3RkPg0KPC90cj4N
Cjx0cj4NCjx0ZD7CoDwvdGQ+DQo8dGQ+DQo8cCBkaXI9InJ0bCI+PHN0cm9uZz48c3BhbiBzdHls
ZT0idGV4dC1kZWNvcmF0aW9uOnVuZGVybGluZSI+16TXqNeY15kg16fXqNeZ15DXlDwvc3Bhbj48
L3N0cm9uZz48L3A+DQo8L3RkPg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+wqA4NTY8L3Rk
Pg0KPHRkIGRpcj0icnRsIj5b16DXldep15Ag16nXmdeo15XXql08L3RkPg0KPC90cj4NCjx0cj4N
Cjx0ZCBkaXI9InJ0bCI+wqDXlNeV15fXlteoINen15XXkdelINep15LXldeZINeQ16DXmSDXpteo
15nXm9eUINeQ16og15TXp9eV15HXpSDXqdecINee15LXkCDXnteh16rXmdeZ150g15EgNjY2MjE8
L3RkPg0KPHRkIGRpcj0icnRsIj5b16TXqNeY15kg16fXqNeZ15DXlF08L3RkPg0KPC90cj4NCjwv
dGJvZHk+DQo8L3RhYmxlPg0KDQo8L2Rpdj48YnI+PC9kaXY+DQo=
--001a11468f00e604be0514363370--
.</cada2pvozucpnd3ykhoqotueuj></tbody>

Posted 20-Apr-15 22:15pm

oronsultan

Updated 21-Apr-15 1:03am

v6

Add a Solution

Comments

OriginalGriff 21-Apr-15 4:31am

I've looked carefully, and it doesn;t appear on my "ToDo" list at all, let alone near the top.
So it isn't urgent: not to me.

It may be urgent to you, but it isn't to us. All that your stressing the urgency does is to make us think you have left it too late, and want us to do it for you. This annoys some people, and can slow a response.

oronsultan 21-Apr-15 4:32am

sorry. want happen again.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sergey Alexandrovich Kryukov · Accepted Answer · 2015-04-21T04:03:00

Solution 1

What make you thinking that the e-mail is encrypted? Hardly. If this is base64, it has nothing to do with "encryption".
This is how you can work with it:
https://msdn.microsoft.com/en-us/library/system.convert.frombase64string%28v=vs.110%29.aspx[^],
see other base64 methods: https://msdn.microsoft.com/en-us/library/System.Convert_methods%28v=vs.110%29.aspx[^].

If you need to parse the whole e-mail, it may take a lot more work. I would advice to look at open-source OpenPOP.NET:
http://hpop.sourceforge.net[^],
http://sourceforge.net/projects/hpop[^].

No, you don't have to use its POP3 client implementation or use the product at all.

This product is not perfectly written, but I used it a lot as a source of information. There are too many standards (RFC) involved, especially MIME, so it would be hard to dig out everything you need. OpenPOP meticulously uses and reference all those standards.

[EDIT #1]

The fragment you've shown in your comment reads:

<p> </p>
<table style="float: right;" border="1" align="right"><caption> </caption>
<tbody>
<tr>
<td> </td>
<td dir="rtl"><span style="text-decoration: underline;"><strong>×¤×¨×˜×™ ×—×‘×¨×"</strong></span></td>
</tr>
<tr>
<td dir="rtl"> 1</td>
<td dir="rtl">[×ž×¡' ×œ×§×•×—]</td>
</tr>
<tr>
<td dir="rtl"> ×"×•×" ×©×™×•×•×§ ×•×‘× ×™×•</td>
<td dir="rtl">[×©× ×"×¢×¡×§]</td>
</tr>
<tr>
<td dir="rtl"> 1</td>
<td dir="rtl">[×—.×¤/×¢.×ž]</td>
</tr>
<tr>
<td dir="rtl"> ×¨×•××™ ×—×©×‘×•×Ÿ</td>
<td dir="rtl">[×¡×™×•×•×’ ×"×¢×¡×§]</td>
</tr>
<tr>
<td dir="rtl"> 3.232</td>
<td dir="rtl">[×ž×¡' ×’×¨×¡×"]</td>
</tr>
<tr>
<td dir="rtl">05555555555</td>
<td dir="rtl">[×˜×œ×¤×•×Ÿ ×¨××©×™]</td>
</tr>
<tr>
<td dir="rtl"> eee@minisoft.co.il</td>
<td dir="rtl">[××™×ž×™×™×œ ×¨××©×™]</td>
</tr>
<tr>
<td> </td>
<td dir="rtl"><strong><span style="text-decoration: underline;">×¤×¨×˜×™ ×"×¡× ×™×£</span></strong></td>
</tr>
<tr>
<td dir="rtl"> ×‘×™×ª ×©×ž×©</td>
<td dir="rtl">[×©× ×"×¡× ×™×£]</td>
</tr>
<tr>
<td dir="rtl"> ×"×—×¨×•×‘×™× 333</td>
<td dir="rtl">[×›×ª×•×‘×ª]</td>
</tr>
<tr>
<td dir="rtl"> ×‘×™×ª ×©×ž×©</td>
<td dir="rtl">[×™×©×•×‘]</td>
</tr>
<tr>
<td dir="rtl"> 055000000</td>
<td dir="rtl">[×˜×œ×¤×•×Ÿ ×‘×¡× ×™×£]</td>
</tr>
<tr>
<td dir="rtl"> 5555555555555</td>
<td dir="rtl">[×¤×§×¡]</td>
</tr>
<tr>
<td> </td>
<td dir="rtl"><strong><span style="text-decoration: underline;">×¤×¨×˜×™ ××™×© ×"×§×©×¨</span></strong></td>
</tr>
<tr>
<td dir="rtl"> ××•×¨×•×Ÿ</td>
<td dir="rtl">[×©× ××™×© ×"×§×©×¨]</td>
</tr>
<tr>
<td dir="rtl"> ×ž× ×›"×œ</td>
<td dir="rtl">[×ª×¤×§×™×"]</td>
</tr>
<tr>
<td dir="rtl"> 0505000000</td>
<td dir="rtl">[×˜×œ×¤×•×Ÿ ××™×© ×§×©×¨]</td>
</tr>
<tr>
<td dir="rtl">1 </td>
<td dir="rtl">[×©×œ×•×—×"]</td>
</tr>
<tr>
<td dir="rtl"> eeeee@mini.co.il</td>
<td dir="rtl">[××™×ž×™×™×œ ××™×© ×§×©×¨]</td>
</tr>
<tr>
<td> </td>
<td>
<p dir="rtl"><strong><span style="text-decoration: underline;">×¤×¨×˜×™ ×§×¨×™××"</span></strong></p>
</td>
</tr>
<tr>
<td dir="rtl"> ×¤×§×•×"×•×ª ×™×•×ž×Ÿ</td>
<td dir="rtl">[× ×•×©× ×©×™×¨×•×ª]</td>
</tr>
<tr>
<td dir="rtl"> dc</td>
<td dir="rtl">[×¤×¨×˜×™ ×§×¨×™××"]</td>
</tr>
</tbody>
</table>

Please do such thing yourself, this is elementary exercises. I gave you all you need.

[EDIT #2]

But the HTML file obtained as this e-mail part won't be rendered correct as it is. You also need to specify UTF-8 encoding. You always need to sandwich it in html, head and body elements:

XML

<?xml version="1.0" encoding="UTF-8"?>
<html>
  <head>
    <title>some titme&lt;/title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  </head>
<body>

<!-- your content here -->

</body>
</html>

—SA

Posted 21-Apr-15 4:03am

Sergey Alexandrovich Kryukov

Updated 21-Apr-15 5:53am

v3

Comments

oronsultan 21-Apr-15 10:07am

hey again sergey, nice talking to you again.
actually, after reading (alot), i learned that base64 is as you say, not an encryption method. let me check out the link you gave me an i will give you an update.

Sergey Alexandrovich Kryukov 21-Apr-15 10:10am

Please don't forget to accept the answer formally.
In all cases, your follow-up questions will be welcome.
—SA

oronsultan 21-Apr-15 10:39am

dont worry about that...
but my question is how can i convert the new base64 text to the old text i used to get? now, let me try to explain my self:
until last week, my code handle with specific type of encoded text (table in html concept) and utf8 which i decoded and push to our internel software. now, i get this base64 gibrish and i need to know how to analyze it. i found out a website doing this thing (http://www.freeformatter.com/base64-encoder.html#ad-output) but i dont know the code for it in vb.net. can u help me with this?
for example, the gibrish goes like this:
PHA+IDwvcD4NCjx0YWJsZSBzdHlsZT0iZmxvYXQ6IHJpZ2h0OyIgYm9yZGVyPSIxIiBhbGlnbj0i
cmlnaHQiPjxjYXB0aW9uPiA8L2NhcHRpb24+DQo8dGJvZHk+DQo8dHI+DQo8dGQ+IDwvdGQ+DQo8
dGQgZGlyPSJydGwiPjxzcGFuIHN0eWxlPSJ0ZXh0LWRlY29yYXRpb246IHVuZGVybGluZTsiPjxz
dHJvbmc+16TXqNeY15kg15fXkdeo15Q8L3N0cm9uZz48L3NwYW4+PC90ZD4NCjwvdHI+DQo8dHI+
DQo8dGQgZGlyPSJydGwiPiAxPC90ZD4NCjx0ZCBkaXI9InJ0bCI+W9ee16EnINec16fXldeXXTwv
dGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj4g15PXldeTINep15nXldeV16cg15XXkdeg
15nXlTwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXqdedINeU16LXodenXTwvdGQ+DQo8L3RyPg0KPHRy
Pg0KPHRkIGRpcj0icnRsIj4gMTwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXly7XpC/Xoi7Xnl08L3Rk
Pg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+INeo15XXkNeZINeX16nXkdeV1588L3RkPg0K
PHRkIGRpcj0icnRsIj5b16HXmdeV15XXkiDXlNei16HXp108L3RkPg0KPC90cj4NCjx0cj4NCjx0
ZCBkaXI9InJ0bCI+IDMuMjMyPC90ZD4NCjx0ZCBkaXI9InJ0bCI+W9ee16EnINeS16jXodeUXTwv
dGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj4wNTU1NTU1NTU1NTwvdGQ+DQo8dGQgZGly
PSJydGwiPlvXmNec16TXldefINeo15DXqdeZXTwvdGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0i
cnRsIj4gZWVlQG1pbmlzb2Z0LmNvLmlsPC90ZD4NCjx0ZCBkaXI9InJ0bCI+W9eQ15nXnteZ15nX
nCDXqNeQ16nXmV08L3RkPg0KPC90cj4NCjx0cj4NCjx0ZD4gPC90ZD4NCjx0ZCBkaXI9InJ0bCI+
PHN0cm9uZz48c3BhbiBzdHlsZT0idGV4dC1kZWNvcmF0aW9uOiB1bmRlcmxpbmU7Ij7XpNeo15jX
mSDXlNeh16DXmdejPC9zcGFuPjwvc3Ryb25nPjwvdGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0i
cnRsIj4g15HXmdeqINep157XqTwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXqdedINeU16HXoNeZ16Nd
PC90ZD4NCjwvdHI+DQo8dHI+DQo8dGQgZGlyPSJydGwiPiDXlNeX16jXldeR15nXnSAzMzM8L3Rk
Pg0KPHRkIGRpcj0icnRsIj5b15vXqteV15HXql08L3RkPg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9
InJ0bCI+INeR15nXqiDXqdee16k8L3RkPg0KPHRkIGRpcj0icnRsIj5b15nXqdeV15FdPC90ZD4N
CjwvdHI+DQo8dHI+DQo8dGQgZGlyPSJydGwiPiAwNTUwMDAwMDA8L3RkPg0KPHRkIGRpcj0icnRs
Ij5b15jXnNek15XXnyDXkdeh16DXmdejXTwvdGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRs
Ij4gNTU1NTU1NTU1NTU1NTwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXpNen16FdPC90ZD4NCjwvdHI+
DQo8dHI+DQo8dGQ+IDwvdGQ+DQo8dGQgZGlyPSJydGwiPjxzdHJvbmc+PHNwYW4gc3R5bGU9InRl
eHQtZGVjb3JhdGlvbjogdW5kZXJsaW5lOyI+16TXqNeY15kg15DXmdepINeU16fXqdeoPC9zcGFu
Pjwvc3Ryb25nPjwvdGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj4g15DXldeo15XXnzwv
dGQ+DQo8dGQgZGlyPSJydGwiPlvXqdedINeQ15nXqSDXlNen16nXqF08L3RkPg0KPC90cj4NCjx0
cj4NCjx0ZCBkaXI9InJ0bCI+INee16DXmyLXnDwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXqtek16fX
mdeTXTwvdGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj4gMDUwNTAwMDAwMDwvdGQ+DQo8
dGQgZGlyPSJydGwiPlvXmNec16TXldefINeQ15nXqSDXp9ep16hdPC90ZD4NCjwvdHI+DQo8dHI+
DQo8dGQgZGlyPSJydGwiPjEgPC90ZD4NCjx0ZCBkaXI9InJ0bCI+W9ep15zXldeX15RdPC90ZD4N
CjwvdHI+DQo8dHI+DQo8dGQgZGlyPSJydGwiPiBlZWVlZUBtaW5pLmNvLmlsPC90ZD4NCjx0ZCBk
aXI9InJ0bCI+W9eQ15nXnteZ15nXnCDXkNeZ16kg16fXqdeoXTwvdGQ+DQo8L3RyPg0KPHRyPg0K
PHRkPiA8L3RkPg0KPHRkPg0KPHAgZGlyPSJydGwiPjxzdHJvbmc+PHNwYW4gc3R5bGU9InRleHQt
ZGVjb3JhdGlvbjogdW5kZXJsaW5lOyI+16TXqNeY15kg16fXqNeZ15DXlDwvc3Bhbj48L3N0cm9u
Zz48L3A+DQo8L3RkPg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+INek16fXldeT15XXqiDX
mdeV157XnzwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXoNeV16nXkCDXqdeZ16jXldeqXTwvdGQ+DQo8
L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj4gZGM8L3RkPg0KPHRkIGRpcj0icnRsIj5b16TXqNeY
15kg16fXqNeZ15DXlF08L3RkPg0KPC90cj4NCjwvdGJvZHk+DQo8L3RhYmxlPg==

Sergey Alexandrovich Kryukov 21-Apr-15 10:44am

I already answered. What part was unclear?
—SA

oronsultan 21-Apr-15 10:52am

i am trying to use the msdn function but an exception accure saying:
"Illegal characters in path."
maybei'm wrong and this is not base64?
all i get is:
"The input is not a valid Base-64 string as it contains a non-base 64 character, more than two padding characters, or an illegal character among the padding characters."
how did you convert it? can u show me the code please?

Sergey Alexandrovich Kryukov 21-Apr-15 11:05am

Did you see the that it it correctly converted. What code? There is no code except the call to the function I referenced first in this answer. I just cannot imagine how it would be possible to screw up, so perhaps it would be better if you show your code.
—SA

oronsultan 21-Apr-15 11:13am

Sub GetEmails(ByVal Server_Command As String)
Dim m_buffer() As Byte = System.Text.Encoding.UTF8.GetBytes(Server_Command.ToCharArray())
Dim stream_Reader As StreamReader
Dim TxtLine As String = ""
Try
m_sslStream.Write(m_buffer, 0, m_buffer.Length)
stream_Reader = New StreamReader(m_sslStream, Encoding.UTF8)
Do While stream_Reader.Peek() <> -1
TxtLine += stream_Reader.ReadLine() & vbNewLine
Loop
Dim einfo As New EmailInfo
TextBox1.Text = ""
Call Utilities.GetEmailInfo(TxtLine)
Dim AdpX As New OleDbDataAdapter, tbl As New DataTable, row As DataRow, sql As String
sql = "SELECT * FROM TempCalls"
AdpX = GetAdapter(sql, "\Service.mdb")
AdpX.Fill(tbl)
row = tbl.NewRow
row("License") = Val(GetFldSc("[מס' לקוח]", TxtLine))
row("LicName") = GetFldSc("[שם העסק]", TxtLine)
row("IDNumber") = GetFldSc("[ח.פ/ע.מ]", TxtLine)
row("GroupName") = GetFldSc("[סיווג העסק]", TxtLine)
row("VersionNumber") = GetFldSc("[מס' גרסה]", TxtLine)
row("Phone1") = GetFldSc("[טלפון ראשי]", TxtLine)
row("Email") = GetFldSc("[אימייל ראשי]", TxtLine)
row("BranchName") = GetFldSc("[שם הסניף]", TxtLine)
row("Address") = GetFldSc("[כתובת]", TxtLine)
row("City") = GetFldSc("[ישוב]", TxtLine)
row("Phone2") = GetFldSc("[טלפון בסניף]", TxtLine)
row("Fax") = GetFldSc("[פקס]", TxtLine)
row("ContactManName") = GetFldSc("[שם איש הקשר]", TxtLine)
row("Job") = GetFldSc("[תפקיד]", TxtLine)
row("PhoneDirect") = GetFldSc("[טלפון איש קשר]", TxtLine)
row("Extension") = Val(GetFldSc("[שלוחה]", TxtLine))
row("ContactManEmail") = GetFldSc("[אימייל איש קשר]", TxtLine)
row("ServiceSubject") = GetFldSc("[נושא שירות]", TxtLine)
row("CallDetails") = GetFldSc("[פרטי קריאה]", TxtLine)
If row.RowState = DataRowState.Detached Then
tbl.Rows.Add(row)
Else
row.EndEdit()
End If
AdpX.Update(tbl)
Dim TimeVal As String
TimeVal = Format(CDate(Date.Now), "dd/MM/yy hh:mm:ss")
sql = "SELECT * From ServiceCallsLast"
Dim RowX As DataRow
Dim TblLc As New DataTable
Dim AdpLc As OleDbDataAdapter = GetAdapter(sql, "\Service.mdb")
AdpLc.Fill(TblLc)
RowX = TblLc.Rows(0)
RowX.BeginEdit()
RowX("LastDateTimeEmail") = TimeVal
RowX.EndEdit()
AdpLc.Update(TblLc)
closeConn()

Catch ex As Exception
If locateBugs = True Then MsgBox(ex.Message & " - GetEmails")
If locateBugs = True Then Call ErrLog(ex)
End Try
End Sub
Public Function GetFldSc(fldToSearch As String, msgStr As String) As String
Dim str As String = ""
Dim index As Integer = msgStr.IndexOf("<tbody>")
Dim objRegEx As System.Text.RegularExpressions.Regex
msgStr.ToString.Replace(" ", "")
msgStr = msgStr.Substring(index, (msgStr.Length - index))
Dim bodyArray() As String = Split(msgStr, vbCrLf)
For i = 0 To bodyArray.Length - 1
If bodyArray(i).IndexOf(fldToSearch) <> -1 Then
str = bodyArray(i - 1).Substring(14, ((bodyArray(i - 1).Length - 5) - 14))
str.Replace(" ", "")
str = objRegEx.Replace(str, " ", "")
Exit For
End If
Next
If str = "<span>N/A</span>" Or str = " <span>N/A</span>" Then str = ""
Return str
End Function

Sergey Alexandrovich Kryukov 21-Apr-15 11:44am

It looks way too dirty. Most likely, you did not correct extract the mail part. When you did it manually, as in your comment, it worked correctly. Such things are easily checked up under the debugger.

You did not show where did you call System.Convert.FromBase64String. Under the debugger, come to the point before this call and compare the string argument passed with what it should be...

—SA

oronsultan 21-Apr-15 11:15am

and the text i need to analyze is this:
+OK message follows
Delivered-To: minisoft365@gmail.com
Received: by 10.28.225.132 with SMTP id y126csp426889wmg;
Tue, 21 Apr 2015 02:17:42 -0700 (PDT)
X-Received: by 10.180.78.199 with SMTP id d7mr17818829wix.94.1429607861856;
Tue, 21 Apr 2015 02:17:41 -0700 (PDT)
Return-Path: <erezgolan01@gmail.com>
Received: from server04.funet.co.il ([212.29.215.85])
by mx.google.com with ESMTPS id dk3si2695789wib.13.2015.04.21.02.17.41
(version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);
Tue, 21 Apr 2015 02:17:41 -0700 (PDT)
Received-SPF: softfail (google.com: domain of transitioning erezgolan01@gmail.com does not designate 212.29.215.85 as permitted sender) client-ip=212.29.215.85;
Authentication-Results: mx.google.com;
spf=softfail (google.com: domain of transitioning erezgolan01@gmail.com does not designate 212.29.215.85 as permitted sender) smtp.mail=erezgolan01@gmail.com;
dmarc=fail (p=NONE dis=NONE) header.from=gmail.com
Received: from minisoft by server04.funet.co.il with local (Exim 4.85)
(envelope-from <erezgolan01@gmail.com>)
id 1YkUJG-002W3C-V4; Tue, 21 Apr 2015 12:17:38 +0300
To: erezgolan01@gmail.com, oronsultan1@gmail.com, minisoft365@gmail.com
Subject: =?utf-8?B?W9ee15nXoNeZ16HXldek15gg16rXnteZ15vXlCAtIFvXpNeq15nXl9eqINen?= =?utf-8?B?16jXmdeQ15Q=?=
X-PHP-Script: www.minisoft.co.il/index.php for 81.218.138.144
Date: Tue, 21 Apr 2015 09:17:38 +0000
From: =?utf-8?B?W9ee15nXoNeZ16HXldek15gg16rXnteZ15vXlCAtIFvXpNeq15nXl9eqINen?=
=?utf-8?B?16jXmdeQ15Q=?= <erezgolan01@gmail.com>
Message-ID: <ba8313508190828a17a9938ae6788686@www.minisoft.co.il>
X-Priority: 3
X-Mailer: PHPMailer 5.2.9 (https://github.com/PHPMailer/PHPMailer/)
MIME-Version: 1.0
Content-Type: text/html; charset=utf-8
Content-Transfer-Encoding: base64
X-AntiAbuse: This header was added to track abuse, please include it with any abuse report
X-AntiAbuse: Primary Hostname - server04.funet.co.il
X-AntiAbuse: Original Domain - gmail.com
X-AntiAbuse: Originator/Caller UID/GID - [841 32007] / [47 12]
X-AntiAbuse: Sender Address Domain - gmail.com
X-Get-Message-Sender-Via: server04.funet.co.il: authenticated_id: minisoft/only user confirmed/virtual account not confirmed
X-Source:
X-Source-Args: /usr/sbin/proxyexec -q -d -s /var/run/proxyexec/cagefs.sock/socket /bin/cagefs.server
X-Source-Dir: minisoft.co.il:/public_html

PHA+IDwvcD4NCjx0YWJsZSBzdHlsZT0iZmxvYXQ6IHJpZ2h0OyIgYm9yZGVyPSIxIiBhbGlnbj0i
cmlnaHQiPjxjYXB0aW9uPiA8L2NhcHRpb24+DQo8dGJvZHk+DQo8dHI+DQo8dGQ+IDwvdGQ+DQo8
dGQgZGlyPSJydGwiPjxzcGFuIHN0eWxlPSJ0ZXh0LWRlY29yYXRpb246IHVuZGVybGluZTsiPjxz
dHJvbmc+16TXqNeY15kg15fXkdeo15Q8L3N0cm9uZz48L3NwYW4+PC90ZD4NCjwvdHI+DQo8dHI+
DQo8dGQgZGlyPSJydGwiPiAxPC90ZD4NCjx0ZCBkaXI9InJ0bCI+W9ee16EnINec16fXldeXXTwv
dGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj4g15PXldeTINep15nXldeV16cg15XXkdeg
15nXlTwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXqdedINeU16LXodenXTwvdGQ+DQo8L3RyPg0KPHRy
Pg0KPHRkIGRpcj0icnRsIj4gMTwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXly7XpC/Xoi7Xnl08L3Rk
Pg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9InJ0bCI+INeo15XXkNeZINeX16nXkdeV1588L3RkPg0K
PHRkIGRpcj0icnRsIj5b16HXmdeV15XXkiDXlNei16HXp108L3RkPg0KPC90cj4NCjx0cj4NCjx0
ZCBkaXI9InJ0bCI+IDMuMjMyPC90ZD4NCjx0ZCBkaXI9InJ0bCI+W9ee16EnINeS16jXodeUXTwv
dGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0icnRsIj4wNTU1NTU1NTU1NTwvdGQ+DQo8dGQgZGly
PSJydGwiPlvXmNec16TXldefINeo15DXqdeZXTwvdGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0i
cnRsIj4gZWVlQG1pbmlzb2Z0LmNvLmlsPC90ZD4NCjx0ZCBkaXI9InJ0bCI+W9eQ15nXnteZ15nX
nCDXqNeQ16nXmV08L3RkPg0KPC90cj4NCjx0cj4NCjx0ZD4gPC90ZD4NCjx0ZCBkaXI9InJ0bCI+
PHN0cm9uZz48c3BhbiBzdHlsZT0idGV4dC1kZWNvcmF0aW9uOiB1bmRlcmxpbmU7Ij7XpNeo15jX
mSDXlNeh16DXmdejPC9zcGFuPjwvc3Ryb25nPjwvdGQ+DQo8L3RyPg0KPHRyPg0KPHRkIGRpcj0i
cnRsIj4g15HXmdeqINep157XqTwvdGQ+DQo8dGQgZGlyPSJydGwiPlvXqdedINeU16HXoNeZ16Nd
PC90ZD4NCjwvdHI+DQo8dHI+DQo8dGQgZGlyPSJydGwiPiDXlNeX16jXldeR15nXnSAzMzM8L3Rk
Pg0KPHRkIGRpcj0icnRsIj5b15vXqteV15HXql08L3RkPg0KPC90cj4NCjx0cj4NCjx0ZCBkaXI9
InJ0bCI+INeR15nXqiDXqdee16k8L3RkP

oronsultan 21-Apr-15 11:47am

during our discussion, i found out this project:
http://www.codeproject.com/Articles/18478/Base-Decoder-and-Encoder
it works great, but why do i must write the text to txt file befor i convert it?

Sergey Alexandrovich Kryukov 21-Apr-15 11:57am

Look, the problem is way too simple. Why should I look for some most trivial article having almost no value if I already gave you a comprehensive answer? Why should you look at it? All you need is just to call one function with a correct actual argument. Come on... Only you should do some work, not trial-and-error attempts.
—SA

oronsultan 21-Apr-15 12:28pm

Sergey, its seems that ii annoyed you a bit. that was not my intention. i tried your first answer and it didnt work out. not because you gave me a wrong answer, but probably because i didn't figure it out completly. what i am saying is that it would be very helpful if you show me the code you did to get the attached result above.

Sergey Alexandrovich Kryukov 21-Apr-15 12:42pm

No, no, it's all right, sorry if I sound a bit irritating or irritated. The answer does works out because I successfully converted it. Just be logical. There is nothing to show: this is one call to System.Convert.FromBase64String. I just used your comment, its content. It won't help you. You never mentioned this call, where is it?

And if you called it, the problem is not in this part of code, the problem is in your input parameter. But this is a matter of parsing the whole e-mail into parts. I don't have the code for that and not going to write it, but this is nothing but some string manipulations. Just do one step at a time.

—SA

oronsultan 21-Apr-15 12:46pm

ok. let me check it out tommorow morning, i am no longer in my office. but if i remember currectly, i tryed this System.Convert.FromBase64String and all i get is "The input is not a valid Base-64 string as it contains a non-base 64 character, more than two padding characters, or an illegal character among the padding characters."

Sergey Alexandrovich Kryukov 21-Apr-15 12:51pm

This is exactly why I said what I said. You think that your input data is the same as in your comment (which is converted correctly), but it is not. Such problems are easily solved using the debugger.
—SA

oronsultan 22-Apr-15 5:37am

sergey,
first of all thank u very much for your help.
second, i manage to handle the issue with your help and some syntax manipulation.
i tried to handle the base64 text when the text was not edit well. Apparently, the "." at the end of the text made the text unable to decode / decrypt. yes, god is in the little letters :-). aniway, what that i'm doing now is writing the text to txt file (from technical reasons) and decode it to another txt file and it works great. i'm guessing that there is a better way of doing that but for now i dont have the time for it. here is syntax of handeling base64 encryption:

If InStr(TxtLine, "Content-Transfer-Encoding: base64") > 0 Then
Dim encodePath = Application.StartupPath & "\DecodeBase64\Encoded.TXT" Dim decodePath = Application.StartupPath & "\DecodeBase64\Decoded.TXT"
Dim str As String = "X-Source-Dir: minisoft.co.il:/public_html"
Dim position As Integer = InStr(1, TxtLine, str)
Dim c As Char = Nothing

base64Encoded = TxtLine.Substring(position + str.Length)
base64Encoded = base64Encoded.Trim
Dim position2 As Integer = base64Encoded.Length
Do While c <> "."
position2 -= 1
c = base64Encoded.Substring(position2)
Loop
base64Encoded = base64Encoded.Substring(0, position2)
If IO.File.Exists(Application.StartupPath &"DecodeBase64\Encoded.TXT") Then
IO.File.Delete(Application.StartupPath & "\DecodeBase64\Encoded.TXT")
End If
Dim sw As New IO.FileStream(Application.StartupPath & "\DecodeBase64\Encoded.TXT", IO.FileMode.Create)
sw.Close()
Dim writer As New System.IO.StreamWriter(Application.StartupPath & "\DecodeBase64\Encoded.TXT")
writer.Write(base64Encoded)
writer.Close()
Dim sr As New IO.StreamReader(Application.StartupPath & "\DecodeBase64\Encoded.TXT")
base64Encoded = sr.ReadToEnd
sr.Close()
Dim byte64 As Byte() = System.Convert.FromBase64String(base64Encoded)
If IO.File.Exists(Application.StartupPath & "\DecodeBase64\Decoded.TXT") Then
IO.File.Delete(Application.StartupPath & "\DecodeBase64\Decoded.TXT")
End If
Dim sw2 As New IO.FileStream(Application.StartupPath & "\DecodeBase64\Decoded.TXT", IO.FileMode.Create)
sw2.Write(byte64, 0, byte64.Length)
sw2.Close()
TxtLine = File.ReadAllText(Application.StartupPath & "\DecodeBase64\Decoded.TXT", Encoding.UTF8)
End If

Sergey Alexandrovich Kryukov 22-Apr-15 9:10am

All right; you are very welcome.
—SA