Desktop & Văn phòng FastStone Capture 9.0 Full Key | Phần Mềm Chụp – Quay Màn Hình Siêu Nhẹ!

[JohnWick8x]

tuyệt vời. cảm ơn bạn nhiều

 

[tuanjohnwick97]

Em xin thuốc mới với ạ em đang dùng bản 9.4 mới nhất xài account thuốc của bác không đc ?

 

[@sec0]

Em xin thuốc mới với ạ em đang dùng bản 9.4 mới nhất xài account thuốc của bác không đc ?

 

[thientruc]

Cái này so với Bandicam thì sao nhỉ?

 

[mrTata]

Cái này so với Bandicam thì sao nhỉ?

nhẹ và nhiều tính năng hơn

 

[Lê Bò]

code k3yg3n trọn gói viết bằng Delphi

Nội dung Ẩn

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls, ClipBrd;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edName: TEdit;
    edSerial: TEdit;
    btnGen: TButton;
    XPManifest1: TXPManifest;
    btnCopy: TButton;
    btnCopy2: TButton;
    Label3: TLabel;
    cbType: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure btnGenClick(Sender: TObject);
    procedure btnCopyClick(Sender: TObject);
    procedure btnCopy2Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses
  DCPsha1, DCPblowfish, DCPsha512, DCPidea;
function MakeKey(input: String; progIndex: integer): String;
var
  s: String;
  name: String;
  head: String;
  serial: String;
  blowfish: TDCP_blowfish;
  idea: TDCP_idea;
  i, n: Integer;
  salt: String;
function TronXau(a, b: String): String;
var
  s: String;
  i, j, m, n, l, k: integer;
begin
  s := '';
  m := length(a);
  n := length(b);
  l := m + n;
  i := 1;
  j := 1;
  k := 1;
  while k <= l do
  begin
    if i <= m then
    begin
      s := s + a[i];
      i := i + 1;
      k := k + 1;
    end;
    if j <= n then
    begin
      s := s + b[j];
      j := j + 1;
      k := k + 1;
    end;
  end;
  Result := s;
end;
function SinhXau: String;
var
  s: String;
  i: integer;
begin
  //ky tu thu 1 3 5 7 la ky tu ngau nhien
  s := 'ABCDEFGH';
  i := random(ord('Z') - ord('A') + 1);
  s[1] := chr(ord('A') + i);
  i := random(26);
  s[3] := chr(ord('A') + i);
  i := random(26);
  s[5] := chr(ord('A') + i);
  i := random(26);
  s[7] := chr(ord('A') + i);
  i := random(ord('Z') - ord('O') + 1);
  s[2] := chr(ord('O') + i);
  i := random(ord('Z') - ord('M') + 1);
  s[4] := chr(ord('M') + i);
  i := random(ord('Z') - ord('I') + 1);
  s[6] := chr(ord('I') + i);
  i := random(ord('Z') - ord('D') + 1);
  s[8] := chr(ord('D') + i);
  if (s[4] = 'M') and (s[8] = 'D') and (s[6] = 'I') and (s[2] = 'O') then
  begin
    s[2] := 'P';
  end;
  Result := s;
end;
function ChonXau(a: String; len: Integer): String;
var
  s: String;
  i, n, pos: Integer;
begin
  n := length(a);
  s := '';
  pos := 0;
  for i := 1 to n do
  begin
    if (a[i] <= 'Z') and (a[i] >= 'A') then
    begin
      s := s + a[i];
      pos := pos + 1;
      if pos = len then
      begin
        break;
      end;
    end;
  end;
  Result := s;
