看着CCAV的新闻，总觉得什么事也就不是个事了。 ——12：14 《新闻30分》。
————————————————————。
昨天晚上第一节自习课，窗外就响起了异响，惊动了正在研究四道高考题的我。抬头一看，玻璃都少有的晃动。
大风了么。
突然看到，窗外，好奇的目光。那只猫，就这样一跳而过。
下午五点，老爸给老妈短信：济南大风下雨了，早点回家。也正是由于这场雨吧，风变得很透彻，纯粹的风，没有杂质。身旁的座位空着，同桌去济南参加公费留学新加坡的考试了。大风肆虐，让本来人数不多的班级显得更为空旷。埋头，继续用本来不富裕的时间追赶被丢下的东西。
猛然想起来，如此强力的风，还有自行车这个家伙孤零零地在外面站着，下了课便赶快下去扶。
到了楼下，发现数学老师的儿子，也就是新认识的朋友也在搬动自行车。合力，算是做好事吧。
不是一路人，不进一家门。
风。好大的风啊。那几根高压照明灯都忽闪起来，虽然距离教学楼足够远，那些站在四楼中间超窗外望着的女生还是一个劲的害怕地喊。
风，是你么？
单击此处下载乔治·奥威尔的《1984》
战争即和平
自由即奴役
无知即力量。
是的，《最美我中文的打草稿本子》不会再有纸质草稿了。
另外有个提议，哪位能提供能注册绑米的支持curl的免费php空间或者赞助php空间，可以联系我。admin(at)PokeTB.cn
光有有点蛋疼的Delphi版，还那么老长，看着就难受。于是VB版。
Private icount As Integer
Private Sub Command1_Click()
icount = 1
Dim i As Integer
Dim tmpstr() As String
tmpstr() = Split(source.Text, ",")
outputstr = ""
icount = 1
For i = 0 To UBound(tmpstr)
outputstr = outputstr & getchar(tmpstr(i))
Next
End Sub
Function getchar(str As String) As String
Dim ys As String, tmpstr3 As String, getcharrepeat As Integer, countx As Integer
For getcharrepeat = 1 To Len(str)
'debug.Print Asc(Mid(str, getcharrepeat, 1))
If Asc(Mid(str, getcharrepeat, 1)) > 64 Then '是字母
If getcharrepeat <> 1 Then
If ys = "" Then ys = "0"
countx = CInt(icount + CInt(ys))
'debug.Print "countx:" & countx & vbCrLf
tmpstr3 = tmpstr3 & CStr(countx)
'debug.Print tmpstr3
icount = icount + 1
ys = ""
If icount >= 11 Then icount = 1
Else
ys = ""
GoTo csa
End If
Else '不是字母
ys = ys & Mid(str, getcharrepeat, 1)
'debug.Print "ys:" & ys & vbCrLf
End If
csa:
Next
If ys = "" Then ys = "0"
tmpstr3 = tmpstr3 & CStr(CInt(icount + CInt(ys)))
icount = icount + 1
If icount >= 11 Then icount = 1
ys = ""
'debug.Print "tmpstr3:" & tmpstr3 & vbCrLf
getchar = Chr(CInt(tmpstr3))
tmpstr3 = ""
'debug.Print "===============================" & getchar
End Function
以上代码在WindowsXP SP3 With Visual Basic 6.0下调试成功。
编译好版本：DecodeTool (45)
原贴地址：http://poketb.com/bbs/thread-16072-1-1.html
87,65,43,21
ADBCABDABBCAADBCABBBCAADDBDC
1+72+5,3+34+1,5-16-3,7-58-6其中：1+7=8,2+5=7……
A+7D+5,B+3C+1,A-1B-3,D-5A-6
我表示更新pascal源码
program project1;
var
Anerew433,xsk,tmpnum,i,x,tmpint,errorcoden,tmpnum22:integer;
tmpstr2,tmpstr:char;
inputtext:array of char;
mystr,outputstring,linshistr,tmpstring,mytempstr1,mytempstr2,mytmpstr33,inputmystring:string;
begin
mystr:='';
xsk:=0;
tmpstr:=chr(0);
tmpnum:=0;
i:=0;
x:=0;
Anerew433:=1;
readln(inputmystring);
setlength(inputtext,length(inputmystring));
for i:=1 to length(inputmystring) do inputtext[i]:=inputmystring[i];
i:=0;
outputstring:='';
for i:=1 to High(inputtext)+1 do begin
tmpstr:=inputtext[i];
tmpnum:=ord(tmpstr);
str(tmpnum,mytempstr1);
for x:=1 to LENGTH(mytempstr1) do
begin
xsk:=random(3) + 1;
mystr:=chr(64+xsk);
str(tmpnum,tmpstring);
tmpstr2:=tmpstring[x];
if (ord(tmpstr2) >= 48) and (ord(tmpstr2) < = 57) then
begin //tmpint VAL（字符串，数字，错误代码）
val(tmpstr2,tmpint,errorcoden);
tmpnum22:=tmpint-Anerew433;
str(tmpnum22,mytmpstr33);
if tmpint > Anerew433
then
outputstring:=outputstring + mystr + '+' + mytmpstr33
else
if tmpint < Anerew433
then
outputstring:=outputstring+mystr+mytmpstr33
else
if tmpint=Anerew433
then
outputstring:=outputstring+mystr;
end;
Anerew433:=Anerew433+1;
if Anerew433 >= 11 then Anerew433:=1;
end;
if i <> LENGTH(inputtext) then outputstring:=outputstring+',';
end;
writeln(outputstring);
readln;
end.
编译好的pascal版本，构建fpc.exe版本为2.2.4。
此代码在lazarus for noi 0.9.28.2 @ Windows7下编译调试通过。
点此处下载编译好版本：EncyptTool Pascal Version (56)
~~~~~~~~~~~~~~~~~~~~~杯具的人生啊 在北京的金山上 啊～～～～～～～～～～～～～～～
广告：【新华网】：北京的金山上 试听：【新华网】：北京的金山上 试听
歌曲：北京的金山上
歌词：
北京的金山上
光芒照四方
毛主席就是金色的太阳
多么温暖多么慈祥
把我们的农奴心儿照亮
我们迈步走向社会主义的大道上
Private isss As Integer
Dim mystr As String, xsk As Integer, tmpstr As String, tmpstr2 As String, tmpnum As Integer, i As Integer, x As Integer
Private Sub Command1_Click()
' 随机数 = (max - min) * Rnd() + min
mystr = ""
xsk = 0
tmpstr = ""
tmpstr2 = ""
tmpnum = 0
i = 0
x = 0
isss = 1
Text2 = vbNullString
For i = 1 To Len(Text1.Text)
tmpstr = Mid(Text1.Text, i, 1)
tmpnum = Asc(tmpstr)
For x = 1 To Len(CStr(tmpnum))
Randomize
xsk = Int((5 - 1) * Rnd() + 1)
Select Case xsk
Case 1: mystr = "A"
Case 2: mystr = "B"
Case 3: mystr = "C"
Case 4: mystr = "D"
End Select
tmpstr2 = Mid(CStr(tmpnum), x, 1)
'Debug.Print Asc(tmpstr2)
If Asc(tmpstr2) >= 48 And Asc(tmpstr2) < = 57 Then
If CInt(tmpstr2) > isss Then
Text2 = Text2 & mystr & "+" & CStr(CInt(tmpstr2) - isss)
Else
If CInt(tmpstr2) < isss Then
Text2 = Text2 & mystr & CStr(CInt(tmpstr2) - isss)
Else
If CInt(tmpstr2) = isss Then
Text2 = Text2 & mystr
End If
End If
End If
End If
isss = isss + 1
If isss >= 11 Then isss = 1
Next
If i <> Len(Text1.Text) Then Text2 = Text2 & ","
Next
End Sub
C+6C+1,BC-2,C+2D,A-6B-7A-8,A-9DC+6,A-2B-4C-4,C-3A-5,BA-9,B-9DC-1,C-2B-4C+2,B-5D-7B-7,D-1B-6,B+5C+4,AB-1
1.解密卡为考试答题卡2.使用了一次对称性加密3.跟计算机常用的一张码表有关。4.本加密解密使用手工即可完成5.答题卡范例在6楼
