Re: hasło płatnika

Article View: pl.comp.lang.delphi

Article #345802

Back to pl.comp.lang.delphi Previous Next

#345802

From: konsul41
Date: Thu, 11 May 2017 09:37

64 lines
2185 bytes

Czy dobrze je przerabiam

void swap(char in[],int a) {
   int j=0,i,s;
   char temp;

   for (s=0;s<16;s=(++j)*2*a){
     for (i=0;i<a;i++) {
       temp=in[i+s];
       in[i+s]=in[i+s+a];
       in[i+s+a]=temp;
     }
   }
}

procedure swap(var ain : String; a : Integer);
var j,i,s : Integer;
     temp  : Char;
begin
   j:=0;
   s:=0;
   while s<16 do
   begin
     for i := 0 to a do
     begin
       temp:=ain[i+s];
       ain[i+s]:=ain[i+s+a];
       ain[i+s+a]:=temp;
     end;
     inc(j);
     s:= j*2*a;
   end;
end;







int find(char x[] ,char y) {
   int i;
   for (i=0;i<(int)strlen(x);i++) if (x[i]==y) return i;
   return -1;
}


function find(x : String; y : Char):integer;
var i : integer;
begin
   for i := 0 to Length(x) do
   begin
     if (x[i]=y)then
     begin
       result:=i;
       break;
     end else result := -1;
   end;
end;


---
Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie antywirusowe Avast.
https://www.avast.com/antivirus

Technical Details

Message-ID: <of1bco$sud$1@portraits.wsisiz.edu.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin1!goblin.stu.neva.ru!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!wsisiz.edu.pl!.POSTED.jue163.internetdsl.tpnet.pl!not-for-mail

References: <oertsp$1rt$1@portraits.wsisiz.edu.pl> <of12gp$9vq$1@portraits.wsisiz.edu.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin1!goblin.stu.neva.ru!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!wsisiz.edu.pl!.POSTED.jue163.internetdsl.tpnet.pl!not-for-mail
From: "konsul41@wp.pl" <konsul41@wp.pl>
Newsgroups: pl.comp.lang.delphi
Subject: Re: hasło płatnika
Date: Thu, 11 May 2017 11:37:30 +0200
Organization: http://www.wit.edu.pl
Message-ID: <of1bco$sud$1@portraits.wsisiz.edu.pl>
References: <oertsp$1rt$1@portraits.wsisiz.edu.pl> <of12gp$9vq$1@portraits.wsisiz.edu.pl>
Mime-Version: 1.0
Injection-Date: Thu, 11 May 2017 09:37:28 -0000 (UTC)
Injection-Info: portraits.wsisiz.edu.pl; posting-host="jue163.internetdsl.tpnet.pl:95.48.160.163"; logging-data="29645"; mail-complaints-to="abuse@wsisiz.edu.pl"
User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:45.0) Gecko/20100101 Thunderbird/45.8.0
In-Reply-To: <of12gp$9vq$1@portraits.wsisiz.edu.pl>
X-Antivirus: Avast (VPS 170510-2, 2017-05-10), Outbound message
X-Antivirus-Status: Clean
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message