end;
begin
  //68386 max view
  //96332
  //98332
  case progIndex of
  0:
    salt := '96338';
  1:
    salt := '96332';
  2:
    salt := '68386';
  3:
    salt := '98332';
  end;
  head := SinhXau;
  serial := head;
  s := Concat('me4T6cBLV', head, 'CpCwxrvCJZ30pKLu8Svxjhnhut437glCpofVssnFeBh2G0ekUq4VcxFintMix52vL0iJNbdtWqHPyeumkDUC+4AaoSX+xpl56Esonk4=');
  blowfish := TDCP_blowfish.Create(nil);
  idea := TDCP_idea.Create(nil);
  blowfish.InitStr(s, TDCP_sha1);
  name := input;
  name := Uppercase(name);
  s := Concat(head, salt, TronXau(name, head));
  idea.InitStr(s, TDCP_sha512);
  s := TronXau(name, head);
  s := blowfish.EncryptString(s);
  s := idea.EncryptString(s);
  s := ChonXau(s, 8);
  serial := serial + s;
  blowfish.InitStr('09232849248398340903834873297239340547237623242043324398489390309284343843223493299435', TDCP_sha512);
  s := Concat(head, salt, TronXau(name, head));
  idea.InitStr(s, TDCP_sha1);
  n := ord(head[1]) - $32;
  for i:= 1 to n + 1 do
  begin
    s := idea.EncryptString(TronXau(name, head));
  end;
  s := blowfish.EncryptString(s);
  serial := serial + ChonXau(s, 4);
  Insert('-', serial, 6);
  Insert('-', serial, 12);
  Insert('-', serial, 18);
  Result := serial;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
  key: String;
begin
  Randomize;
  cbType.Items.Add('FastStone Capture 9.0');
  cbType.Items.Add('FastStone Image Viewer 7.2');
  cbType.Items.Add('FastStone MaxView 3.3');
  cbType.Items.Add('FastStone Photo Resizer 4.3');
  cbType.ItemIndex := 0;
  key := MakeKey(edName.Text, 0);
  edSerial.Text := key;
end;

procedure TForm1.btnGenClick(Sender: TObject);
var
  key: String;
  name: String;
begin
  name := edName.Text;
  name := Trim(name);
  if length(name) < 5 then
  begin
    ShowMessage('Name greater than 5 characters');
    Exit;
  end;
  key := MakeKey(name, cbType.ItemIndex);
  edSerial.Text := key;
end;

procedure TForm1.btnCopyClick(Sender: TObject);
begin
  ClipBoard.AsText := edName.Text;
end;

procedure TForm1.btnCopy2Click(Sender: TObject);
begin
  ClipBoard.AsText := edSerial.Text;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, $F012, 0);
  end;
end;

end.

Mã nguồn full

Nội dung Ẩn

https://drive.google.com/open?id=1m5_CaDhj8iqMd-mwvtS036LWu8sSlVPk

Google báo có virus và chỉ cho chủ nhân tải. Thím nén lại rồi reupload đi thím

 

[Hamano Kaito]

What's new in FastStone Capture 9.5​

May 19, 2021

• Translated user interface into 12 languages including Bulgarian, Simplified Chinese, Traditional Chinese, Czech, Dutch, French, German, Japanese, Korean, Polish, Russian and Ukrainian
• Improved reliability and performance of "Capture Scrolling Window"
• Enhanced "Fill with Color" in Draw tool. Now you can select a screen color by right-clicking
• Enhanced Screen Color Picker

Enhanced Screen Recorder:

• Auto detect and switch to active speaker when recording speaker
• Added confirmation window when discarding current recording
• Fixed a bug that fails to start recording on external monitors
• Fixed a bug that fails to cut videos
• Improved support for 4K monitors
• Other minor improvements and bug fixes

 

[Le Khiem]

*** Hidden text: cannot be quoted. ***

cám ơn bạn nhiều

 

[doilathe3112]

Cảm ơn bạn

 

[Hamano Kaito]

FastStone Capture Version 9.8 (December 22, 2022)

