- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
function td1(text: string):string;
const cifr: string =
'1234567890';
english: string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm';
var
count, i, a, b, h, ss:integer;
special:string;
errform:TForm;
begin
try
application.ProcessMessages;
special:='';
count:=length(text);
if count < 210 then
begin
errform:=CreateMessageDialog('Неверный тип кода.',mtError,[mbOK]);
errform.ShowModal;
exit;
end;
for a:=1 to count do begin
for i:=1 to count do begin
for h:=1 to length(english) do begin
for b:=1 to length(cifr) do begin
application.ProcessMessages;
if cifr[b]=text[a] then
begin
ss:=ss+(count+length(cifr))+12;
end;
if cifr[i]=text[a] then
begin
ss:=ss+14;
end;
if cifr[a]=text[b] then
begin
ss:=ss+(count+length(english))+b+a;
end;
//***********************
if english[b]=text[a] then
begin
ss:=ss*7+(count+length(cifr))+a+b;
end;
if english[i]=text[a] then
begin
ss:=ss+(count*4+length(english)++length(cifr))+i+a-12;
end;
if english[a]=text[b] then
begin
ss:=ss+(count*7+length(english))+a+b+14;
end;
end;
end;
end;
special:=special+inttostr(ss);
end;
result:=special;
except
end;
end;
При просмотре данного говнокода будьте осторожны пжл. Прсомтор может вызвать ФГМ (Фимоз Головного Мозга)
ganja_boy 11.06.2010 07:40 # −1
bugmenot 15.06.2010 19:35 # 0
guest 15.06.2010 22:09 # +1
Откуда такой синтаксис 2х плюсов? Не под С++ ли косит?