Lại Vấn Đề Chuyển VLX Sang Lsp

[quansla 259]

Hi hi cái đó chính là sự khác nhau giữa bác Tue_NV đầy tên tuổi và em quansla vô danh mà, hì hì, Em đang nuôi hi vọng một ngày được như bác đây. Hì

[Tue_NV 3.912]

Hi hi cái đó chính là sự khác nhau giữa bác Tue_NV đầy tên tuổi và em quansla vô danh mà, hì hì, Em đang nuôi hi vọng một ngày được như bác đây. Hì

Chỉ cần cố gắng, mà cố gắng cũng không đủ, còn phải sáng tạo, vận dụng linh hoạt code, ứng biến với nhiều bài toán khác nhau

Chúc cho bạn sớm đạt hy vọng nhé.

Tue_NV thì chia sẻ nhiều lắm, mà đồ "ém" thì cũng không ít, để đạt được như mình rất dễ, bạn à, cố gắng lên là được.... :lol:

Chúc thành công!

[aliosa 4]

Xin góp một ý nhỏ.

Thực ra viết lisp đến một thời điểm nào đó thì ý tưởng là quan trọng nhất. Có những trường hợp ngồi cả buổi chẳng nghĩ ra cái gì để viết.

Hoặc cũng có trường hợp không nghĩ ra lời giải hay cho vấn đề của mình.

Dịch lisp của "cao thủ" không phải để chép code mà để lấy ý tưởng thôi. Cho nên cũng không hẳn cần chi tiết lắm.

Mà nếu dịch được 100% thì quá tốt...

Vài dòng tâm sự, mong diễn đàn phát triển lớn mạnh để mình học mót thêm chút chút !!!!!!!!!!

[haiduong2105 1]

Quote

http://www.cadviet.com/upfiles/323.exe

Bạn nào còn file này cho minh xin với

[congviet 29]

1 giờ trước, NulledCad đã nói:

Mọi người qua đây nhé. tham khảo thêm decrypt của VisualBasic tìm code mã hóa của Cad . Việc còn lại là đảo mã là ok.

 

Bước 1: Đọc file mã hóa dạng basic

Bước 2: Đảo mã bước 1 => Decryption=> hiệu chỉnh lần 1 =>hiệu chỉnh lần 2 (bao gồm font tùy quốc gia sẽ bị lỗi một số ,v.v.v.)

Bước 3: Ra .lsp => tự tìm hiểu

 

Bước 4: Tìm ra rules = > tạo tools .

Tôi làm mất 1 tuần còn bạn không biết

 

Bước 1 sẽ ra như này nhé: Còn lại Google chỉ bạn

 

https://anonfile.com/61l1f1cen3/EXample_rar

 

 

Một file đã làm thử và rất ok.

https://anonfile.com/Z1W9e1c0n8/BVC-1_rar

 

 

 

 

 

 

Pseudo code for Open a FAS4-FILE

 

Target: Get unencrypted stream data from a fas-file.

 

 

// following tasks are done by a Lisp program stored in the

// vllib.dll!WINDLG as string resource

Func fasFileOpen

openFileStream (FilenametoFasfile)

MainStream = fasStreamRead()

FunctionStream = fasStreamRead()

End Func

 

Func fasStreamRead() String

SkipWhiteSpaceEx

FileSignature = ReadStringUntilWhitespace()

Compare fileSignature with “FAS4-FILE”   ; maybe FAS3-FILE, FAS-FILE,
  FAS2-FILE, #1Y# works too

SkipWhiteSpaceEx

StreamLength= GetLong()

SkipNextChar

 

// following tasks are done by C++ program code stored in

// vl.arx!.text section

SkipWhiteSpace

NumberofStrings = GetLong()

StreamTerminatorChar = SkipWhiteSpace    ; returns first non-whitespacechar

If StreamTerminatorChar =’!’

   StreamTerminatorChar =GetNextChar()

 

Streamdata = Readstring(length:= StreamLength)

 

If getchar()==StreamTerminatorChar

   DecryptStream

 

If getchar()!=StreamTerminatorChar

   “Error InvalidStreamTerminatorChar”

Return (Streamdata)

End Func

 

Proc SkipWhiteSpaceEx

do

tmpchar = getchar()

if tmpchar==’;’ Skip_until_NewLine (0x0a,0x0d)

while Lisp_Charinterpretion_Table[tmpchar]==1 

            ; in the Array Lisp_Charinterpretion_Table all
  whitespaces are marked with 0x01

End Proc

 

Func SkipWhiteSpace() char

do

tmpchar = getchar()

while Lisp_Charinterpretion_Table[tmpchar]==1 

            ; in the Array Lisp_Charinterpretion_Table all
  whitespaces are marked with 0x01

return (tmpchar)

End Func

 

Proc DecryptStream

      KeyLength = Stream.Getbyte()

      If KeyLength == 0

         Exit proc

      If KeyLength =>0x80

         “Error invalid Keylength”

 

      Keydata = Stream.GetString(length:= KeyLength)

 

     Do Until FasDataStream.EOF

       

        If Keydata.EOF Then Keydata.position = 0

 

        KeyNew = Keydata.byte

        value = FasDataStream.byte Xor KeyNew Xor KeyOld

        UnCryptedFasDataStream.addbyte = value

       

        KeyOld = KeyNew

       

     Loop

 

End Proc

 

 

Bạn decompile dùm file này nhé. Cám ơn. 