Enhanced Draw tool Zoom In / Out in Draw tool from 1% to 5000% Double click on an emoji image to popup the emoji list Enhanced Custom Scroll Mode of Capture Scrolling Window. Now you can capture any part of a scrolling window even without a vertical scroll bar Added option "If draw objects exist, auto-save a copy in FSC format for re-editing" to Settings -> Editor Added Save As (Alt+S) command to Editor The Save (Ctrl+S) command in Editor only prompts for a file name when necessary (i.e. the image does not have a file name) The Save All (Ctrl+Shift+S) command in Editor only asks for confirmation once to save all the files automatically In Editor, added Statistics command to the right click menu on selections. This command calculates the total number of pixels and unique colors within the selected area In Resize tool, added shortcuts for 25% (Ctrl+1), 50% (Ctrl+2), 75% (Ctrl+3) and 200% (Ctrl+4) Enhanced Screen Ruler Added Protractor Screen Ruler can be used in Editor mode and Draw mode by pressing Ctrl+Shift+R When capturing a rectangular or freehand region, press Ctrl+Z to re-select or undo previous step. In Editor, press Ctrl+Z to undo previous step in "Freehand 2" selection mode Added Auto Date Time Stamp to the list of Output Options. In Editor, you can add a date time stamp to the image by pressing J key Most icons on capture toolbar are customizable (on/off) in Settings -> Toolbar Enhanced Screen Recorder: When recording full screen, the yellow control bar is always visible but not recorded in the video Used icons instead of a drop-down list for selecting audio inputs (microphone and speaker) Added a popup menu to the Edit button to Open / Open Last File Location / Play Last File Many other minor improvements and bug fixes

 

[PhuocNGO]

cám ơn bạn nhiều

 

[PhuocNGO]

FastStone Capture Version 9.8 (December 22, 2022)

Enhanced Draw tool Zoom In / Out in Draw tool from 1% to 5000% Double click on an emoji image to popup the emoji list Enhanced Custom Scroll Mode of Capture Scrolling Window. Now you can capture any part of a scrolling window even without a vertical scroll bar Added option "If draw objects exist, auto-save a copy in FSC format for re-editing" to Settings -> Editor Added Save As (Alt+S) command to Editor The Save (Ctrl+S) command in Editor only prompts for a file name when necessary (i.e. the image does not have a file name) The Save All (Ctrl+Shift+S) command in Editor only asks for confirmation once to save all the files automatically In Editor, added Statistics command to the right click menu on selections. This command calculates the total number of pixels and unique colors within the selected area In Resize tool, added shortcuts for 25% (Ctrl+1), 50% (Ctrl+2), 75% (Ctrl+3) and 200% (Ctrl+4) Enhanced Screen Ruler Added Protractor Screen Ruler can be used in Editor mode and Draw mode by pressing Ctrl+Shift+R When capturing a rectangular or freehand region, press Ctrl+Z to re-select or undo previous step. In Editor, press Ctrl+Z to undo previous step in "Freehand 2" selection mode Added Auto Date Time Stamp to the list of Output Options. In Editor, you can add a date time stamp to the image by pressing J key Most icons on capture toolbar are customizable (on/off) in Settings -> Toolbar Enhanced Screen Recorder: When recording full screen, the yellow control bar is always visible but not recorded in the video Used icons instead of a drop-down list for selecting audio inputs (microphone and speaker) Added a popup menu to the Edit button to Open / Open Last File Location / Play Last File Many other minor improvements and bug fixes

User Name: Administrator
Registration Code: AXIQS-RCMRV-KCIFM-HCMFV dùng dc cho bản mới nhất đúng ko bạn ?

 

[tvthoi1984]

User Name: Administrator
Registration Code: AXIQS-RCMRV-KCIFM-HCMFV dùng dc cho bản mới nhất đúng ko bạn ?

Không được.
Ban dùng cái ở đây nè: ĐÂY

 

[n2t4r]

mọi người cho mình hỏi có k€y g€n cho bản 9.9 không vậy?