תחומים - פורום חרדי מקצועי

dovid

הרלוונטי הוא הקטן ביותר.
השאר זה תוספות.
(חוץ מהLocalDB שזה איזשהו משהו מקומי ל"כאילו" MSSQL, זה משהו חדש אני לא הבנתי מה הוא בא לעשות).

התוספות הם כמה כלים ובראשם הManagement Studio. הוא שימושי מאוד, בVS הוא נמצא חלקית ואולי לגמרי לא יודע.

הגירסאות לא סותרות אחת את השנייה וניתן להתקין במקביל.
לא מומלץ לשדרג, זה באמת סיכון.

פורסם במקור בפורום CODE613 ב05/08/2013 17:53 (+03:00)

dovid

@magicode

גם אפשר להגן על קוד js באמצעות צילום של קוד ריצה ויש כלים שעושים את זה. מצלמים את הקוד ויש לך קוד בינארי ממש.

זה הכי טוב, אבל זה מעלה סימני שאלה על הביצועים בjs.
אם הקוד מכונה שנוצר יכול לרוץ בלי בעיה על כל מכונה, זה אומר שאין מינימום אופטימזציה למכונה.

פורסם במקור בפורום CODE613 ב06/08/2013 17:28 (+03:00)

dovid

@רחמים

לי יש בVS את מה שהזכרת שקוראים לו Dotfuscator
אבל התוצאות שהוא נותן לא מספקות כלל

רחמים, הכלי הנ"ל עושה את העבודה לדעתי.
לא לחינם אנשים קונים אותו. תלמד איך להשתמש בו.

לגבי שאלתך ראה אולי בקישורים תצא פיתרון:
http://stackoverflow.com/questions/11596514/how-to-use-dotfuscator-with-vsto
http://social.msdn.microsoft.com/Forums/windows/en-US/92ef0ad2-532a-41f1-ae11-3addbe9f0434/clickonce-deployment-issue-file-has-different-computed-hash-than-specified-in-manifest-urgent
http://stackoverflow.com/questions/3416223/how-to-use-obfuscation-for-clickonce

פורסם במקור בפורום CODE613 ב06/08/2013 13:43 (+03:00)

dovid

@magicode

שגילתי את הרפלקטור לראשונה זה היתה לי מכה רצינית בנוגע לנט פתאום קלטתי שכל התוכנות שלי חשופות. וכל המאמצים שלי לחסום את התוכנות מיותרים.
זה היה הקש (או האבן) ששבר את גב הגמל ומאז אני ממעט לפתח בנט.

אלא בתוכנות קוד פתוח

@magicode

פעם עיינתי בתוכנה של קול הלשון וראיתי שם חיבור לftp והיה כתוב שם את הסיסמא לחיבור שחור על גבי לבן.

גם אם היו מתחכמים מאוד, חכם קטן היה עולה על הסיסמה.
גם בC++.
הטעות שלהם היא בהקצאת משתמש עם 1) הרשאות כתיבה 2) גישה למקומות שלא צריך.

@magicode

הקטע שזה מעולם לא היה אסמבלי ואני לא הייתי קורא לזה אסמבלי זה פשוט קוד מקור שמקומפל בקובץ אחד.

זה משחק מילים מטעה. מה שהתכוונו במילה זה קבוצת מחלקות וכו' מקובצים ביחד. לא התכוונו בכלל לקימפול.

@magicode

לדעתי תוסיף זבל לתוכנה. כל מיני פונקציות לא קשורות או איזה מחלקה ענקית כמו zlib.
תקודד מחרוזות בצורה כזאת
"\u0053" + "\u0046"

זה בדיוק מה שעושות התוכנות שהזכרתי, רק צריך לדעת להשתמש איתם טוב.
הבעיה שלו שחלק מהקוד שלו אמור להישאר שלם ללא שינוי.

פורסם במקור בפורום CODE613 ב06/08/2013 13:33 (+03:00)

dovid

קודם צריך להבין איך זה עובד,
כל אסמבלי (DLL/EXE) דוטנטי כתוב בשפה די קריאה המכונה CLI.
כשהאסמבלי מורץ מתבצע הידור (קומפילציה) שלו עד לשפת מכונה.

