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...
|