код-антикод

← →
alexteam (2003-03-04 13:32) [0]

потратил пол часа но тот тупой код сделал правда не совсем (в лом)
но вот

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:array[0..255] of string[4];
I,i1:integer;
s,s1,s2:string;
begin
I:=0;
a[0]:=" "; b[0]:="u00";
a[1]:="

← →
alexteam (2003-03-04 13:39) [1]

к стати i1 переменная тут не к чему а вводить в первый едит
к стати вот что тот урод гнал

r15R14U00R15R26R05U00R15U00R23R29R19R27U00R25R16R29R05U00R19R29R27R19R18R19R22R05R06R06R14R05U00R28R21R28R19R29R14U22U00R03R31R20R28R21R04R28U00R28U00R17R19R21R19R06R04R28U22U00R19R26R19R31R05R06R06R19U00e11e192002U22U00R25R29R19U00R31U00R

r28R07R19R18R30U00r08R05R15R25R05R06R04R19U00r27R03R21R16R04U02U02U02

r06R05R29U00R23R29R19U00R27R19R24U00

r17R19R08R19R20U00R15R19R06U00R19R29R26R32R21R16U00R03R18R19R21U02

r02R05R20R03R01U00R27R19R01U00R10R16R21U02

E02E02E02U21E06E21E09U32E12E10E03E18U21E25E11E04E09E13U21E04E07U00R27R19R01U00R26R16R01R29U02

R31R05R18R33R10R04R16

← →
alexteam (2003-03-04 13:41) [2]

кто встретит етого идиота superyxo передавайте ему привет в левый глаз

← →
SergeN (2003-03-04 13:41) [3]

Какие буковки и циферки красивые!

← →
alexteam (2003-03-04 13:47) [4]

елы палы он же шрифты не поддержывает
procedure TForm1.Button1Click(Sender: TObject); var a,b:array[0..255] of string[4]; I,i1:integer; s,s1,s2:string; begin I:=0; a[0]:=" "; b[0]:="u00"; a[1]:="а"; b[1]:="r16"; a[2]:="б"; b[2]:="r31";; a[3]:="в"; b[3]:="r15"; a[4]:="г"; b[4]:="r07"; a[5]:="д"; b[5]:="r21"; a[6]:="е"; b[6]:="r23"; a[7]:="ё"; b[7]:="r05"; a[8]:="ж"; b[8]:="r22"; a[9]:="з"; b[9]:="r10"; a[10]:="и"; b[10]:="r28"; a[11]:="к"; b[11]:="r04"; a[12]:="л"; b[12]:="r20"; a[13]:="м"; b[13]:="r27"; a[14]:="н"; b[14]:="r06"; a[15]:="о"; b[15]:="r19"; a[16]:="п"; b[16]:="r17"; a[17]:="р"; b[17]:="r18"; a[18]:="с"; b[18]:="r26"; a[19]:="т"; b[19]:="r29"; a[20]:="у"; b[20]:="r03"; a[21]:="ф"; b[21]:=""; a[22]:="х"; b[22]:=""; a[23]:="ц"; b[23]:="r02"; a[24]:="ч"; b[24]:="r25"; a[25]:="ш"; b[25]:="r08"; a[26]:="щ"; b[26]:=""; a[27]:="ь"; b[27]:="r30"; a[28]:="ъ"; b[28]:=""; a[29]:="ы"; b[29]:="r14"; a[30]:=","; b[30]:="u22"; a[31]:="й"; b[31]:="r01"; a[30]:="."; b[30]:="u02"; a[31]:="ю"; b[31]:="r32"; s:=LowerCase(edit1.text); s1:=copy(s,0,3); while length(s)>0 do begin delete(s,1,3); i:=0; while (i<255) do begin if s1=b[i] then begin s2:=s2+a[i]; i:=256; end; inc(i); end; if i=255 then s2:=s2+"$"; s1:=copy(s,0,3); end; edit2.Text:=s2; end;

← →
hatchy (2003-03-04 13:48) [5]

Ввел первый мат
r15R14U00R15R26R05U00R15U00R23R29R19R27U00R25R16R29R05U00R19R29R27R19R18R19R22R05R06R06R14R05U00R28R21R28R19R29R14U22U00R03R31R20R28R21R04R28U00R28U00R17R19R21R19R06R04R28U22U00R19R26R19R31R05R06R06R19U00e11e192002U22U00R25R29R19U00R31U00R
вот перевод:
au an? a aoii ?ao? ioii?i??iiu? eaeiou$ oaeeaee e iiaiiee$ inia?iii $$$$$$$$$$$$
как понимать?

← →
alexteam (2003-03-04 16:07) [6]

у тебя с кодировкой проблемы вот у всех работает а у тя нет ......странно (могут подтвердить игорь шевченко и alex2002)

← →
alexteam (2003-03-04 16:10) [7]

и вообще забейте на енту ветку т.к. нужно было передать код и все
модераторам: удаляйте к ....

код-антикод Найти похожие ветки