Sub CATMain()
Dim Input As String
Input = "本保"
Input = InputBox ("Please enter your last name.","Enter Last Name",Input)
End Sub
CATIAのマクロで本保雅基地外と入力するボックスを表示させてみたWWW
1枚の画像からアニメを作れる動画生成AIアプリ「Animai」をStable Diffusion開発元が公開したので使ってみた
CATIA V5 Macro Programming with Visual Basic Script
という本に書かれてある通りに打ち込んでみたらエラーとなった。
コンパイルエラー。ステートメントが不正・・・だとよ。
Dim MyPart As Part
Set MyPart = CATIA.ActiveDocument.Part
Dim Wzk3D As HybridShapeFactory
Set Wzk3D = MyPart.HybridShapeFactory
Dim HBody As HybridBody
Set HBody = MyPart.HybridBodies.Item ("Join")
Dim F1, F2, F3, As AnyObject
Set F1 = HBody.HybridShapes.Item("Extrude.1")
Set F2 = HBody.HybridShapes.Item("Extrude.2")
Set F3 = HBody.HybridShapes.Item("Extrude.3")
Dim Ref1, Ref2, Ref3 As Reference
Set Ref1 = MyPart.CreateReferenceFromObject (F1)
Set Ref2 = MyPart.CreateReferenceFromObject (F2)
Set Ref3 = MyPart.CreateReferenceFromObject (F3)
Dim myJoin As HybridShapeAssemble
Set myJoin = Wzk3D.AddNewJoin (Ref1, Ref2)
Hbody.AppendHybridShape myJoin
MyPart.Update
Set MyPart = CATIA.ActiveDocument.Part
Dim Wzk3D As HybridShapeFactory
Set Wzk3D = MyPart.HybridShapeFactory
Dim HBody As HybridBody
Set HBody = MyPart.HybridBodies.Item ("Join")
Dim F1, F2, F3, As AnyObject
Set F1 = HBody.HybridShapes.Item("
Set F2 = HBody.HybridShapes.Item("
Set F3 = HBody.HybridShapes.Item("
Dim Ref1, Ref2, Ref3 As Reference
Set Ref1 = MyPart.
Set Ref2 = MyPart.
Set Ref3 = MyPart.
Dim myJoin As HybridShapeAssemble
Set myJoin = Wzk3D.AddNewJoin (Ref1, Ref2)
Hbody.AppendHybridShape myJoin
MyPart.Update
アマゾンのkindleで12000円で買った。
バカ害人めが！デタラメばっか書きやがって。
P.S.
ChatGPTでは次のように修正すれば良いとのこと。
本当か？
このVBAコードの場合、コンパイルエラーが発生する原因としては、宣言された変数の型が不正確であることが考えられます。
具体的には、F1、F2、F3、およびAsの変数がAs AnyObjectと宣言されていますが、これらの変数にはそれぞれ特定のHybridShapeオブジェクトが割り当てられることが期待されます。そのため、これらの変数はHybridShape型として宣言する必要があります。
以下は修正されたコードです：
Dim MyPart As Part
Set MyPart = CATIA.ActiveDocument.Part
Dim Wzk3D As HybridShapeFactory
Set Wzk3D = MyPart.HybridShapeFactory
Dim HBody As HybridBody
Set HBody = MyPart.HybridBodies.Item("Join")
Dim F1 As HybridShape, F2 As HybridShape, F3 As HybridShape
Dim Ref1 As Reference, Ref2 As Reference, Ref3 As Reference
Set F1 = HBody.HybridShapes.Item("Extrude.1")
Set F2 = HBody.HybridShapes.Item("Extrude.2")
Set F3 = HBody.HybridShapes.Item("Extrude.3")
Set Ref1 = MyPart.CreateReferenceFromObject(F1)
Set Ref2 = MyPart.CreateReferenceFromObject(F2)
Set Ref3 = MyPart.CreateReferenceFromObject(F3)
Dim myJoin As HybridShapeAssemble
Set myJoin = Wzk3D.AddNewJoin(Ref1, Ref2)
HBody.AppendHybridShape myJoin
MyPart.Update
変数の型を修正することで、コンパイルエラーが解決されるはずです。
コンペ形式でフリーランスにコード修正を依頼するサイトまたは会社の運営。
作りたいソフトをChatGPTを使ってコードを書かせ、エラー修正のみを依頼する。
ソフトのマーケティングなども外注にする。
ではコンペ形式のデメリットについて
｢コンペ形式の案件のメリットは、報酬が高い案件が多いことです。
なぜかというと、依頼者はひとつの制作物のみの支払いで済むため、高めの報酬に設定しているからです。
また、クラウドソーシング内にはコンペ形式の案件が多く、報酬が低いと応募数が少なくなります。
なので、コンペ形式の案件は、報酬が高い案件が多いのです。｣
などと書いているが、これはウソだと思われる。
では、たまにコンペ形式でCADの案件の募集があるが、単価が安いくせに求めているスキルが高く、誰でも応募できるわけでもない。しかも審査制である。
これから先、定年退職者が激増し、職にありつけない者が多数出てくると思われる。
転職回数が多い者、中高年は転職や定年退職後の就職活動に苦労する。ほとんど絶望的とも言える状況である。
そういう者達にターゲットを絞り、プログラミングの独習を薦めてコンペ形式でフリーランスの仕事のオファーを出せば応募が多数集まるはずである。
実際、プログラミング案件では｢無料でもいいから実務経験を積みたい、実績を作りたいからやらせて欲しい｣と藁にもすがる感じでワラワラと寄ってくるようだ。
//
// Headers
// ram:00400000-ram:004003ff
//
assume DF = 0x0 (Default)
IMAGE_DOS_HEADER_00400000 XREF[6]: 0040011c(*),
FUN_00401885:0040195d(*),
FUN_00403f05:00403f1d(*),
FUN_00403f05:00403f32(*),
FUN_00403f67:00403f7f(*),
FUN_00403f67:00403f94(*)
00400000 4d 5a 90 IMAGE_DO
00 03 00
00 00 04
00400000 4d 5a char[2] "MZ" e_magic XREF[6]: 0040011c(*),
FUN_00401885:0040195d(*),
FUN_00403f05:00403f1d(*),
FUN_00403f05:00403f32(*),
FUN_00403f67:00403f7f(*),
FUN_00403f67:00403f94(*)
00400000 [0] 'M', 'Z'
00400002 90 00 dw 90h e_cblp Bytes of last page
00400004 03 00 dw 3h e_cp Pages in file
00400006 00 00 dw 0h e_crlc Relocations
00400008 04 00 dw 4h e_cparhdr Size of header in
0040000a 00 00 dw 0h e_minalloc Minimum extra para
0040000c ff ff dw FFFFh e_maxalloc Maximum extra para
0040000e 00 00 dw 0h e_ss Initial (relative)
00400010 b8 00 dw B8h e_sp Initial SP value
00400012 00 00 dw 0h e_csum Checksum
00400014 00 00 dw 0h e_ip Initial IP value
00400016 00 00 dw 0h e_cs Initial (relative)
00400018 40 00 dw 40h e_lfarlc File address of re
0040001a 00 00 dw 0h e_ovno Overlay number
0040001c 00 00 00 00 00 dw[4] e_res[4] Reserved words
00 00 00
00400024 00 00 dw 0h e_oemid OEM identifier (fo
00400026 00 00 dw 0h e_oeminfo OEM information; e
00400028 00 00 00 00 00 dw[10] e_res2[10] Reserved words
00 00 00 00 00
00 00 00 00 00
0040003c e8 00 00 00 ddw E8h e_lfanew File address of ne
00400040 0e 1f ba 0e 00 db[64] e_program Actual DOS program
b4 09 cd 21 b8
01 4c cd 21 54
俺としては
1.ソフトウェア開発を自動化できるGitHub Copilot X
2.ChatGPTでインテリアデザインを出力
3.UnityとChatGPTを利用し、3Dモデルを生成するプラグイン
を推したい。
他にはこんなサイトもある。
このサイトでは、俺が長年思っていた疑問に対する答えを出している。
A.ログイン画面
B.パスワード判定
C.パスワードNG
D.パスワードOK
頭の悪いクラッカーはブルートフォースアタックで強行突破を試みようとするから、ABCのループを繰り返して通報されてしまうか、膨大な時間を浪費する徒労に終わってしまう。
あっけなくソフトがクラックされたり、ホームページが改竄されたりしているのを目の当たりにすると、Bをすっ飛ばしてAからいきなりDに行く方法があるのではないか？
と考えていた。
実はその方法がいくつか存在し、その内の一つが
に書かれていた。
まさしくA→DのようにBをすっ飛ばして直でDに行ける方法だ。
つまりログイン画面でパスワードを入力することなく、いきなりDに行けてしまう方法だ。
こちらがクラックしようとしている所ｗｗｗ
拡大写真
ソースコード
import numpy as np
import matplotlib.pyplot as plt
if __name__ == '__main__':
# 正弦波のデータ作成
f = 100
rate = 44100
T = np.arange(0, 0.01, 1 / rate)
s = []
for t in T:
v = np.sin(2 * np.pi * f * t)
s.append(v)
plt.plot(T, s)
plt.xlabel('Time')
plt.ylabel('Gain')
plt.show()
# フーリエ変換
fft_data = np.abs(np.fft.rfft(s))
freqList = np.fft.rfftfreq(len(s), 1.0 / rate) # 横軸
plt.loglog(freqList, 10 * np.log(fft_data))
plt.xlabel('Frequency')
plt.ylabel('Power')
plt.show()
# 逆フーリエ変換
r = np.fft.irfft(fft_data, len(T))
plt.plot(T, r)
plt.xlabel('Time')
plt.ylabel('Gain')
plt.show()
背景が水色で赤色の文字のところがキャプチャー画像に見えていて該当するところ。
拡張子がｐｙの生のPythonファイルはIDLEとかスパイダーとかなくてもソースコードが余裕でバレバレになることが分かった。
まだGhidraの使い方は全然分からなくて、適当にやってみただけだが、マジで恐ろしい代物だ。
もっと勉強して使いこなせるようになりたいものだ。
import numpy as np
import matplotlib.pyplot as plt
from mpl_toolkits.basemap import Basemap
# モルワイデ図法で世界地図を描画
m = Basemap(projection='moll', lon_0=0, resolution='c')
# 海岸線を描画
m.drawcoastlines(linewidth=0.5)
# 国境線を描画
m.drawcountries(linewidth=0.5)
# 緯度・経度のグリッド線を描画
m.drawparallels(np.arange(-90, 90, 30), labels=[1,0,0,0], fontsize=10)
m.drawmeridians(np.arange(-180, 180, 60), labels=[0,0,0,1], fontsize=10)
# プロットを表示
plt.show()