プログラム作成スレッド - 1447022754

1：女傑 ◆nDpXSJz8i.：2015/11/09(月) 07:45:54: プログラム作成の為のメモ
2：女傑 ◆nDpXSJz8i.：2015/11/09(月) 07:46:47: 証明書作成

makecert -n "CN=RensyuCA,O=RensyuGroup,C=JP" -a sha1 -b 01/01/2009 -e 12/31/2010 -sv RensyuCA.pvk -r RensyuCA.cer

makecert -n "CN=Rensyu,O=KuroGroup,C=JP" -a sha1 -b 01/01/2009 -e 12/31/2010 -sv Rensyu.pvk -ic RensyuCA.cer -iv RensyuCA.pvk Rensyu.cer

Cert2SPC Rensyu.cer Rensyu.cer Rensyu.spc

pvk2pfx -pvk Rensyu.pvk -spc Rensyu.spc -pfx Rensyu.pfx -pi okkotonushi -po okkotonushi -f
3：女傑 ◆nDpXSJz8i.：2015/11/09(月) 07:47:43: デジタルサイン

signtool sign /f Rensyu.pfx /p okkotonushi Madonote-2004.exe

signtool timestamp /t http://timestamp.verisign.com/scripts/timestamp.dll Madonote-2004.exe
4：女傑 ◆nDpXSJz8i.：2015/11/09(月) 07:50:29: bit強度アップ

makecert -n "CN=JyoketsuCA,O=JyoketsuGroup,C=JP" -a sha1 -b 01/01/2012 -e 01/01/2017 -len 2048 -eku 1.3.6.1.5.5.7.3.3 -sv JyoketsuCA.pvk -r JyoketsuCA.cer

makecert -n "CN=Jyoketsu,O=JyoketsuGroup,C=JP" -a sha1 -b 01/01/2012 -e 01/01/2017 -len 2048 -eku 1.3.6.1.5.5.7.3.3 -sv Jyoketsu.pvk -ic JyoketsuCA.cer -iv JyoketsuCA.pvk Jyoketsu.cer

Cert2SPC Jyoketsu.cer Jyoketsu.cer Jyoketsu.spc

pvk2pfx -pvk Jyoketsu.pvk -spc Jyoketsu.spc -pfx Jyoketsu.pfx -pi password -po password -f
5：女傑 ◆nDpXSJz8i.：2015/11/09(月) 07:59:17: コンパイル・リンクのためのコマンド

cl /c exe.c

link /OUT:exe.exe exe.obj kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib

ODBC関係のライブラリを使用しない場合は
link /OUT:exe.exe exe.obj kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib

BCC32 -W -w- -e0000.exe 0000.cpp
BRC32 0000.rc 0000.exe

cl c/0000.cpp /W3 /02

cl /GX exe.cpp

/out:exe.exe
exe.obj
6：女傑 ◆nDpXSJz8i.：2015/11/09(月) 08:00:33: 32ビット版ハローワールド

#include <windows.h>
int WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE Mutex = CreateMutex(NULL, false, "Mutex");
if (Mutex == NULL) return 0;
if ( GetLastError() == ERROR_ALREADY_EXISTS){
return 0;
}
{
MessageBox(0, "Hello, World!", "Welcome", MB_OK);

CloseHandle( Mutex);
return 0;
}
}
7：女傑 ◆nDpXSJz8i.：2015/11/09(月) 08:22:43: バージョン情報

#include <winver.h>

ICON "icon.ico"
VS_VERSION_INFO VERSIONINFO
FILEVERSION 1,2,3,4
PRODUCTVERSION 5,6,7,8
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
FILEFLAGS 0x00000000L
FILEOS VOS__WINDOWS32
FILETYPE VFT_APP
FILESUBTYPE VFT2_UNKNOWN
BEGIN
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0409, 1252
END

BLOCK "StringFileInfo"
BEGIN
BLOCK "040904E4"
BEGIN
VALUE "CompanyName", "女傑株式会社"
VALUE "FileDescription", "サンプル"
VALUE "FileVersion", "1.00\0"
VALUE "InternalName", "jyokett\0"
VALUE "LegalCopyright", "Copyright (C) jyoketsu all rights reserved.\0"
VALUE "OriginalFilename", "exe.exe\0"
VALUE "ProductName", "exe\0"
VALUE "ProductVersion", "1.00\0"
END
END
END
8：女傑 ◆nDpXSJz8i.：2015/11/09(月) 12:30:48: BorlandのBRC３２でアイコンを付ける場合

//icon.rc
MainIcon ICON "icon.ico"
9：女傑 ◆k/y1YZqW2w：2025/07/14(月) 14:45:16: §基本的なフォームからの送受信です♪

if ($ENV{'Request_Method'} eq 'POST') { read(STDIN,$buffer,$ENV{'Content_Length'};); }
else { $buffer = $ENV{'Query_Stringth'}; }
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name=~s/</</g;
$name=~s/>/>/g;
$name=~s/&/&/g;
$name=~s/"/"/g;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value=~s/</</g;
$value=~s/>/>/g;
$value=~s/&/&/g;
$value=~s/"/"/g;
$FORM{$name} = $value;
}
10：女傑 ◆k/y1YZqW2w：2025/08/19(火) 06:15:40: if ( $ENV{'REQUEST_METHOD'} eq "POST" ) { read(STDlN,$query,$ENV{'CONTENT_LENGTH}); }
else{ $query = $ENV{'QUERY_STRINGTH'}; }
@pairs = split(/&/,$query);
foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$name =~ s/%[a-fA-F0-9][a-fA-F0-9]/pack("C",hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/</</g;
$name =~ s/>/>/g;
$name =~ s/"/"/g;
$name =~ s/&/&/g;
$value =~ s/%[a-fA-F0-9][a-fA-F0-9]/pack("C",hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/"/"/g;
$value =~ s/&/&/g;
$form{$name} = $value;
}
$pass = $form{id};

基本的なフォームからのデータ受け取り部分