ממילא, קל מאוד לצפות בקוד המקור ולדעת את סודותיו, ואף לערוך אותו.
יש הרבה צופי/עורכי אסמבלי דוטנטי, חלקם חינמיים (לדוגמא http://www.jetbrains.com/decompiler).

אז איך מתגוננים?
הנה מאמר בנושא: http://www.underwar.co.il/15-DigitalWhisper/d577/

מה שמוצע שם זה ערפול הקוד, באנגלית: obfuscators.
איפה משיגים בחינם? אולי פה תמצאו: http://stackoverflow.com/questions/805549/free-obfuscation-tools-for-net

יש אחד רשמי בתשלום של מיקרוסופט מובנה בVS האולטימייט כמדומני.

בהצלחה.

פורסם במקור בפורום CODE613 ב05/08/2013 13:27 (+03:00)

dovid

הנה ייאוש רשמי:
http://social.msdn.microsoft.com/Forums/vstudio/en-US/b7189874-ff1d-4d51-9bd2-649300fc1bad/how-can-i-access-the-code-elements-inside-a-function-definition-in-visual-studio-addin.

שים לב שפרמטרים אתה כן יכול להשיג, אם זה מעניין אותך.

פורסם במקור בפורום CODE613 ב02/08/2013 15:32 (+03:00)

dovid

א. זה לא VBA, זה VB.NET
ב. מאוד הגיוני שזה יקרא מבנים פנימיים (משתנים לולאות תנאים וכו'), וידנית אכן זה אפשרי, אבל עד כה לא מצאתי איך עושים.
ג. בקובץ VB.NET קל יחסית למצוא משתנים, אבל בקובץ C# זה קשה מאוד! כך נראה לי.
ג. הצפיות כוללות גם משתמשים לא רשומים.

פורסם במקור בפורום CODE613 ב02/08/2013 13:32 (+03:00)

dovid

@רחמים

איך ?

אחרי הוספת רפרנס לSystem.Web' קוד לC# וVB.NET כאחד:

System.Web.HttpUtility.UrlEncode("שלום abc")

פורסם במקור בפורום CODE613 ב02/08/2013 16:00 (+03:00)

dovid

אם לא היה מדובר בVBA, זה שורת קוד אחת בC#.

פורסם במקור בפורום CODE613 ב01/08/2013 13:35 (+03:00)

dovid

אם יש לך עוד בעיות,
השתמש אולי בקוד זה (אצלי עובד מצויין):

Private Const CP_UTF8 = 65001
Private Declare PtrSafe Function WideCharToMultiByte Lib "Kernel32" (ByVal CodePage As Long, ByVal dwflags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Public Function UTF16To8(ByVal UTF16 As String) As String
Dim sBuffer As String
Dim lLength As Long
If UTF16 <> "" Then
    lLength = WideCharToMultiByte(CP_UTF8, 0, CLng(StrPtr(UTF16)), -1, 0, 0, 0, 0)
    sBuffer = Space$(lLength)
    lLength = WideCharToMultiByte(CP_UTF8, 0, CLng(StrPtr(UTF16)), -1, CLng(StrPtr(sBuffer)), Len(sBuffer), 0, 0)
    sBuffer = StrConv(sBuffer, vbUnicode)
    UTF16To8 = Left$(sBuffer, lLength - 1)
Else
    UTF16To8 = ""
End If
End Function

Public Function URLEncode( _
   StringVal As String, _
   Optional SpaceAsPlus As Boolean = False, _
   Optional UTF8Encode As Boolean = True _
) As String

Dim StringValCopy As String: StringValCopy = IIf(UTF8Encode, UTF16To8(StringVal), StringVal)
Dim StringLen As Long: StringLen = Len(StringValCopy)

If StringLen > 0 Then
    ReDim result(StringLen) As String
    Dim I As Long, CharCode As Integer
    Dim Char As String, Space As String

  If SpaceAsPlus Then Space = "+" Else Space = "%20"

  For I = 1 To StringLen
    Char = Mid$(StringValCopy, I, 1)
    CharCode = Asc(Char)
    Select Case CharCode
      Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126
        result(I) = Char
      Case 32
        result(I) = Space
      Case 0 To 15
        result(I) = "%0" & Hex(CharCode)
      Case Else
        result(I) = "%" & Hex(CharCode)
    End Select
  Next I
  URLEncode = Join(result, "")

End If
End Function

לקוח מפה http://stackoverflow.com/questions/218181/how-can-i-url-encode-a-string-in-excel-vba
עם התאמות קלות ל64 ביט.

פורסם במקור בפורום CODE613 ב31/07/2013 17:59 (+03:00)

dovid

@ארכיטקט

לגבי המגבלות של עד כך וכך רשומות ועד כך וכך משתשמים, יש מקום שכתוב מספרים במקום "כך וכך"????

בהגדרות הSQLSERVER יש הגדרה לכמות חיבורים בו זמנית, ונדמה לי גם לכמות תעבורה.
כמובן שגם כשהשרת הSQL מאפשר, אם יכולת המחשב מוגבלת תהיה האטה ואף בעיות לא צפויות.

פורסם במקור בפורום CODE613 ב22/08/2013 16:14 (+03:00)

dovid

ניסיתי כעת אצלנו במשרד (שרת מרוחק כמובן, מהירות תעבורה פנימית גבוהה).
עבד ממש ללא דופי.

אולי אז טעיתי ואלי זה תלוי במשהו.

פורסם במקור בפורום CODE613 ב04/08/2013 12:38 (+03:00)

dovid

אם אני זוכר טוב, זה איטי מאוד.

פורסם במקור בפורום CODE613 ב31/07/2013 17:09 (+03:00)

dovid

ב"ה האתר שלנו עובד, ומתרחב יחסית.
האתר הוקם על ידי כמה חברים פה,
לעזור להעזר וחלוק עצות וניסיון בנושאי תכנות.
האתר הוקם בין יום (או לילה) בצורה טיפה מאולתרת וזמנית: השם, הדומיין, מערכת הפורום, והעיצוב וכו'.
אז כעת נקבע השם החדש CODE613M.
מה משמעות השם?
א. אתר תכנות (code)
ב. קהילה המהלכת עם ציצית (m613), כלומר גאים בהיותם יהודים, ודבקים בהגדרה זו.
ג. נושא האתר הוא משני, תת נושא, לנושא העליון שהוא לחיות, חיים הקרויים חיים.

אפשר לתמוה, מה עניין תכנות, להשקפת חיים. מה הקשר.
זה אפי' נראה מיסיונריות לתקוע ענייני דת בענייניים טכניים מובהקים.

אנו אכן לא רוצים בכלל לערב עניינים, אבל אנו רוצים להבהיר עקרונות ומדיניות.
הקהילה/האתר פתחים בפני כל,
אך אחרי שהכרזנו בשער כל עקרונותינו, גם מי שזר להם, יוכל להשתתף תוך כדי שמירה על הערכים שלנו.

פורסם במקור בפורום CODE613 ב26/07/2013 16:10 (+03:00)

dovid

אתה לא אמור להוציא לפי מיקום.
אם זה תמיד במיקום מסויים, אז זה בהכרח גם במבנה זהה, ואתה יכול להוציא לפי מבנה. לדוגמה הפסקה החמישית.

אם זה לא כטקסט אלא כפיקסלים אתה צריך להוציא אכן לפי מיקום.

פורסם במקור בפורום CODE613 ב23/07/2014 10:55 (+03:00)

dovid

אני משתמש בitextsharp

הנה קוד בVB

Private Function ReadPdfFile(fileName As String) As String
    Dim text As New StringBuilder()

    If File.Exists(fileName) Then
        Dim pdfReader As New PdfReader(fileName)

        'For page As Integer = 1 To pdfReader.NumberOfPages
        Dim strategy As parser.ITextExtractionStrategy = New parser.SimpleTextExtractionStrategy()
        Dim currentText As String = parser.PdfTextExtractor.GetTextFromPage(pdfReader, 1, strategy)

        currentText = New String(currentText.Reverse().ToArray)
        text.Append(currentText)
        'Next
        pdfReader.Close()
    End If
    Return text.ToString()
End Function

פורסם במקור בפורום CODE613 ב26/07/2013 15:00 (+03:00)

dovid

יש אייקון בצורת יד עם אגודל. למעלה לפני התודה, ולכיוון מטה לאחר השליחה אם מתחרטים

משמעות השם HRDM לא רלוונטית בינתיים כי השם הוא זמני.
אני אשמח לשמוע הצעות לשם יאה לפורום ולדומיין (כלומר שם פנוי).

פורסם במקור בפורום CODE613 ב25/07/2013 19:20 (+03:00)

dovid

@רחמים

הנה הפרוייקט המקורי כפי שפורסם:

הקוד הוא מאוד פשוט וקצר אני מקווה שתגלו בקלות מה מונע את וורד לפתוח את הקובץ לעריכה.
תבורכו מפי עליון!

הסימפטום לא מפיע אצלי. תוך כדי צפייה הקובץ נגיש לגמרי גם לכתיבה.

פורסם במקור בפורום CODE613 ב25/07/2013 17:47 (+03:00)

dovid

נכון, בקוד שלי יש טעות, צריך להוסיף אחרי המילה Document. את המילה Body.

בקשר לגודל הDLL, אכן אם זה נושא בשבילך זה בעיה שיש לתת עליה את הדעת.
(ביחס למה שזה עושה, זה קטן, אבל אתה לא צריך את כל זה לעניין קריאה גרידא).

אם אתה ממשיך עם הקוד ההוא עשה כעצתי ו"דבג" אותו צעד צעד.

פורסם במקור בפורום CODE613 ב25/07/2013 17:45 (+03:00)

dovid

הנה קוד מעודכן למה שביקשת:

Dim Doc = Packaging.WordprocessingDocument.Open(filename, False)
Dim tb As New Text.StringBuilder
For Each P In Doc.MainDocumentPart.Document.Elements(Of Wordprocessing.Paragraph)()
    tb.Append(P.InnerText)
    tb.Append(vbCrLf)
Next
Doc.Close()

Return tb.ToString()

פורסם במקור בפורום CODE613 ב25/07/2013 16:38 (+03:00)

תחומים - פורום חרדי מקצועי

dovid

פוסטים