WDLL Studio: 序

《WDLL Studio日志》序

Fri, 23 Dec 2005 23:15:54 GMT

#include "WDLLStudio.h" /*头文件iostream.h已被收购、替代*/

using namespace WDLLStudio::WebStory;
using namespace WDLLStudio::JieRoro;
using namespace WDLLStudio::Portly;
using namespace WDLLStudio::WuChao;

using namespace Friends:dangdang;
using namespace Friends:RF;
using namespace Friends:Single;

const LDCHAR DH[] = LD("WebStory");
LDCHAR k[2] = {LD('N'),LD('Y')};
CWDLLIO cio;

void Swap(LDCHAR&, LDCHAR&);
LDCHAR &index(int i);
inline LDCHAR Pass(CLDString&);

int main(int argc, char* argv[])
{
LDCHAR a=LD('蛛'), b=LD('蜘');
CLDString Web(LD("蛛网")), LF(LD("粒肥"));
CLDString password1(32), password2(32);
CLDString Address(128);

Swap(a,b);
cio<<"骇客良民——"<<a<<b<<DH<<endl;

if(Address==LD("北京市海淀区")){
  Address=LD("中国");
  cio<<"凯旋"<<Address<<endl;
}
else if(Address==LD("Okayama-ken，岡山市")){
  cio<<DH<<"鏖战日本"<<endl;
}
else{
  cio<<"run out of memory"<<endl; //DH脱离地球
}

cio<<"程序代码，是"<<DH<<"的精神要粮，病毒是补给，木马是外援。"<<endl;
cio<<"因"<<DH<<"大脑两半球相互间的不兼容，"<<endl;
cio<<"促使"<<DH<<"练就了左右互搏，即："<<endl;
cio<<"左手编毒，右手杀毒。无逢敌手，自产自销，故此以消遣耳。"<<endl;
cio<<"成就了史上唯一一位熟谙两极对立阵营于一身而不产生任何冲突的新新掌门人。"<<endl;
cio<<DH<<"非属节肢动物门"<<endl;
cio<<"喻"<<DH<<"为"<<a<<b<<"，因为其程序编织出的"<<Web<<"互联全球，型如九宫八卦图，属捕食者。"<<endl;
cio<<"而自认己为网-bug的"<<LF<<"，总是争着历尽千辛万险硬要粘耗在人家的弦丝上弹奏，"<<endl;
cio<<"以致不得不沦为了户主无奈掠杀的对象。因其形体过于反胃而屡屡放生，终修得正果心法——"<<endl;
cio<<"《DH法》:"<<endl;
cio<<"杜绝漏洞，行之有恒。"<<endl;
cio<<"断奶不可断电，缺钙不可缺PC"<<endl;
cio<<"纵坚实确保，亦常打补丁，为不错失一个蠕虫而奋斗终生!"<<endl;
cio<<"被尊誉为："<<endl;
cio<<"“比尔·盖茨的幕后枪手”、“披着盖茨的老杜”"<<endl;
cio<<"Please input the exit password:";
cio>>password1;

if(password1==LD("Love LD until die"))
  password2 = LD("Y");
else
{
  cio<<"提示：Do you love LD until die?"<<endl<<"(强烈建议输入“Y”)";
  cio>>password2;
}

Pass(password2);

cio<<"\n此代码系LD Script程序设计语言编写，若看不懂就是你的不对了；如运行不了，那就对了。"<<endl;
cio<<"COPYRIGHT By http://spaces.msn.com/members/JieRoro"<<endl;
cio<<"2005.12.03"<<endl;
cio<<"好友:LD 作于浙\n\n";

return 0;
}

void Swap(LDCHAR &m,LDCHAR &n)
{
LDCHAR temp=m;
m=n;
n=temp;
}

LDCHAR &index(int i)
{
return k[i];
}

inline LDCHAR Pass(CLDString &password2)
{
while(password2.charAt(0) != index(1))
{
cio<<"ERROR! Try again."<<endl<<"Do you love LD until die?";
cio>>password2;
}

index(2)=LD('乖');
cio<<index(2)<<endl;
return k[2];
}

关于《WDLL Studio日志》序

Fri, 23 Dec 2005 22:37:52 GMT

非常感谢LD(现在叫TERMINATOR--有点暴力倾向)在百忙之中写了个如此别致的序给我, 其狂妄极端的LD个性尽显于字里行间, 使人看过之后会热血沸腾, 心胸开阔, 有登泰山而小天下之感. 虽不能说是文中极品, 不过一品两品还是有的了 :-)

不过看之前,出于对大家生命安全的考虑,请注意以下事项:

胆量值小于255都请绝对不要看;

