![]() |
|
#7
|
|||
|
|||
|
SPX Instant Screen Capture v7.0.0.0
Homepage : http://www.instant-screen-capture.com Download : http://www.instant-screen-capture.com/spxsetup.exe Keygen coded with Delphi 7 - D10 (works) Code:
function GenerateSN: string; const EvenNum : array[0..3] of byte = (2, 4, 6, 8); OddNum : array[0..4] of byte = (1, 3, 5, 7, 9); var FirstNum, SecondNum, ThirdNum, FourNum: byte; SN: string; begin FirstNum := EvenNum[Round(Random * 3)]; SecondNum := EvenNum[Round(Random * 3)]; ThirdNum := OddNum[Round(Random * 4)]; FourNum := (FirstNum + SecondNum + ThirdNum) mod 10; SN := IntToStr(FirstNum) + IntToStr(SecondNum) + IntToStr(ThirdNum) + IntToStr(FourNum); Result := SN; end; Last edited by ontryit; 10-19-2015 at 15:09. Reason: fix code |
| The Following 2 Users Say Thank You to ontryit For This Useful Post: | ||
Black_Legion (10-19-2015), giv (10-19-2015) | ||
|
|