🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #345801

Re: hasło płatnika

#345801
From: konsul41
Date: Thu, 11 May 2017 07:06
33 lines
1829 bytes
W dniu 09-05-2017 o 10:16, konsul41@wp.pl pisze:
> Czy ktoś już dekodował hasło płatnika w delphi?
>
> https://platnik.fork.pl//index.php
> tutaj jest skrypt w perlu ale Ja z perla noga.
> Może ktoś ma i chciałby się podzielić.
>
>
> ---
> Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie
> antywirusowe Avast.
> https://www.avast.com/antivirus
>
Jak to przepisać na Delphi
JavaScript
function swap(keys,index,a)
{
   var arr,i,s,tmp;
   arr=keys[index].split('');
   for (s=0;s<16;s+=a<<1)
     for (i=s+a;i-->s;)
     {
       tmp=arr[i];
	  arr[i]=arr[i+a];
	  arr[i+a]=tmp;
	}
   keys[index]=arr.join('');
}


---
Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie antywirusowe Avast.
https://www.avast.com/antivirus
Technical Details
Message-ID: <of12gp$9vq$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!wsisiz.edu.pl!.POSTED.jue163.internetdsl.tpnet.pl!not-for-mail
References: <oertsp$1rt$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!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 09:06:03 +0200
Organization: http://www.wit.edu.pl
Message-ID: <of12gp$9vq$1@portraits.wsisiz.edu.pl>
References: <oertsp$1rt$1@portraits.wsisiz.edu.pl>
Mime-Version: 1.0
Injection-Date: Thu, 11 May 2017 07:06:01 -0000 (UTC)
Injection-Info: portraits.wsisiz.edu.pl; posting-host="jue163.internetdsl.tpnet.pl:95.48.160.163"; logging-data="10234"; 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: <oertsp$1rt$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