胆量值大于255小于512者务必在监护人的陪同下观看;

胆量值介于512到1024之间者请先出示省级以上健康证明后方可查看;

&#$@!&^%......

当然, 这个序本身是不可以运行的, 不过我添加了一个头文件, 在VC环境中只要包含了这个头文件就可以了编译通过了. (当然,那些名字空间也是要注释掉的) ...... 啊, 差点忘了, 这个程序的字符虽然是Unicode格式, 但是没有必要在VC编译环境中设置_UNICODE或UNICODE定义,也不用添加任何其它头文件, 直接用默认设置就行了. 啊, 又忘了, 那标题中不是已经说过是最小UNICODE模式了吗?

呵呵, 不说费话了, 胆大有为者可能已经等不及直接去看这经典之序了吧 *_^ ......喂, 那边那位这是干嘛? 怎么向我扔石头啊?! 你不知道我辛辛苦苦说了这么多费话就是为了等你扔点水果什么的吗?!唉, 这年头, 想提高一点生活水平怎么这么难啊......

WDLLStudio.h -- 运行必备(最小UNICODE模式)

Fri, 23 Dec 2005 21:57:50 GMT

/**
WDLLStudio.h
2005-12-22 23:19:35
WebSory@WDLLStudio
*/

#include <stdio.h>

#define LD(x) L ## x
#define endl LD("<\n")

#define CP_ACP      0       /* default to ANSI code page */
//#define CP_OEMCP    1       /* default to OEM code page */
#define WC_COMPOSITECHECK         0x00000200 // convert composite to precomposed
//#define WC_DISCARDNS              0x00000010 // discard non-spacing chars
//#define WC_SEPCHARS               0x00000020 // generate separate chars
//#define WC_DEFAULTCHAR            0x00000040 // replace w/ default char

typedef unsigned short LDCHAR;
typedef int BOOL;

extern "C" int _stdcall WideCharToMultiByte(
    unsigned int CodePage,
    unsigned long dwFlags,
    const LDCHAR* lpWideCharStr,
    int   cchWideChar,
    char*  lpMultiByteStr,
    int   cchMultiByte,
    const char* lpDefaultChar,
    int*  lpUsedDefaultChar);

// 用于处理UNICODE字符串的类
class CLDString{
protected:
LDCHAR *sBuf;
int lLength;

public:
CLDString(int lSize = 128);
CLDString(const LDCHAR *_ws);
CLDString(CLDString &_str);
virtual ~CLDString(){
delete[] sBuf;
}

int getLength(void){
return lLength;
}

LDCHAR *getValue(void);
LDCHAR charAt(int);
int wstrlen(const LDCHAR *_ws);
void wstrcpy(LDCHAR *_wsDest, const LDCHAR *_wsSrc);
int wstrcmp(const LDCHAR *_ws1, const LDCHAR *_ws2);

void operator=(const LDCHAR *_wsSrc);
void operator=(CLDString &strSrc);
BOOL operator==(const LDCHAR *_ws);
BOOL operator==(CLDString &_str);
};

CLDString::CLDString(int lSize){
lLength = lSize;
sBuf = new LDCHAR[lSize];
sBuf[0] = 0;
}

CLDString::CLDString(const LDCHAR *_ws){
LDCHAR *pStr = (LDCHAR *)_ws;
LDCHAR *pBuf;

lLength = wstrlen(_ws);
sBuf = new LDCHAR[lLength+1];
pBuf = sBuf;
while(*pStr!=0){
  *pBuf = *pStr;
  pBuf++;
  pStr++;
}
*pBuf = 0;
}

CLDString::CLDString(CLDString &_str){
this->operator =(_str);
}

LDCHAR *CLDString::getValue(void){
LDCHAR *wsTmp =new LDCHAR[lLength+1];

wstrcpy(wsTmp,sBuf);

return wsTmp;
}

LDCHAR CLDString::charAt(int index){
if(index>=0 && index<lLength)
return sBuf[index];
else
return 0;
}

int CLDString::wstrlen(const LDCHAR *_ws){
int i;
LDCHAR *pStr = (LDCHAR *)_ws;

for(i=0; *pStr!=0; i++)pStr++;

return i;
}

void CLDString::wstrcpy(LDCHAR *_wsDest, const LDCHAR *_wsSrc){
int i, sLen = wstrlen(_wsDest);
LDCHAR *pwsSrc = (LDCHAR *)_wsSrc;

for(i=0; i<sLen && *pwsSrc!=0; i++){
  *_wsDest = *pwsSrc;
  _wsDest++;
  pwsSrc++;
}
*_wsDest = 0;
}

