satocchiaブログ

キーワードサーチ

▼キーワード検索

カレンダー

コメント新着

tomoZo@ Re:Pale　Moon日本語化トラブル(06/06) はじめまして。 28.16.0でまたもや提供さ…

satocchia @ Re[1]:Pale　Moon日本語化トラブル(06/06) zui_9さんへ本日、確認しました。ようや…

zui_9 @ Re:Pale　Moon日本語化トラブル(06/06) 上記リンク「Githubのプロジェクト」の左…

わたなべ@ Re:powershellコンソール、見づらくありませんか？(08/26) 初めまして、この情報最高です！背景を白…

y__@ Re:uwscでGUIフォーム(05/12) UWSC 仮掲示板から飛んできました。 HTAで…

2014.12.22

私、マッ黒い人なの？

カテゴリ： UWSC

UWSC掲示板にコードを書き込んだら、セキュリティ上の脅威となるコードだったみたい。
http://d.hatena.ne.jp/junjun777/20141219/powershell_script_run#seemore

私、「マッ黒い人」じゃないんです。
悪いことはしていません。
信じてください…。

黒いついでに、掲示板に書いたコードの完全版を載せておこうっと。
///////////////////////////////////////////////////外部PS1スクリプトを実行
//ps1ファイルが存在すればそれをスクリプトとして実行。なければps1をスクリプトソースとして実行する。
//msgbox( ExecPs1( pssrc ) )

//
//textblock pssrc
//"\ab\c\"+"def"+"\"+"ghi\"
//"\ab\c\"+"def"+"\\"+"ghi\"
//"\ab\c\"+"def"+"\\\"+"ghi\"
//endtextblock

function ExecPs1( ps1 )
　　　　if fopen( ps1, f_exists )
　　　　　　　　result =powershell( replace( _src_exec_ps1, "##PS1##", "<#dbl>"+ps1+"<#dbl>" ) )
　　　　else
　　　　　　　　dim fso =CreateOleObj( "Scripting.FileSystemObject" )

　　　　　　　　　　　　repeat
　　　　　　　　　　　　　　　　tmp =fso.GetTempName()
　　　　　　　　　　　　　　　　dir =fso.GetSpecialFolder( 2 )
　　　　　　　　　　　　　　　　tmp =fso.BuildPath( dir, tmp )
　　　　　　　　　　　　until !fso.FolderExists( tmp ) and !fso.FileExists( tmp )

　　　　　　　　　　　　fput( fd, ps1, f_alltext )
　　　　　　　　　　　　fclose( fd )
　　　　　　　　　　　　result =ExecPs1( tmp )
　　　　　　　　　　　　deletefile( tmp )
　　　　endif
textblock _src_exec_ps1
$encoded= [Convert]::ToBase64String([System.Text.Encoding]::Unicode.GetBytes((gc ##PS1## ) -join "`r`n"))
powershell -EncodedCommand $encoded
endtextblock
fend

お気に入りの記事を「いいね！」で応援しよう