AuthorMessage
Meka][Meka
Unstopable
Posts: 700

Code:

//optimal for delphi 7
function DC_Key(const l: string): string;
  //function written by Meka][Meka.
  //an example of creating a superior function in speed...
  //this code may not be used in any other forum or on any otherwebsite without permission.
var
  i   : Integer;
  a   : Byte;
  c,s : String;
begin
  Result := '';
  for i := 2 to Length(l) do
    Insert(Chr(Ord(l[i]) xor Ord(l[i-1])), Result, i-1);
  Insert(Chr(Ord(l[1]) xor Ord(l[Length(l)]) xor Ord(l[Length(l)-1]) xor 5), Result, 1);
  for i := 1 to Length(Result) do begin
    a := Ord(Result[i]);
    Result[i] := Chr(((a shl 4) and 240) or ((a shr 4) and 15));
  end;
  Insert(Copy(Result, 1, Length(Result)), s, 1);
  Result := '';
  for i := 1 to Length(s) do begin
    c := s[i];
    a := Ord(c[1]);
    case a of
      0: c := '/%DCN000%/';
      5: c := '/%DCN005%/';
      36: c := '/%DCN036%/';
      96: c := '/%DCN096%/';
      124: c := '/%DCN124%/';
      126: c := '/%DCN126%/';
    end;
    Insert(c, Result, i);
  end;
end;

Code:

Timer * tmr;
      bool bAdd;
   private: System::Void Form1_Load(System::Object *  sender, System::EventArgs *  e)
          {
             this->bAdd = false;
             this->tmr = new Timer();
             this->tmr->Interval = 100;
             this->tmr->Tick += new System::EventHandler(this, tmr_Tick);
             this->tmr->Start();
          }
   private: System::Void tmr_Tick(System::Object *  sender, System::EventArgs *  e)
          {
            if (bAdd == false){
               this->Opacity -= 0.01;
               if (this->Opacity < 0.01){
                  bAdd = true;
               }
            }
            else
            {
               this->Opacity += 0.01;
               if (this->Opacity > 0.99){
                  bAdd = false;
               }
            }
          }

Code:

Lock2key PROC uses edi esi ebx srcbuf:DWORD,destbuf:DWORD
   mov   esi,srcbuf
   mov   edi,destbuf
   mov   eax,'yeK$'
   stosd
   mov   al,32
   stosb
   lea   esi,[esi+6]
   xor   ecx,ecx
   .while (byte ptr[esi+ecx]!='|')
      .if (dword ptr[esi+ecx]=='=kP ')
         .break
      .endif
      inc   ecx
   .endw
   .if ecx<3
      ret
   .endif
   mov   al,[esi]
   xor   al,5
   mov   ah,al
   shr   ax,4
   and   ax,0ff0h
   or   al,ah
   mov   [edi],al
   xor   edx,edx
   inc   edx
   .while edx<ecx
      mov   al,[esi+edx]
      xor   al,[esi+edx-1]
      mov   ah,al
      shr   ax,4
      and   ax,0ff0h
      or   al,ah
      mov   [edi+edx],al
      inc   edx
   .endw
   mov   al,[edi]
   xor   al,[edi+ecx-1]
   mov   [edi],al
   xor   edx,edx
   .while edx<ecx
      mov   al,[edi+edx]
      mov   [esi+edx],al
      inc   edx
   .endw
   xor   edx,edx
   .while edx<ecx
      lodsb
      .if al==0
         mov   eax,'CD%/'
         stosd
         mov   eax,'000N'
         stosd
         mov   ax,'/%'
         stosw
      .elseif al==5
         mov   eax,'CD%/'
         stosd
         mov   eax,'500N'
         stosd
         mov   ax,'/%'
         stosw
      .elseif al==36
         mov   eax,'CD%/'
         stosd
         mov   eax,'630N'
         stosd
         mov   ax,'/%'
         stosw
      .elseif al==96
         mov   eax,'CD%/'
         stosd
         mov   eax,'690N'
         stosd
         mov   ax,'/%'
         stosw
      .elseif al==124
         mov   eax,'CD%/'
         stosd
         mov   eax,'421N'
         stosd
         mov   ax,'/%'
         stosw
      .elseif al==126
         mov   eax,'CD%/'
         stosd
         mov   eax,'621N'
         stosd
         mov   ax,'/%'
         stosw
      .else
         stosb
      .endif
      inc   edx
   .endw
   ret
Lock2Key ENDP

just testing...
Devdas
Clone
Posts: 1

test