忘记是怎么知道FreeWizard这个id
反正不是在网管会
应该还是在水木灌水的时候偶尔看到free神奇一回
那个时候不知道free居然和我一届的
前段时间得知之后非常ft很受打击
说起来free的长发非常有个性
可能是禽兽路线的体现
嘿嘿
free神奇的地方在于
技术青年与文学青年
这两种身份
出于不8g的原则
不多说了
我从free那里学到很多
受益匪浅
今天还是asing师兄生日
可能是lwz老板抓人干活比较狠
现在很少看见asing师兄了
呵呵
中午去吃饭路上
rookie突然问我悲剧英文怎么说
我回答他说去问金山词霸
貌似以前还知道的
查了一下
貌似cothurn比较有意境一点
from Greek kothornos
源自 希腊语 kothornos
不过以前记的肯定不是这个单词
从前看悲剧喜剧都容易产生代入感
以为自己是故事中的谁
或者身边的谁是故事中的谁
然后总是看得很难过很压抑
后来
后来悲剧不过就是悲剧
就算是真实的
那也是已经结束的
而自己的生活还未结束
还有很长很长的路呢
何必要为自己预设一个结局呢
其实也不是预设一个结局
而是某段时间处于一种悲伤的情绪
可是悲剧不过是悲剧而已
生活还是生活
主干道上的落叶凄美也壮丽
然而明年春暖花开
又是别样美丽的风景
写了三张
爷爷用毛笔写的字看起来很亲切
会让我想起小时候他教我写毛笔字的情景
只是，只是后来……
我忽然想起老家那个小小的池塘
虽然不干净
池塘边的五株水杉
排成一排整齐地站着
爷爷在信里说这样那样
爷爷说也许应该希望怎样
我都笑笑
尽我所能不让他们失望吧
嗯
要继续努力
浪客剑心追忆篇中，
古比清十郎对剑心说：
春观夜樱，夏望繁星，秋赏满月，冬会初雪，此情此景，那还有酒不好喝？
倘若还觉得难喝，那便证明自己有病。
你终有一日，也会明白酒的味道。
到时，我们一起品尝美酒吧！
晚上没去上课
花时间整理了桌子
因为早上睡得迷迷糊糊的时候
有个人说这张桌子谁的啊这么乱
忙了一段时间
也是时候整理一下了
TEA项目也到了文档整理这一步
顺便也整理一下心情
回头看看过去一段时间的事
基本上还算不错
不过还要继续努力才是
奶糖很好吃
天空很晴朗
月亮也很亮
看起来很近很温暖
北方有佳人
汉 李延年
北方有佳人，绝世而独立。
一顾倾人城，再顾倾人国。
宁不知倾城与倾国？
佳人难再得！
孝武李夫人，本以倡进。初，夫人兄延年性知音，善歌舞，武帝爱之。每为新声变曲，闻者莫不感动。延年侍上起舞，歌曰：“北方有佳人，绝世而独立，一顾倾人城，再顾倾人国。宁不知倾城与倾国，佳人难再得！”上叹息曰：“善！世岂有此人乎？”平阳主因言延年有女弟，上乃召见之，实妙丽善舞。由是得幸，生一男，是为昌邑哀王。李夫人少而蚤卒，上怜闵焉，图画其形于甘泉宫。及卫思后废后四年，武帝崩，大将军霍光缘上雅意，以李夫人配食，追上尊号曰孝武皇后。
初，李夫人病笃，上自临候之，夫人蒙被谢曰：“妾久寝病，形貌毁坏，不可以见帝。愿以王及兄弟为托。”上曰：“夫人病甚，殆将不起，一见我属托王及兄弟，岂不快哉？”夫人曰：“妇人貌不修饰，不见君父。妾不敢以燕B325见帝。”上曰：“夫人弟一见我，将加赐千金，而予兄弟尊言。”夫人曰：“尊官在帝，不在一见。”上复言欲必见之，夫人遂转乡?欷而不复言。于是上不说而起。夫人姊妹让之曰：“贵人独不可一见上属托兄弟邪？何为恨上如此？”夫人曰：“所以不欲见帝者，乃欲以深托兄弟也。我以容貌之好，得从微贱爱幸于上。夫以色事人者，色衰而爱弛，爱弛则恩绝。上所以挛挛顾念我者，乃以平生容貌也。今见我毁坏，颜色非故，必畏恶吐弃我，意尚肯复追思闵录其兄弟哉！”及夫人卒，上以后礼葬焉。其后，上以夫人兄李广利为贰师将军，封海西侯，延年为协律都尉。
上思念李夫人不已，方士齐人少翁言能致其神。乃夜张灯烛，设帷帐，陈酒肉，而令上居他帐，遥望见好女如李夫人之貌，还幄坐而步。又不得就视，上愈益相思悲感，为作诗曰：“是邪，非邪？立而望之，偏何姗姗其来迟！”令乐府诸音家弦歌之。上又自为作赋，以伤悼夫人，其辞曰：
美连娟以修?兮，命?绝而不长，饰新官以延贮兮，泯不归乎故乡。惨郁郁其芜秽兮，隐处幽而怀伤，释舆马于山椒兮，奄修夜之不阳。秋气D952以凄泪兮，桂枝落而销亡，神茕茕以遥思兮，精浮游而出B460。托沈阴以圹久兮，惜蕃华之未央，念穷极之不还兮，惟幼眇之相羊。函菱秦以俟风兮，芳杂袭以弥章，的容与以猗靡兮，缥飘姚?愈庄。燕淫衍而抚楹兮，连流视而娥扬，既激感而心逐兮，包红颜而弗明。欢接狎以离别兮，宵寤梦之芒芒，忽迁化而不反兮，魄放逸以飞扬。何灵魂之纷纷兮，哀裴回以踌躇，势路日以远兮，遂荒忽而辞去。超兮西征，屑兮不见。浸淫敞恍，寂兮无音，思若流波，怛兮在心。
乱曰：“佳侠函光，陨仇荣兮，嫉妒B222茸，将安程兮！方时隆盛，年夭伤兮，弟子增欷，??怅兮。悲愁于邑，喧不可止兮。向不虚应，亦云已兮，?妍太息，叹稚子兮，?栗不言，倚所恃兮。仁者不誓，岂约亲兮？既往不来，申以信兮。去彼昭昭，就冥冥兮，既下新官，不复故庭兮。呜呼哀哉，想魂灵兮！
（《汉书・外戚传》卷九十七上 外戚传第六十七上）
不过看到李延年的名字，总是让我想起杜工部“落花时节又逢君”的李龟年。岐王宅里寻常见，崔九堂前几度闻。正是江南好风景，落花时节又逢君。（《江南逢李龟年》）假期和高中的同学见面，聊聊聊聊到以前写随笔的惬意日子，我总是会想起这句诗，落花时节又逢君。那时候晚读，大家吟诵诗词古文，多半会有几人念同一篇，又或者拿出市语文教研室编的册子从头开始。那个时候不知道什么叫青春，其实那个时候就很青春。
在《搭建NOD32 update server》一文
(http://www.smth.org/pc/pccon.php?id=264&nid=82136&order=&tid=1712)
中曾经提到Lucian的NOD32更新工具
最近因为Oliver的放NOD32 up的主页改版，然后我就改了Lucian的源码使得工具能继续工作，同时增加了一个updateserver的设置以方便没有容易的方式访问国外网络的人。
你可以在水木Newsoftware版文摘区找到Lucian的NOD32更新工具
我改过的nod32.dpr，至于getup.dpr可以参考这个文件改getsn函数
———————-
program nod32;
{$APPTYPE CONSOLE}
uses
SysUtils,
IdBaseComponent,
IdComponent,
IdTCPConnection,
IdTCPClient,
IdHTTP,
freplace,
Classes,
inifiles,
RTdunRar,
Windows;
var
idhttp1:Tidhttp;
list,list1,sn:tstringlist;
filepath,outpath,errmsg,updateserver:string;
i,retval:integer;
totelcounts:tdatetime;
MyStream:TFileStream;
SR: TSearchRec;
downsuccess,upsuccess:boolean;
dRar1: TdRar;
old,new,proxy:tinifile;
function mklistdir(str:string):string;
var str1:string;
begin
str:=fastreplace(str,’/',’\');
while (pos(’\',str)>0) do begin
str1:=str1+copy(str,1,pos(’\',str));
delete(str,1,pos(’\',str));
if not directoryexists(str1) then
begin
mkdir(str1);
writeln(’创建目录:’+str1);
end;
end;
{
if not directoryexists(str1+str) then
begin
mkdir(str1+str);
writeln(’创建目录:’+str1+str);
end;
}
end;
function getsn(indstr:string):string;
var
str1,str2:string;
begin
str1:=’ <p align="center">’;
str2:=’ ’;
if (pos(str1,indstr)=0) and (pos(str2,indstr)=0) then result:=indstr
else begin
while (pos(str1,indstr)>0) do begin
delete(indstr,1,pos(str1,indstr)+(length(str1)-1));
result:=result+#13+copy(indstr,1,pos(str2,indstr)-1);
delete(indstr,1,pos(str2,indstr)+(length(str2)-1));
end;
end;
end;
begin
Writeln(’Nod32 病毒库镜像生成工具 V0.23′);
writeln(’使用方法:nod32 outpath’);
writeln(’Build by Lucian’);
list:=tstringlist.Create;
sn:=tstringlist.Create;
totelcounts:=now();
filepath:=ExtractFilePath(ParamStr(0));
proxy:=tinifile.Create(ParamStr(0)+’.ini’);
proxy.WriteString(’proxy’,'proxyserver’,proxy.ReadString(’proxy’,'proxyserver’,”));
proxy.WriteString(’proxy’,'ProxyUsername’,proxy.ReadString(’proxy’,'ProxyUsername’,”));
proxy.WriteString(’proxy’,'ProxyPassword’,proxy.ReadString(’proxy’,'ProxyPassword’,”));
proxy.Writeinteger(’proxy’,'ProxyPort’,proxy.Readinteger(’proxy’,'ProxyPort’,0));
proxy.Writebool(’proxy’,'BasicAuthentication’,proxy.Readbool(’proxy’,'BasicAuthentication’,false));
proxy.Writebool(’up’,'uselocal’,proxy.Readbool(’up’,'uselocal’,false));
proxy.WriteString(’up’,'user’,proxy.ReadString(’up’,'user’,”));
proxy.WriteString(’up’,'pass’,proxy.ReadString(’up’,'pass’,”));
proxy.WriteString(’update’,'updateserver’,proxy.ReadString(’update’,'updateserver’,'http://sun.uid0.sk’));
if paramstr(1)=” then outpath:=filepath else outpath:=paramstr(1);
if not directoryexists(outpath) then
begin
writeln(’目标目录不存在,程序退出!’);
exit;
end;
if (copy(outpath,length(outpath),1)=’\') or (copy(outpath,length(outpath),1)=’/') then
begin
end else begin
outpath:=outpath+’\';
end;
if not proxy.ReadBool(’up’,'uselocal’,false) then
begin
writeln(’尝试获取sn’);
downsuccess:=false;
while not downsuccess do
begin
downsuccess:=true;
totelcounts:=now();
try idhttp1:=tidhttp.Create(nil); except on e:Exception do begin errmsg:=errmsg+e.Message; downsuccess:=false; writeln(’创建http控件失败,错误信息:’+errmsg); end; end;
idhttp1.ProxyParams.ProxyServer:=proxy.ReadString(’proxy’,'proxyserver’,”);
idhttp1.ProxyParams.ProxyPort:=proxy.ReadInteger(’proxy’,'ProxyPort’,0);
idhttp1.ProxyParams.ProxyUsername:=proxy.ReadString(’proxy’,'ProxyUsername’,”);
idhttp1.ProxyParams.BasicAuthentication:=proxy.ReadBool(’proxy’,'BasicAuthentication’,false);
idhttp1.ProxyParams.ProxyPassword:=proxy.ReadString(’proxy’,'ProxyPassword’,”);
try
sn.text:=idHTTP1.Get(’http://olivers624.online.fr/index.htm’);
except
on e:Exception do
begin
writeln(’ 下载sn失败,错误信息:’+e.Message);
downsuccess:=false;
end;
end;
try idhttp1.free; except on e:Exception do begin errmsg:=errmsg+e.Message; downsuccess:=false; writeln(’释放http控件失败,错误信息:’+errmsg); end; end;
writeln(’ 下载’+'http://olivers624.online.fr/index.htm’+'耗时:’+formatdatetime(’H:mm:ss’,now()-totelcounts));
end;
writeln(’尝试获取sn结束’);
sn.text:=getsn(sn.text);
end else begin
writeln(’载入本地up’);
sn.Add(”);
sn.add(proxy.ReadString(’up’,'user’,”));
sn.Add(proxy.ReadString(’up’,'pass’,”));
sn.add(”);
end;
Writeln(sn.text);
Writeln(’载入更新服务器’);
updateserver:=proxy.ReadString(’update’,'updateserver’,”);
Writeln(updateserver);
downsuccess:=false;
mklistdir(outpath+’/~eset/nod_upd/’);
while not downsuccess do
begin
downsuccess:=true;
totelcounts:=now();
try idhttp1:=tidhttp.Create(nil); except on e:Exception do begin errmsg:=errmsg+e.Message; downsuccess:=false; writeln(’创建http控件失败,错误信息:’+errmsg); end; end;
idhttp1.ProxyParams.ProxyServer:=proxy.ReadString(’proxy’,'proxyserver’,”);
idhttp1.ProxyParams.ProxyPort:=proxy.ReadInteger(’proxy’,'ProxyPort’,0);
idhttp1.ProxyParams.ProxyUsername:=proxy.ReadString(’proxy’,'ProxyUsername’,”);
idhttp1.ProxyParams.BasicAuthentication:=proxy.ReadBool(’proxy’,'BasicAuthentication’,false);
idhttp1.ProxyParams.ProxyPassword:=proxy.ReadString(’proxy’,'ProxyPassword’,”);
try
MyStream := TFileStream.Create(outpath+’/~eset/nod_upd/’+'update.ver’,fmCreate);
except
on e:Exception do
begin
writeln(’ 文件创建失败,错误信息:’+e.Message);
downsuccess:=false;
end;
end;
try
idHTTP1.Get(updateserver+’/~eset/nod_upd/update.ver’,MyStream);
except
on e:Exception do
begin
writeln(’ 下载失败,错误信息:’+e.Message);
downsuccess:=false;
end;
end;
try
MyStream.Free;
except
on e:Exception do
begin
writeln(’ 文件释放失败,错误信息:’+e.Message);
downsuccess:=false;
end;
end;
try idhttp1.free; except on e:Exception do begin errmsg:=errmsg+e.Message; downsuccess:=false; writeln(’释放http控件失败,错误信息:’+errmsg); end; end;
writeln(’ 下载’+'update.ver’+'耗时:’+formatdatetime(’H:mm:ss’,now()-totelcounts));
end;
downsuccess:=false;
while not downsuccess do
begin
downsuccess:=true;
totelcounts:=now();
try idhttp1:=tidhttp.Create(nil); except on e:Exception do begin errmsg:=errmsg+e.Message; downsuccess:=false; writeln(’创建http控件失败,错误信息:’+errmsg); end; end;
try
MyStream := TFileStream.Create(outpath+’/~eset/nod_upd/’+'expire.rar’,fmCreate);
except
on e:Exception do
begin
writeln(’ 文件创建失败,错误信息:’+e.Message);
downsuccess:=false;
end;
end;
idhttp1.ProxyParams.ProxyServer:=proxy.ReadString(’proxy’,'proxyserver’,”);
idhttp1.ProxyParams.ProxyPort:=proxy.ReadInteger(’proxy’,'ProxyPort’,0);
idhttp1.ProxyParams.ProxyUsername:=proxy.ReadString(’proxy’,'ProxyUsername’,”);
idhttp1.ProxyParams.BasicAuthentication:=proxy.ReadBool(’proxy’,'BasicAuthentication’,false);
idhttp1.ProxyParams.ProxyPassword:=proxy.ReadString(’proxy’,'ProxyPassword’,”);
try
idHTTP1.Get(updateserver+’/~eset/nod_upd/expire.rar’,MyStream);
except
on e:Exception do
begin
writeln(’ 下载失败,错误信息:’+e.Message);
downsuccess:=false;
end;
end;
try
MyStream.Free;
except
on e:Exception do
begin
writeln(’ 文件释放失败,错误信息:’+e.Message);
downsuccess:=false;
end;
end;
try idhttp1.free; except on e:Exception do begin errmsg:=errmsg+e.Message; downsuccess:=false; writeln(’释放http控件失败,错误信息:’+errmsg); end; end;
writeln(’ 下载’+'expire.rar’+'耗时:’+formatdatetime(’H:mm:ss’,now()-totelcounts));
end;
dRar1:=TdRar.Create(nil);
drar1.Archivefilename:=outpath+’/~eset/nod_upd/’+'update.ver’;
drar1.NameofUnrarDll:=’unrar.dll’;
drar1.Path2UnrarDll:=filepath;
drar1.TargetDirectory:=filepath;
drar1.ExtractArchive;
new:=tinifile.Create(filepath+’update.ver’);
old:=tinifile.Create(filepath+’update.old’);
list1:=tstringlist.create;
new.ReadSections(list1);
for i:=0 to list1.Count-1 do
begin
if (new.ReadString(list1.Strings[i],’date’,”)<>”) and (new.ReadString(list1.Strings[i],’file’,”)<>”) then
begin
if new.ReadString(list1.Strings[i],’date’,”)<>old.ReadString(list1.Strings[i],’date’,”) then
begin
list.Add(new.ReadString(list1.Strings[i],’file’,”));
end;
end;
end;
if list.count>0 then
begin
writeln(’发现如下更新:’);
writeln(list.text);
end else begin
writeln(’未发现更新,郁闷!’);
end;
upsuccess:=true;
for i:=0 to list.Count-1 do mklistdir(outpath+list.Strings[i]);
for i:=0 to list.Count-1 do
begin
downsuccess:=false;
while ((not downsuccess) and upsuccess) do
begin
downsuccess:=true;
totelcounts:=now();
try idhttp1:=tidhttp.Create(nil); except on e:Exception do begin errmsg:=errmsg+e.Message; downsuccess:=false; writeln(’创建http控件失败,错误信息:’+errmsg); end; end;
idhttp1.ProxyParams.ProxyServer:=proxy.ReadString(’proxy’,'proxyserver’,”);
idhttp1.ProxyParams.ProxyPort:=proxy.ReadInteger(’proxy’,'ProxyPort’,0);
idhttp1.ProxyParams.ProxyUsername:=proxy.ReadString(’proxy’,'ProxyUsername’,”);
idhttp1.ProxyParams.BasicAuthentication:=proxy.ReadBool(’proxy’,'BasicAuthentication’,false);
idhttp1.ProxyParams.ProxyPassword:=proxy.ReadString(’proxy’,'ProxyPassword’,”);
try
MyStream := TFileStream.Create(outpath+list.Strings[i],fmCreate);
except
on e:Exception do
begin
writeln(’ 文件创建失败,错误信息:’+e.Message);
downsuccess:=false;
end;
end;
try
idhttp1.Request.BasicAuthentication:=true;
idhttp1.Request.Username:=sn.Strings[1];
writeln(’ 添加认证用户名:’+sn.strings[1]);
idhttp1.Request.Password:=sn.Strings[2];
writeln(’ 添加认证注册码:’+sn.strings[2]);
except
on e:Exception do
begin
writeln(’ 用户认证:’+e.Message);
downsuccess:=false;
end;
end;
try
idHTTP1.Get(updateserver+list.Strings[i],MyStream);
except
on e:Exception do
begin
writeln(’ 下载失败,错误信息:’+e.Message);
downsuccess:=false;
upsuccess:=false;
end;
end;
try
MyStream.Free;
except
on e:Exception do
begin
writeln(’ 文件释放失败,错误信息:’+e.Message);
downsuccess:=false;
end;
end;
try idhttp1.free; except on e:Exception do begin errmsg:=errmsg+e.Message; downsuccess:=false; writeln(’释放http控件失败,错误信息:’+errmsg); end; end;
writeln(’ 下载’+list.strings[i]+’耗时:’+formatdatetime(’H:mm:ss’,now()-totelcounts));
end;
end;
old.Free;
new.Free;
list1.Free;
if (list.count>0) and upsuccess then
begin
list.LoadFromFile(filepath+’update.ver’);
list.SaveToFile(filepath+’update.old’);
end;
list.Free;
writeln(’结束了,爽!!!’);
{ TODO -oUser -cConsole Main : Insert code here }
end.
词：姚谦 曲：陈子鸿
心 是一个容器
不停的累积 关于你的点点滴滴
虽然我 总守口如瓶
思念却满溢 溅湿了我眼睛
喔…..
因为 我太想念你 所以才害怕
这孤独大的不著边际
若此刻能奔向你
紧紧拥抱你
我会毫不迟疑
直觉我们应属于彼此
否则我不会每次无法停止
想你想成了心事
等你等成了坚持
眼中渴望来不及掩饰又如此诚实
直觉我们应属于彼此
否则我不会常常若有所失
白天眨眼瞬间里
夜晚呼吸气息里
都写满了我是多么爱你想你的讯息
© 2007 十年江湖一夕梦 is designed by Webmaster -- Made free by Automotive Dev and Greece Hotels