WinLicense v3.1.3.0 x64 (Bypass Without Unpacking)

procedure TForm1.FormCreate(Sender: TObject);

var
  Image1: Timage;
  Button1: TButton;

  Status, ExtStatus: Integer;
  RegName: ARRAY [0 .. 255] of AnsiChar;
  CompanyName: ARRAY [0 .. 255] of AnsiChar;
  CustomData: ARRAY [0 .. 255] of AnsiChar;
  TrialDate: SYSTEMTIME;
  mm, nn: string;
begin
  Position := poScreenCenter;
  VM_PUMA_RED_START();
  Randomize();
  v1 := random(word.MaxValue);
  v2 := random(word.MaxValue);
  CheckDebugger(v1, v2);
  Debugger := (v1 <> v2);
  v1 := random(word.MaxValue);
  v2 := random(word.MaxValue);
  CheckVirtualPC(v1, v2);
  VirtualPC := (v1 <> v2);
  v1 := random(word.MaxValue);
  v2 := random(word.MaxValue);
  CheckProtection(v1, v2);
  Protection := (v1 <> v2);
  VM_PUMA_RED_END();
  VM_PUMA_BLACK_START();
  StrEncryptWStart();
  Form1.Caption := 'ByPassMe';
  StrEncryptWEnd();
  Form1.Color := $7F7F7F;

  Form1.TransparentColor := true;
  Form1.TransparentColorValue := $7F7F7F;
  Form1.Width := 360;
  Form1.Height := 156;
  Form1.BorderStyle := bsNone;

  Image1 := Timage.Create(self);
  Image1.Parent := Form1;
  Image1.Left := 0;
  Image1.Top := 0;
  Image1.Width := 365;
  Image1.Height := 156;

  PNG_Img_Create(Image1);
  Image1.OnMouseDown := FormMouseDown;
  Button1 := TButton.Create(self);
  Button1.Parent := Form1;
  StrEncryptWStart();
  Button1.Caption := 'X';
  StrEncryptWEnd();
  Button1.Left := 330;
  Button1.Top := 32;
  Button1.Height := 25;
  Button1.Width := 25;
  Button1.OnClick := Button1Click;
  VM_PUMA_BLACK_END();
  VM_SHARK_WHITE_START();
  StrEncryptWStart();
  if Debugger then
    showmessage('Debugger!');
  StrEncryptWEnd();
  VM_SHARK_WHITE_END();

  VM_SHARK_RED_START;
  if Debugger then
    SendMessage(self.Handle, WM_CLOSE_MESSAGE, 0, 0);
  VM_SHARK_RED_END;
  VM_SHARK_BLACK_START;
  if VirtualPC then
    SendMessage(self.Handle, WM_CLOSE_MESSAGE, 0, 0);
  VM_SHARK_BLACK_END;
  VM_DOLPHIN_WHITE_START;
  if Protection then
    SendMessage(self.Handle, WM_CLOSE_MESSAGE, 0, 0);
  VM_DOLPHIN_WHITE_END;
  Status := WLRegGetStatus(ExtStatus);
  StrEncryptWStart();
  case Status of

    0:
      Caption := 'Invalid Trial';
    1:
      Caption := 'Registered';
    2:
      Caption := 'Invalid License';
    3:
      Caption := 'License Locked to different machine';
    4:
      Caption := 'No more HW-ID changes allowed';
    5:
      Caption := 'License Key expired';

  end;
  StrEncryptWEnd();
  VM_LION_WHITE_START();

  TrialDate.wYear := 0;
  TrialDate.wMonth := 0;
  TrialDate.wDay := 0;
  TrialDate.wSecond := 0;
  TrialDate.wDayOfWeek := 0;
  TrialDate.wHour := 0;
  TrialDate.wMinute := 0;
  TrialDate.wSecond := 0;
  TrialDate.wMilliseconds := 0;
  VM_LION_WHITE_END();
  VM_DOLPHIN_RED_START();
  mm := '';
  nn := '';
  if Status <> 1 then
  begin

    // set Invalid trial
    StrEncryptWStart();
    nn := nn + 'DaysLeft : ' + IntToStr(WLTrialDaysLeft()) + #13#10;
    nn := nn + 'ExecLeft : ' + IntToStr(WLTrialExecutionsLeft()) + #13#10;
    nn := nn + 'MinutesLeft : ' + IntToStr(WLTrialGlobalTimeLeft()) + #13#10;
    nn := nn + 'RuntimeLeft : ' + IntToStr(WLTrialRuntimeLeft()) + #13#10;

    WLTrialExpirationDate(TrialDate);
    nn := nn + 'ExpDatePicker ' + DateToStr(SystemTimeToDateTime(TrialDate)
      ) + #13#10;
    StrEncryptWEnd();

    if WLIsProtected = true then
      C2days.Create();

  end
  else
  begin
    StrEncryptWStart();
    WLRegGetLicenseInfo(RegName, CompanyName, CustomData);
    mm := mm + 'RegName : ' + RegName + #13#10;
    mm := mm + 'CompanyName : ' + CompanyName + #13#10;
    mm := mm + 'Custom : ' + CustomData + #13#10;
    mm := mm + 'RegDaysLeft : ' + IntToStr(WLRegDaysLeft()) + #13#10;
    mm := mm + 'RegExecLeft : ' + IntToStr(WLRegExecutionsLeft()) + #13#10;

    WLRegExpirationDate(TrialDate);
    mm := mm + 'RegDateTime : ' + DateToStr(SystemTimeToDateTime(TrialDate)
      ) + #13#10;
    StrEncryptWEnd();
  end;
  VM_DOLPHIN_RED_END();
  VM_LION_BLACK_START();
  if Length(mm) > 1 then
    MessageBox(Handle, PWideChar(mm), PWideChar(Form1.Text),
      MB_ICONINFORMATION or MB_OK);
  if Length(nn) > 1 then
    MessageBox(Handle, PWideChar(nn), PWideChar(Form1.Text),
      MB_ICONSTOP or MB_OK);
  VM_LION_BLACK_END();

  if WLIsProtected = false then
    C2days.Create();

end;

procedure PNG_Img_Create(var img: Timage);
const
  CONST_SIGN = '0954506E67496D616765';
var
  LString: String;
  LStart: Integer;
  LStringStream: TStringStream;
  LMem: TMemoryStream;
  R: TBytes;
  imp: Tpngimage;
begin
  VMStart();
  v1 := random(word.MaxValue);
  v2 := random(word.MaxValue);
  CheckProtection(v1, v2);
  if ((v1 = v2) and (WLIsProtected = true)) then
    LString := setstring_base64_PNG()//good boy
  else
    LString := Patch_setstring_base64_PNG();//bad boy
  LStart := Pos(CONST_SIGN, LString);
  if LStart = 0 then
    Exit;
  Delete(LString, LStart, Length(CONST_SIGN));
  LStringStream := TStringStream.Create(LString);
  LMem := TMemoryStream.Create;
  try
    SetLength(R, Length(LString) div SizeOf(Char));
    HexToBin(PWideChar(LString), R, Length(LString) div SizeOf(Char));
    LMem.WriteBuffer(R[0], Length(R));
    imp := Tpngimage.Create;
    LMem.Position := 0;
    imp.LoadFromStream(LMem);
    img.Picture.Assign(imp);
  finally
    LStringStream.Free;
    LMem.Free;
    imp.Free;
  end;
  VMEnd();
end;

ByPassMe.rar