int CLDString::wstrcmp(const LDCHAR *_ws1, const LDCHAR *_ws2){
int i = 0;
LDCHAR *pws1 = (LDCHAR *)_ws1;
LDCHAR *pws2 = (LDCHAR *)_ws2;

while(*pws1!=0 && *pws2!=0 && *pws1==*pws2){
pws1++;
pws2++;
}

return *pws1-*pws2;
}

void CLDString::operator=(const LDCHAR *_wsSrc){
int i;
LDCHAR *pwsSrc = (LDCHAR *)_wsSrc;

lLength = wstrlen(_wsSrc);
delete[] sBuf;
sBuf = new LDCHAR[lLength+1];

for(i=0; i<lLength; i++){
sBuf[i] = *pwsSrc;
pwsSrc++;
}
sBuf[i] = 0;
}

void CLDString::operator=(CLDString &strSrc){
if(&strSrc != this){ // 只在 x=y 的情况下进行实际的COPY操作, 在 x=x 的情况下

不做任何事.
int i;
LDCHAR *pwsSrc = (LDCHAR *)strSrc.getValue();

  lLength = strSrc.getLength();
  delete[] sBuf;
  sBuf = new LDCHAR[lLength+1];

  for(i=0; i<lLength; i++){
   sBuf[i] = *pwsSrc;
   pwsSrc++;
  }
  sBuf[i] = 0;
}
}

BOOL CLDString::operator==(const LDCHAR *_ws){
return (wstrcmp(sBuf, _ws)==0);
}

BOOL CLDString::operator==(CLDString &_str){
LDCHAR *pws = _str.getValue();
return (wstrcmp(sBuf, pws)==0);
}

// 用于输入/输出UNICODE字符的类
class CWDLLIO{
public:
CWDLLIO(void){}
virtual ~CWDLLIO(){}

inline CWDLLIO& operator<<(CWDLLIO& (__cdecl * _f)(CWDLLIO&));
CWDLLIO& operator<<(char _c);
CWDLLIO& operator<<(char *_s);
CWDLLIO& operator<<(const char *_s);
CWDLLIO& operator<<(const LDCHAR *_ws);
CWDLLIO& operator<<(LDCHAR *_ws);
CWDLLIO& operator<<(LDCHAR _wc);
CWDLLIO& operator<<(CLDString &_str);
CWDLLIO& operator<<(int _v);

void readln(LDCHAR *_ws, int lMaxLen);
void operator>>(LDCHAR _ws[]);
void operator>>(CLDString &_str);
};

CWDLLIO& CWDLLIO::operator<<(int _v){
printf("%d",_v);

return *this;
}

inline CWDLLIO& CWDLLIO::operator<<(CWDLLIO& (__cdecl * _f)(CWDLLIO&)){
(*_f)(*this);

return *this;
}

CWDLLIO& CWDLLIO::operator<<(LDCHAR *_ws){
this->operator <<((const LDCHAR *)_ws);

return *this;
}

CWDLLIO& CWDLLIO::operator<<(const LDCHAR *_ws){
char cBuf[256];

WideCharToMultiByte(CP_ACP, WC_COMPOSITECHECK, _ws, -1, cBuf, sizeof(cBuf),

NULL, NULL);
printf("%s",cBuf);

return *this;
}

CWDLLIO& CWDLLIO::operator<<(LDCHAR _wc){
LDCHAR pws[2];

pws[0] = _wc;
pws[1] = 0;
this->operator <<((const LDCHAR *)pws);

return *this;
}

CWDLLIO& CWDLLIO::operator<<(CLDString &_str){
this->operator <<(_str.getValue());

return *this;
}

CWDLLIO& CWDLLIO::operator<<(char _c){
putchar(_c);

return *this;
}

CWDLLIO& CWDLLIO::operator<<(char *_s){
printf("%s", _s);

return *this;
}

CWDLLIO& CWDLLIO::operator<<(const char *_s){
printf("%s", _s);

return *this;
}

void CWDLLIO::operator>>(LDCHAR *_ws){
readln(_ws, 64);
}

void CWDLLIO::operator>>(CLDString &_str){
LDCHAR *wsTmp =new LDCHAR[_str.getLength()+1];

readln(wsTmp, _str.getLength());
_str = (const LDCHAR *)wsTmp;
}

void CWDLLIO::readln(LDCHAR *_ws, int lMaxLen){
int i = 0;
LDCHAR wcTmp = 0;

while(i<lMaxLen && wcTmp!=LD('\r') && wcTmp!=LD('\n')){
  wcTmp = getwchar();
  *_ws = wcTmp;
  _ws++;
  i++;
}
*_ws = 0;
}