File không bản quyền.

BDB.rar

[tinhyeu_forever2 3]

Vào lúc 12/4/2019 tại 09:58, Biet ve CAD đã nói:

Lisp in mình viết sau, viết muộn nên nhu cầu người dùng ít, vì họ đã có lisp khác dùng rồi và người dùng ko thích phải trả tiền, free họ mới dùng, bạn có hiểu ý này ko ?

Người khác thì mình không biết như thế nào, nhưng mà với mình thì cái về trước là "Lisp in mình viết sau, viết muộn nên nhu cầu người dùng ít, vì họ đã có lisp khác dùng rồi" có vẻ đúng, còn vế sau thì mình thấy dần dần nó cũng ít chính xác dần. Ngày xưa mình cũng thích chơi game crack với dùng phần mềm lậu. Nhưng mà bây giờ đi làm rồi cũng ít làm thế (vì vẫn dùng lậu phần mềm autocad với mấy phần mềm tính toán kết cấu nước ngoài :">),  cái nào thấy cần thiết vẫn mua mà :D. Xã hội dần dần nó phát triển bạn ah, phải cho nó thời gian.

[Doan Van Ha 3.191]

1 giờ} trướ}c, Biet ve CAD đã nói:

Cái lisp in cỏn con, chính chủ bán còn chả mấy ai mua mà đòi tiền chuộc $150, chỉ cần vài người như nó đòi chuộc nữa thì....cho nó luôn

Tôi có vào khám phá giá và cách PR, thấy giá khá rẻ, có thể bán được bằng đô la của... Zambabwe.

[NTHAHT 83]

Vào lúc 12/4/2019 tại 09:58, Biet ve CAD đã nói:

@NulledCad bạn là người tương đối có danh tiếng trên diễn đàn, sao lại phải cố gắng vùi dập 1 cái lisp in cỏn con của mình là sao, có ý đồ gì chăng ?

Bạn đang chứng tỏ cho mọi người thấy khả năng là có thể giải mã được file lisp để đề cao sản phẩm mình hack được rồi đòi tiền chuộc, hài hước rằng có ai lại bỏ tiền ra mua cái đó ko

Với những công cụ bạn đưa lên mà hack được lisp mã hóa của autodesk thì nhắn tin gửi hãng này ko phải mã hóa làm gì cho mất công

Lisp in mình viết sau, viết muộn nên nhu cầu người dùng ít, vì họ đã có lisp khác dùng rồi và người dùng ko thích phải trả tiền, free họ mới dùng, bạn có hiểu ý này ko ?

Cái lisp nhỏ con này mà bị quan tâm nhiều vậy thì đừng mong có những lisp khác hay hơn nhé

Mình viết lisp là tức thời, đủ dùng cho nhu cầu, nên có bị hack hay ko ko quan trọng, nếu có hack được thì share hẳn lên đây để cho mọi người, chứ đăng bán ko ai mua đâu.

Hình như @Biet ve CAD có sự hoảng loạn. Nếu chỉ dựa vào nickname, ở màu đỏ =) @NulledCadmới tham gia diễn đàn vào hôm thứ 2 (08/4/2019).

[haiduong2105 1]

Một trong những lý do để đạo động lực nghiên cứu, học hỏi...

[tosesox 0]

Vào lúc 13/4/2019 tại 12:48, Doan Van Ha đã nói:

Tôi có vào khám phá giá và cách PR, thấy giá khá rẻ, có thể bán được bằng đô la của... Zambabwe.

Hày, có gì hay thử post xem, Chỉ anh hùng bàn phím :)

 

 

Cũng dùng Cad crack mà mở miệng ra là bản quyền .

 

 

 

 

 

 

[tosesox 0]

2 giờ trước, Biet ve CAD đã nói:

Cũng được đó ^^, viết lisp là tức thời thui đủ dùng cho công việc là chính. Xong mới nảy ra ý định thương mại xem sao. Xong nữa là giải đáp được thắc mắc Fas hay Vlx có dịch ngược được không ( cho nên phải nói rằng lisp ko thể hack để các hacker như bạn tham gia chứ )

Dù sao cũng cám ơn bạn giải đáp thắc mắc đó, và chắc nhiều người cũng cần giải đáp cái này

( bán cả đống lisp đấy mà giá có trăm nghìn là biết rùi đó, gỡ gạc chút công viết rồi trước sau cũng share thui, nhung bị hack hơi sớm ^^)

Đã hack thì hack cho trọn, post hết code lên đây cho mọi người ai cần thì tham khảo luôn, mình tự post cũng ko nỡ ^^

Mình cũng chỉ viết lisp đến đây thôi, ít ra cũng có cái cho mọi người dùng, chứ viết ra mà dùng 1 mình cũng chán

PS: cũng đang chuẩn bị cập nhật thêm mấy cái mới vào lisp và sẽ tự post lên đây luôn cho đủ bộ ^^

 

Đang đợi :) bản free của bạn cho mọi người. Bỏ cái kiểu Setup Install  rườm ra đi 

Show lisp thì không nên, cũng phải có chút gì hay ho tìm kiếm.

Để mọi người phản hồi, góp ý chán chê sau đó quay mặt đem thương mại sao, mã hóa là đủ rồi  ???

 

================****=================

Xin chào và biến mất như chưa từng xuất hiện :D

[quocmanh04tt 634]

Nhìn code đã bung, với người biết lisp thì ... không còn gì để nói nữa.